r64370 - in /trunk/libdatetime-format-flexible-perl: ./ debian/ lib/DateTime/Format/ lib/DateTime/Format/Flexible/ lib/DateTime/Format/Flexible/lang/ t/ t/data/

ansgar at users.alioth.debian.org ansgar at users.alioth.debian.org
Thu Oct 28 15:55:24 UTC 2010


Author: ansgar
Date: Thu Oct 28 15:55:11 2010
New Revision: 64370

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64370
Log:
* New upstream release.
* Update my email address.

Modified:
    trunk/libdatetime-format-flexible-perl/Changes
    trunk/libdatetime-format-flexible-perl/META.yml
    trunk/libdatetime-format-flexible-perl/debian/changelog
    trunk/libdatetime-format-flexible-perl/debian/control
    trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm
    trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm
    trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm
    trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm
    trunk/libdatetime-format-flexible-perl/t/base.t
    trunk/libdatetime-format-flexible-perl/t/data/tests.txt
    trunk/libdatetime-format-flexible-perl/t/no_year.t
    trunk/libdatetime-format-flexible-perl/t/parsing.t
    trunk/libdatetime-format-flexible-perl/t/timezones.t

Modified: trunk/libdatetime-format-flexible-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/Changes?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/Changes (original)
+++ trunk/libdatetime-format-flexible-perl/Changes Thu Oct 28 15:55:11 2010
@@ -1,10 +1,20 @@
 Revision history for Perl module DateTime::Format::Flexible
