[Rt-commit] r18067 - in rt/3.999/branches/merge_to_3.8.2: t/api
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Thu Jan 29 23:19:15 EST 2009
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");
More information about the Rt-commit
mailing list