[Rt-commit] r18067 - in rt/3.999/branches/merge_to_3.8.2: t/api

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Jan 29 23:19:15 2009
New Revision: 18067

Modified:
   rt/3.999/branches/merge_to_3.8.2/   (props changed)
   rt/3.999/branches/merge_to_3.8.2/t/api/date.t

Log:
 r19326 at sunnavys-mb:  sunnavy | 2009-01-30 09:18:55 +0800
 merged t/api/date.t


Modified: rt/3.999/branches/merge_to_3.8.2/t/api/date.t
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/t/api/date.t	(original)
+++ rt/3.999/branches/merge_to_3.8.2/t/api/date.t	Thu Jan 29 23:19:15 2009
@@ -1,7 +1,10 @@
 #!/usr/bin/perl
 
 use warnings; use strict;
-use RT::Test; use Test::More tests => 164;
+use RT::Test;
+use Test::MockTime qw(set_fixed_time restore_time);
+
+use Test::More tests => 166;
 
 use RT::Model::User;
 use Test::Warn;
@@ -313,6 +316,17 @@
     $date->set(format => 'unknown', value => '2005-11-28 15:10:00', timezone => 'utc' );
     is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");
 
+    # test relative dates
+    {
+        set_fixed_time("2005-11-28T15:10:00Z");
+        $date->set(format => 'unknown', value => 'now');
+        is($date->ISO, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");
+
+        $date->set(format => 'unknown', value => '1 day ago');
+        is($date->ISO, '2005-11-27 15:10:00', "YYYY-DD-MM hh:mm:ss");
+        restore_time();
+    }
+
     RT->config->set( Timezone => 'UTC' );
     $date->set(format => 'unknown', value => '2005-11-28 15:10:00');
     is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");