+
+0.17
+   - more formats supported
+   - support timezone offsets that are not at the end of the datetime string.
+     - they must be 4 digits and begin with a plus or minus
+     - thanks snarkyboojum: http://use.perl.org/~snarkyboojum/journal/40297
+   - better support for dates like 'December 1st'
+   - POD formatting fixes
+   - support 'Oct.26, 2010'. thanks Brian Knapp
 
 0.16 Thu Aug 25 2010
    - make sure 'now' means now and not when the module loaded unless user has set a base (thanks Ryan Voots rt #60731)
 
 0.15 Mon Mar 10 2010
-   - fix tests for DateTime string overloading problem (thanks Andreas Koenig and Michael Schwern)
+   - fix tests for DateTime string overloading problem
+     - (thanks Andreas Koenig and Michael Schwern)
 
 0.14 Sun Feb 28 2010
    - fix test: '1 month ago at 4pm' could be potentially less that 28 days ago.

Modified: trunk/libdatetime-format-flexible-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/META.yml?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/META.yml (original)
+++ trunk/libdatetime-format-flexible-perl/META.yml Thu Oct 28 15:55:11 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               DateTime-Format-Flexible
-version:            0.16
+version:            0.17
 abstract:           DateTime::Format::Flexible - Flexibly parse strings and turn them into DateTime objects.
 author:
     - Tom Heady (cpan at punch.net)

Modified: trunk/libdatetime-format-flexible-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/debian/changelog?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/debian/changelog (original)
+++ trunk/libdatetime-format-flexible-perl/debian/changelog Thu Oct 28 15:55:11 2010
@@ -1,3 +1,10 @@
+libdatetime-format-flexible-perl (0.17-1) unstable; urgency=low
+
+  * New upstream release.
+  * Update my email address.
+
+ -- Ansgar Burchardt <ansgar at debian.org>  Thu, 28 Oct 2010 17:50:59 +0200
+
 libdatetime-format-flexible-perl (0.16-1) unstable; urgency=low
 
   [ Jonathan Yu ]

Modified: trunk/libdatetime-format-flexible-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/debian/control?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/debian/control (original)
+++ trunk/libdatetime-format-flexible-perl/debian/control Thu Oct 28 15:55:11 2010
@@ -7,7 +7,7 @@
  libtest-mocktime-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jonathan Yu <jawnsy at cpan.org>, Ryan Niebur <ryan at debian.org>,
- gregor herrmann <gregoa at debian.org>, Ansgar Burchardt <ansgar at 43-1.org>
+ gregor herrmann <gregoa at debian.org>, Ansgar Burchardt <ansgar at debian.org>
 Standards-Version: 3.9.1
 Homepage: http://search.cpan.org/dist/DateTime-Format-Flexible/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdatetime-format-flexible-perl/

Modified: trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm (original)
+++ trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible.pm Thu Oct 28 15:55:11 2010
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.16';
+our $VERSION = '0.17';
 
 use base 'DateTime::Format::Builder';
 
@@ -25,14 +25,18 @@
 my $MMDDYYYY = qr{(\d{1,2})$DELIM(\d{1,2})$DELIM(\d{1,4})};
 my $YYYYMMDD = qr{(\d{4})$DELIM(\d{1,2})$DELIM(\d{1,2})};
 my $MMDD = qr{(\d{1,2})$DELIM(\d{1,2})};
-my $XMMXDD = qr{X(\d{1,2})X$DELIM(\d{1,2})};
-my $DDXMMX = qr{(\d{1,2})${DELIM}X(\d{1,2})X};
+my $XMMXDD = qr{X(\d{1,2})X${DELIM}?(\d{1,2})};
+my $DDXMMX = qr{(\d{1,2})${DELIM}?X(\d{1,2})X};
 my $DDXMMXYYYY = qr{(\d{1,2})${DELIM}X(\d{1,2})X$DELIM(\d{1,4})};
 my $MMYYYY = qr{(\d{1,2})$DELIM(\d{4})};
 my $XMMXYYYY = qr{X(\d{1,2})X${DELIM}(\d{4})};
-my $XMMXDDYYYY = qr{X(\d{1,2})X${DELIM}(\d{1,2})$DELIM(\d{1,4})};
-
+my $XMMXDDYYYY = qr{X(\d{1,2})X${DELIM}?(\d{1,2})${DELIM}?(\d{1,4})};
+
+my $HMSMD = [ qw( hour minute second month day ) ];
+my $HMSMDY = [ qw( hour minute second month day year ) ];
+my $HMSDM = [ qw( hour minute second day month ) ];
 my $HMMDY = [ qw( hour minute month day year ) ];
+my $HMMD = [ qw( hour minute month day ) ];
 my $HMAPMMDD = [ qw( hour minute ampm month day ) ];
 my $DM = [ qw( day month ) ];
 my $DMY = [ qw( day month year ) ];
@@ -77,7 +81,6 @@
 use DateTime::Format::Builder 0.74;
 
 my $base_dt;
-
 sub base
 {
     my ( $self , $dt ) = @_;
@@ -100,7 +103,7 @@
  # M/D/YYYY, M/DD/YYYY, MM/D/YYYY, MM/DD/YYYY
 
  { length => [5..10],  params => $MDY,      regex => qr{\A${MON}${DELIM}${DAY}${DELIM}${YEAR}\z},               postprocess => \&_fix_year },
-# { length => [14],     params => $MDYHMS,   regex => qr{\A${MON}${DAY}${YEAR}\s$HMS\z},                         postprocess => \&_fix_year },
+ { length => [12..14], params => $MDY,      regex => qr{\AX${MON}X${DELIM}n${DAY}n${DELIM}${YEAR}\z} },
  { length => [11..19], params => $MDYHMS,   regex => qr{\A${MON}${DELIM}${DAY}${DELIM}${YEAR}\s$HMS\z},         postprocess => \&_fix_year },
  { length => [11..20], params => $MDYHMAP,  regex => qr{\A${MON}${DELIM}${DAY}${DELIM}${YEAR}\s$HM\s?$AMPM\z},  postprocess => [ \&_fix_ampm , \&_fix_year ] } ,
  { length => [14..22], params => $MDYHMSAP, regex => qr{\A${MON}${DELIM}${DAY}${DELIM}${YEAR}\s$HMS\s?$AMPM\z}, postprocess => [ \&_fix_ampm , \&_fix_year ] } ,
@@ -171,6 +174,7 @@
  { length => [15],     params => $YMDHAP,   regex => qr{\A${YEAR}${DELIM}${MON}${DELIM}${DAY}\s?T${HOUR}T\s?${AMPM}\z}, postprocess => \&_fix_ampm } ,
  { length => [16..18], params => $YMDHM,    regex => qr{\A${YEAR}${DELIM}${MON}${DELIM}${DAY}\s?T${HM}T\z},             postprocess => \&_fix_year } ,
  { length => [21],     params => $YMDHMS,   regex => qr{\A${YEAR}${DELIM}${MON}${DELIM}${DAY}\s?T${HMS}T\z},            postprocess => \&_fix_year } ,
+ { length => [16],     params => $MDYHMS,   regex => qr{\A${MON}${DAY}(\d\d)\s?T${HMS}T\z},                             postprocess => \&_fix_year } ,
  { length => [16],     params => $YMDHAP,   regex => qr{\A${YEAR}${DELIM}${MON}${DELIM}${DAY}\s?T${HOUR}T${AMPM}\z},    postprocess => \&_fix_ampm } ,
 
  { length => [15,16],  params => $MDHMS,    regex => qr{\A${MON}${DELIM}${DAY}\s?T${HMS}T\z},
@@ -179,7 +183,6 @@
    postprocess => sub { my %args = @_; $args{parsed}{year} = __PACKAGE__->base->year } } ,
 
  ########################################################
- ##### Month/Day
  # YYYY HH:MM:SS
  { length => [13], params => $YHMS , regex => qr{\A$YEAR\s$HMS\z} } ,
 
@@ -203,6 +206,10 @@
  { length => [12..21], params => $DMYHMS,   regex => qr{\A${DDXMMXYYYY}\s${HMS}\z},         postprocess => \&_fix_year },
  { length => [16..25], params => $DMYHMSNS, regex => qr{\A${DDXMMXYYYY}\s${HMSNS}\z},       postprocess => \&_fix_year },
  { length => [14..24], params => $DMYHMSAP, regex => qr{\A${DDXMMXYYYY}\s${HMS}\s?$AMPM\z}, postprocess => [ \&_fix_year , \&_fix_ampm ] },
+ { length => [9..15] , params => $HMSMD,    regex => qr{\A${HMS}${XMMXDD}\z},               postprocess => \&_set_default_year },
+ { length => [9..15] , params => $HMSDM,    regex => qr{\A${HMS}${DELIM}?${DDXMMX}\z},      postprocess => \&_set_default_year },
+ { length => [11..17], params => $HMSMDY,   regex => qr{\A${HMS}${XMMXDDYYYY}\z},           postprocess => \&_fix_year },
+ { length => [6..11],  params => $HMMD,     regex => qr{\A${HM}${XMMXDD}\z},                postprocess => \&_set_default_year },
 
  # mon
  { length => [3,4], params => $M, regex => qr{\AX${MON}X\z},
@@ -215,7 +222,7 @@
  { length => [16..21], params => $MYHMSAP,  regex => qr{\A${XMMXYYYY}\s${HMS}\s?$AMPM\z}, postprocess => \&_fix_ampm },
 
  { length => [5..7], params => $MD, regex => qr{\A$XMMXDD\z},
-   postprocess => sub { my %args = @_; $args{parsed}{year} = __PACKAGE__->base->year } },
+   postprocess => sub { my %args = @_; _set_year( @_ ) } },
  { length => [10..18], params => $MDHMS, regex => qr{\A$XMMXDD\s$HMS\z},
    postprocess => sub { my %args = @_; $args{parsed}{year} = __PACKAGE__->base->year } },
  { length => [12..21], params => $MDHMSAP, regex => qr{\A$XMMXDD\s$HMS\s?$AMPM\z} ,
@@ -440,9 +447,10 @@
 
 
     $date =~ s{($DELIM)+}{$1}mxg;   # make multiple delimeters into one
-    # remove any leading delimeters
+    # remove any leading delimeters unless it is -infinity
     $date =~ s{\A$DELIM+}{}mx if ( not $date eq '-infinity' );
     $date =~ s{$DELIM+\z}{}mx;      # remove any trailing delimeters
+    $date =~ s{\,+}{}gmx;           # remove commas
 
     # if we have two digits at the beginning of our date that are greater than 31,
     # we have a possible two digit year
@@ -516,6 +524,16 @@
         return ( $date , $p );
     }
 
+    # search for positive/negative 4 digit timezones that are inside the string
+    # must be surrounded by spaces
+    # Mon Apr 05 17:25:35 +0000 2010
+    if ( my ( $tz ) = $date =~ m{\s([\+\-]\d{4})\s}mx )
+    {
+        $date =~ s{\Q$tz\E}{};
+        $p->{time_zone} = $tz;
+        return ( $date , $p );
+    }
+
     return ( $date , $p );
 }
 
@@ -570,6 +588,33 @@
         }
         return 1;
     }
