[Rt-commit] r18650 - in rt/3.999/trunk: . lib/RT

[sartak at bestpractical.com]

Author: sartak
Date: Tue Mar  3 20:51:55 2009
New Revision: 18650

Modified:
   rt/3.999/trunk/   (props changed)
   rt/3.999/trunk/lib/RT/DateTime.pm
   rt/3.999/trunk/t/api/date.t

Log:
 r80875 at onn:  sartak | 2009-03-03 20:51:50 -0500
 Lowercase the W3CDTF method, test fixes


Modified: rt/3.999/trunk/lib/RT/DateTime.pm
==============================================================================
--- rt/3.999/trunk/lib/RT/DateTime.pm	(original)
+++ rt/3.999/trunk/lib/RT/DateTime.pm	Tue Mar  3 20:51:55 2009
@@ -59,7 +59,7 @@
 
 use DateTime::Format::W3CDTF;
 my $W3CDTF_formatter = DateTime::Format::W3CDTF->new;
-sub W3CDTF {
+sub w3cdtf {
     my $self = shift;
     $W3CDTF_formatter->format_datetime($self);
 }

Modified: rt/3.999/trunk/t/api/date.t
==============================================================================
--- rt/3.999/trunk/t/api/date.t	(original)
+++ rt/3.999/trunk/t/api/date.t	Tue Mar  3 20:51:55 2009
@@ -93,10 +93,10 @@
 {
     my $date = RT::DateTime->now(current_user => RT->system_user);
     is($date, '2005-11-28 15:10:00', "default is ISO format");
-    is($date->W3CDTF, '2005-11-28T15:10:00Z', "W3CDTF format");
+    is($date->w3cdtf, '2005-11-28T15:10:00Z', "W3CDTF format");
 
-    is($date->get(format =>'RFC2822'),
-       'Thu, 1 Jan 1970 00:00:00 +0000',
+    is($date->rfc2822,
+       'Mon, 28 Nov 2005 15:10:00 -0000',
        "RFC2822 format with defaults");
 
     is($date->iso(time => 0),