+    return 1;
+}
+
+sub _set_default_year
+{
+    my %args = @_;
+    $args{parsed}{year} = __PACKAGE__->base->year;
+    return 1;
+}
+
+sub _set_year
+{
+    my %args = @_;
+    my %constructor_args = $args{args} ? @{$args{args}} : ();
+    return 1 if defined $args{parsed}{year}; # year is already set
+
+    if ( $constructor_args{prefer_future} )
+    {
+        if ( $args{parsed}{month} < __PACKAGE__->base->month or
+             ( $args{parsed}{month} eq __PACKAGE__->base->month and
+               $args{parsed}{day} < __PACKAGE__->base->day ) )
+        {
+            $args{parsed}{year} = __PACKAGE__->base->clone->add( years => 1 )->year;
+            return 1;
+        }
+    }
+    $args{parsed}{year} = __PACKAGE__->base->year;
     return 1;
 }
 

Modified: trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm (original)
+++ trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang.pm Thu Oct 28 15:55:11 2010
@@ -27,7 +27,7 @@
                 next;
             }
         }
-        printf( "# not skipping %s\n", $plug ) if $ENV{DFF_DEBUG};
+#        printf( "# not skipping %s\n", $plug ) if $ENV{DFF_DEBUG};
 
         $date = $self->_do_math( $plug , $date );
         $date = $self->_string_dates( $plug , $date );
@@ -125,6 +125,13 @@
 
             return ( $date , $p );
         }
+        elsif ( $date =~ m{\d$month_name}mxi )
+        {
+            $p->{ month } = $month_number;
+            $date =~ s{(\d)$month_name}{$1X${month_number}X}mxi;
+
+            return ( $date , $p );
+        }
     }
     return ( $date , $p );
 }
@@ -237,10 +244,10 @@
 
 =head1 COPYRIGHT & LICENSE
 
-    Copyright 2010 Tom Heady.
-
-    This program is free software; you can redistribute it and/or
-    modify it under the terms of either:
+Copyright 2010 Tom Heady.
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of either:
 
 =over 4
 

Modified: trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm (original)
+++ trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/en.pm Thu Oct 28 15:55:11 2010
@@ -89,9 +89,9 @@
 sub remove_strings
 {
     return (
-        qr{\sof\s}i,             # remove ' of ' as in '16th of November 2003'
-        qr{(?:st|nd|rd|th),?\s}, # remove number extensions
-        qr{next}i,               # next sunday
+        qr{\bof\b}i,             # remove ' of ' as in '16th of November 2003'
+        qr{(?:st|nd|rd|th)\b,?}, # remove number extensions
+        qr{\bnext\b}i,           # next sunday
     );
 }
 
@@ -234,10 +234,10 @@
 
 =head1 COPYRIGHT & LICENSE
 
-    Copyright 2010 Tom Heady.
-
-    This program is free software; you can redistribute it and/or
-    modify it under the terms of either:
+Copyright 2010 Tom Heady.
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of either:
 
 =over 4
 

Modified: trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm (original)
+++ trunk/libdatetime-format-flexible-perl/lib/DateTime/Format/Flexible/lang/es.pm Thu Oct 28 15:55:11 2010
@@ -97,7 +97,7 @@
 sub remove_strings
 {
     return (
-        qr{\sde\s}i, # remove ' de ' as in '29 de febrero de 1996'
+        qr{\bde\b}i, # remove ' de ' as in '29 de febrero de 1996'
     );
 }
 
@@ -226,10 +226,10 @@
 
 =head1 COPYRIGHT & LICENSE
 
-    Copyright 2010 Tom Heady.
-
-    This program is free software; you can redistribute it and/or
-    modify it under the terms of either:
+Copyright 2010 Tom Heady.
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of either:
 
 =over 4
 

Modified: trunk/libdatetime-format-flexible-perl/t/base.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/base.t?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/base.t (original)
+++ trunk/libdatetime-format-flexible-perl/t/base.t Thu Oct 28 15:55:11 2010
@@ -12,6 +12,7 @@
 # my ( $base_dt ) = $base->parse_datetime( '2005-06-07T13:14:15' );
 # $base->base( $base_dt );
 
+my $base_dt = DateTime->new( year => 2009, month => 6, day => 22 );
 
 {
     my $dt  = DateTime::Format::Flexible->parse_datetime( 'now' );
@@ -19,12 +20,7 @@
     my $dt2 = DateTime::Format::Flexible->parse_datetime( 'now' );
 
     isnt( $dt->datetime, $dt2->datetime, 'parsing now is not always the same as module load' );
-
-    diag( $dt->datetime .' => '. $dt2->datetime );
 }
-
-
-my $base_dt = DateTime->new( year => 2009, month => 6, day => 22 );
 
 {
     my $dt = DateTime::Format::Flexible->parse_datetime(

Modified: trunk/libdatetime-format-flexible-perl/t/data/tests.txt
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/data/tests.txt?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/data/tests.txt (original)
+++ trunk/libdatetime-format-flexible-perl/t/data/tests.txt Thu Oct 28 15:55:11 2010
@@ -2928,4 +2928,14 @@
 1997023 => 1997-01-23T00:00:00
 1997035 => 1997-02-04T00:00:00
 97035 => 1997-02-04T00:00:00
-#121065 at 5:30:25 => 2065-12-10T05:30:25
+4:50:54DeCember10/65 => 2065-12-10T04:50:54
+4:50:54DeCember1965 => 2065-12-19T04:50:54
+121065 at 5:30:25 => 2065-12-10T05:30:25
+february 1st => 2010-02-01T00:00:00
+December 1st, 2006 => 2006-12-01T00:00:00
+2006 December 1st => 2006-12-01T00:00:00
+December first, 2006 => 2006-12-01T00:00:00
+January first, 2006 => 2006-01-01T00:00:00
+January eleventh, 2006 => 2006-01-11T00:00:00
+december eleventh, 2006 => 2006-12-11T00:00:00
+Oct.26, 2010 => 2010-10-26T00:00:00

Modified: trunk/libdatetime-format-flexible-perl/t/no_year.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/no_year.t?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/no_year.t (original)
+++ trunk/libdatetime-format-flexible-perl/t/no_year.t Thu Oct 28 15:55:11 2010
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 24;
+use Test::More tests => 33;
 use DateTime;
 
 use t::lib::helper;
@@ -36,4 +36,14 @@
     "December/10 => $curr_year-12-10T00:00:00",
     "12/10 at 05:30:25 => $curr_year-12-10T05:30:25",
     "12/10 at 05:30:25 GMT => $curr_year-12-10T05:30:25 => UTC",
+
+    "4:50:40DeC10 => $curr_year-12-10T04:50:40",
+    "4:50:42DeCember10 => $curr_year-12-10T04:50:42",
+    "4:50:5110DeC => $curr_year-12-10T04:50:51",
+    "4:50:5210DeCember => $curr_year-12-10T04:50:52",
+    "4:50:53 10DeC => $curr_year-12-10T04:50:53",
+    "4:50:5410DeCember => $curr_year-12-10T04:50:54",
+    "4:50:54DeCember10 => $curr_year-12-10T04:50:54",
+    "4:50DeC10 => $curr_year-12-10T04:50:00",
+    "4:50DeCember10 => $curr_year-12-10T04:50:00",
 );

Modified: trunk/libdatetime-format-flexible-perl/t/parsing.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/parsing.t?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/parsing.t (original)
+++ trunk/libdatetime-format-flexible-perl/t/parsing.t Thu Oct 28 15:55:11 2010
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7989;
+use Test::More tests => 8000;
 use File::Spec::Functions 'catfile';
 
 use t::lib::helper;

Modified: trunk/libdatetime-format-flexible-perl/t/timezones.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-flexible-perl/t/timezones.t?rev=64370&op=diff
==============================================================================
--- trunk/libdatetime-format-flexible-perl/t/timezones.t (original)
+++ trunk/libdatetime-format-flexible-perl/t/timezones.t Thu Oct 28 15:55:11 2010
@@ -69,3 +69,8 @@
 2010-02-02 12:06:45+09. => 2010-02-02T12:06:45 => +0900
 2009-05-21 01:27:48+09. => 2009-05-21T01:27:48 => +0900
 2010-08-01 14:25:14+09. => 2010-08-01T14:25:14 => +0900
+Mon Apr 05 17:25:35 +0000 2010 => 2010-04-05T17:25:35 => UTC
+Mon Apr 05 17:25:35 +0100 2010 => 2010-04-05T17:25:35 => +0100
+Mon Apr 05 17:25:35 -0100 2010 => 2010-04-05T17:25:35 => -0100
+2010-08-01 14:25:14 +09:00 => 2010-08-01T14:25:14 => +0900
+2010-08-01 14:25:14 -06:00 => 2010-08-01T14:25:14 => -0600




More information about the Pkg-perl-cvs-commits mailing list