r51251 - in /trunk/libdatetime-format-iso8601-perl: Changes META.yml Makefile.PL debian/changelog debian/control debian/copyright debian/patches/ debian/source/ lib/DateTime/Format/ISO8601.pm t/02_examples.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Jan 19 00:21:06 UTC 2010
Author: jawnsy-guest
Date: Tue Jan 19 00:20:54 2010
New Revision: 51251
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51251
Log:
Some test fixes that don't seem to affect Debian
* New upstream release
* Remove patch for BTS#564411 (fixed upstream)
* Add myself to Uploaders and Copyright
* Rewrite control description
* Drop version deps satisfied by oldstable
Removed:
trunk/libdatetime-format-iso8601-perl/debian/patches/
trunk/libdatetime-format-iso8601-perl/debian/source/
Modified:
trunk/libdatetime-format-iso8601-perl/Changes
trunk/libdatetime-format-iso8601-perl/META.yml
trunk/libdatetime-format-iso8601-perl/Makefile.PL
trunk/libdatetime-format-iso8601-perl/debian/changelog
trunk/libdatetime-format-iso8601-perl/debian/control
trunk/libdatetime-format-iso8601-perl/debian/copyright
trunk/libdatetime-format-iso8601-perl/lib/DateTime/Format/ISO8601.pm
trunk/libdatetime-format-iso8601-perl/t/02_examples.t
Modified: trunk/libdatetime-format-iso8601-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-iso8601-perl/Changes?rev=51251&op=diff
==============================================================================
--- trunk/libdatetime-format-iso8601-perl/Changes (original)
+++ trunk/libdatetime-format-iso8601-perl/Changes Tue Jan 19 00:20:54 2010
@@ -1,4 +1,8 @@
Revision history for Perl module DateTime::Format::ISO8601
+
+0.07 Sun Jan 17 23:35:40 MST 2010
+ - fix test failures caused by tests using DateTime->now(), all tests should
+ now pass reguardless of the "wallclock" when they are being run
0.06 Tue Apr 10 15:17:34 HST 2007
- add Test::Distribution tests
Modified: trunk/libdatetime-format-iso8601-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-iso8601-perl/META.yml?rev=51251&op=diff
==============================================================================
--- trunk/libdatetime-format-iso8601-perl/META.yml (original)
+++ trunk/libdatetime-format-iso8601-perl/META.yml Tue Jan 19 00:20:54 2010
@@ -1,6 +1,6 @@
---
name: DateTime-Format-ISO8601
-version: 0.06
+version: 0.07
author:
- 'Joshua Hoblitt <jhoblitt at cpan.org>'
abstract: Parses ISO8601 formats
@@ -14,11 +14,13 @@
File::Find::Rule: 0.24
Test::Distribution: 1.22
Test::Pod: 0.95
+configure_requires:
+ Module::Build: 0.35
provides:
DateTime::Format::ISO8601:
file: lib/DateTime/Format/ISO8601.pm
- version: 0.06
-generated_by: Module::Build version 0.2805
+ version: 0.07
+generated_by: Module::Build version 0.35
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libdatetime-format-iso8601-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-iso8601-perl/Makefile.PL?rev=51251&op=diff
==============================================================================
--- trunk/libdatetime-format-iso8601-perl/Makefile.PL (original)
+++ trunk/libdatetime-format-iso8601-perl/Makefile.PL Tue Jan 19 00:20:54 2010
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.35
unless (eval "use Module::Build::Compat 0.02; 1" ) {
print "This module requires Module::Build to install itself.\n";
@@ -27,5 +27,8 @@
eval "use Module::Build::Compat 0.02; 1" or die $@;
Module::Build::Compat->run_build_pl(args => \@ARGV);
+ my $build_script = 'Build';
+ $build_script .= '.com' if $^O eq 'VMS';
+ exit(0) unless(-e $build_script); # cpantesters convention
require Module::Build;
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
Modified: trunk/libdatetime-format-iso8601-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-iso8601-perl/debian/changelog?rev=51251&op=diff
==============================================================================
--- trunk/libdatetime-format-iso8601-perl/debian/changelog (original)
+++ trunk/libdatetime-format-iso8601-perl/debian/changelog Tue Jan 19 00:20:54 2010
@@ -1,3 +1,15 @@
+libdatetime-format-iso8601-perl (0.07-1) UNRELEASED; urgency=low
+
+ Some test fixes that don't seem to affect Debian
+
+ * New upstream release
+ * Remove patch for BTS#564411 (fixed upstream)
+ * Add myself to Uploaders and Copyright
+ * Rewrite control description
+ * Drop version deps satisfied by oldstable
+
+ -- Jonathan Yu <jawnsy at cpan.org> Mon, 18 Jan 2010 19:29:56 -0500
+
libdatetime-format-iso8601-perl (0.06-2) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libdatetime-format-iso8601-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-iso8601-perl/debian/control?rev=51251&op=diff
==============================================================================
--- trunk/libdatetime-format-iso8601-perl/debian/control (original)
+++ trunk/libdatetime-format-iso8601-perl/debian/control Tue Jan 19 00:20:54 2010
@@ -2,16 +2,12 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.2.10), perl (>= 5.10) | libmodule-build-perl
-Build-Depends-Indep: perl,
- libdatetime-format-builder-perl (>= 0.77),
- libdatetime-perl (>= 0.18),
- libtest-pod-perl,
- libtest-distribution-perl,
- libfile-find-rule-perl
+Build-Depends-Indep: perl, libdatetime-perl, libdatetime-format-builder-perl,
+ libtest-pod-perl, libtest-distribution-perl, libfile-find-rule-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: AGOSTINI Yves <agostini at univ-metz.fr>,
- Jaldhar H. Vyas <jaldhar at debian.org>,
- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+Uploaders: Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>,
+ AGOSTINI Yves <agostini at univ-metz.fr>, Jaldhar H. Vyas <jaldhar at debian.org>,
+ Jonathan Yu <jawnsy at cpan.org>
Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/DateTime-Format-ISO8601/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdatetime-format-iso8601-perl/
@@ -19,18 +15,18 @@
Package: libdatetime-format-iso8601-perl
Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends},
- libdatetime-format-builder-perl (>= 0.77), libdatetime-perl (>= 0.18)
-Description: Perl module to parse ISO8601 date and time formats
- DateTime::Format::ISO8601 parses almost all ISO8601 date and time formats.
+Depends: ${misc:Depends}, ${perl:Depends}, libdatetime-format-builder-perl,
+ libdatetime-perl
+Description: module to parse ISO8601 date and time formats
+ DateTime::Format::ISO8601 is a Perl DateTime extension that parses almost all
+ ISO8601 date and time formats. The signature feature of ISO 8601 date/time
+ representations is the ordering of date and time values from the most to the
+ least significant or, in plain terms, from the largest (the year) to the
+ smallest (the second).
.
- The signature feature of ISO 8601 date and time representations is the
- ordering of date and time values from the most to the least significant or,
- in plain terms, from the largest (the year) to the smallest (the second).
+ Example date: 2008-04-18
+ Example separate date and time in UTC: 2008-04-18 08:47Z
+ Example combined date and time in UTC: 2008-04-18T08:47Z
+ Example date with week number: 2008-W16-5
.
- Example date: 2008-04-18
- Example separate date and time in UTC: 2008-04-18 08:47Z
- Example combined date and time in UTC: 2008-04-18T08:47Z
- Example date with week number: 2008-W16-5
- .
- ISO8601 time-intervals will be supported in a later release.
+ ISO 8601 time intervals will be supported in a later release.
Modified: trunk/libdatetime-format-iso8601-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-iso8601-perl/debian/copyright?rev=51251&op=diff
==============================================================================
--- trunk/libdatetime-format-iso8601-perl/debian/copyright (original)
+++ trunk/libdatetime-format-iso8601-perl/debian/copyright Tue Jan 19 00:20:54 2010
@@ -4,12 +4,13 @@
Name: DateTime-Format-ISO8601
Files: *
-Copyright: 2003-2005, Joshua Hoblitt
+Copyright: 2003-2005, Joshua Hoblitt <jhoblitt at cpan.org>
License: Artistic or GPL-1+
Files: debian/*
-Copyright: 2008, AGOSTINI Yves <agostini at univ-metz.fr>
- 2010, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+Copyright: 2010, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+ 2010, Jonathan Yu <jawnsy at cpan.org>
+ 2008, AGOSTINI Yves <agostini at univ-metz.fr>
License: Artistic or GPL-1+
License: Artistic
Modified: trunk/libdatetime-format-iso8601-perl/lib/DateTime/Format/ISO8601.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-iso8601-perl/lib/DateTime/Format/ISO8601.pm?rev=51251&op=diff
==============================================================================
--- trunk/libdatetime-format-iso8601-perl/lib/DateTime/Format/ISO8601.pm (original)
+++ trunk/libdatetime-format-iso8601-perl/lib/DateTime/Format/ISO8601.pm Tue Jan 19 00:20:54 2010
@@ -1,6 +1,6 @@
# Copyright (C) 2003-2005 Joshua Hoblitt
#
-# $Id: ISO8601.pm,v 1.24 2007/04/11 01:18:51 jhoblitt Exp $
+# $Id: ISO8601.pm,v 1.25 2010/01/18 06:36:21 jhoblitt Exp $
package DateTime::Format::ISO8601;
@@ -8,7 +8,7 @@
use warnings;
use vars qw( $VERSION );
-$VERSION = '0.06';
+$VERSION = '0.07';
use Carp qw( croak );
use DateTime;
Modified: trunk/libdatetime-format-iso8601-perl/t/02_examples.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-iso8601-perl/t/02_examples.t?rev=51251&op=diff
==============================================================================
--- trunk/libdatetime-format-iso8601-perl/t/02_examples.t (original)
+++ trunk/libdatetime-format-iso8601-perl/t/02_examples.t Tue Jan 19 00:20:54 2010
@@ -2,7 +2,7 @@
# Copyright (C) 2003-2005 Joshua Hoblitt
#
-# $Id: 02_examples.t,v 1.10 2007/04/11 01:11:42 jhoblitt Exp $
+# $Id: 02_examples.t,v 1.11 2010/01/18 06:36:23 jhoblitt Exp $
use strict;
use warnings;
@@ -14,220 +14,220 @@
use DateTime::Format::ISO8601;
# parse_datetime
+my $base_year = 2000;
+my $base_month = "01";
+my $iso8601 = DateTime::Format::ISO8601->new(
+ base_datetime => DateTime->new( year => $base_year, month => $base_month ),
+);
{
#YYYYMMDD 19850412
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19850412' );
+ my $dt = $iso8601->parse_datetime( '19850412' );
is( $dt->ymd, '1985-04-12' );
}
{
#YYYY-MM-DD 1985-04-12
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04-12' );
+ my $dt = $iso8601->parse_datetime( '1985-04-12' );
is( $dt->ymd, '1985-04-12' );
}
{
#YYYY-MM 1985-04
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04' );
+ my $dt = $iso8601->parse_datetime( '1985-04' );
is( $dt->ymd, '1985-04-01' );
}
{
#YYYY 1985
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985' );
+ my $dt = $iso8601->parse_datetime( '1985' );
is( $dt->ymd, '1985-01-01' );
}
{
#YY 19 (century)
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19' );
+ my $dt = $iso8601->parse_datetime( '19' );
is( $dt->ymd, '1901-01-01' );
}
{
#YYMMDD 850412
- my $dt = DateTime::Format::ISO8601->parse_datetime( '850412' );
+ my $dt = $iso8601->parse_datetime( '850412' );
is( $dt->ymd, '1985-04-12' );
}
{
#YY-MM-DD 85-04-12
- my $dt = DateTime::Format::ISO8601->parse_datetime( '85-04-12' );
+ my $dt = $iso8601->parse_datetime( '85-04-12' );
is( $dt->ymd, '1985-04-12' );
}
{
#-YYMM -8504
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-8504' );
+ my $dt = $iso8601->parse_datetime( '-8504' );
is( $dt->ymd, '1985-04-01' );
}
{
#-YY-MM -85-04
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-85-04' );
+ my $dt = $iso8601->parse_datetime( '-85-04' );
is( $dt->ymd, '1985-04-01' );
}
{
#-YY -85
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-85' );
+ my $dt = $iso8601->parse_datetime( '-85' );
is( $dt->year, '1985' );
}
{
#--MMDD --0412
- my $dt = DateTime::Format::ISO8601->parse_datetime( '--0412' );
- my $year = DateTime->now->year;
- is( $dt->ymd, "${year}-04-12" );
+ my $dt = $iso8601->parse_datetime( '--0412' );
+ is( $dt->ymd, "${base_year}-04-12" );
}
{
#--MM-DD --04-12
- my $dt = DateTime::Format::ISO8601->parse_datetime( '--04-12' );
- my $year = DateTime->now->year;
- is( $dt->ymd, "${year}-04-12" );
+ my $dt = $iso8601->parse_datetime( '--04-12' );
+ is( $dt->ymd, "${base_year}-04-12" );
}
{
#--MM --04
- my $dt = DateTime::Format::ISO8601->parse_datetime( '--04' );
- my $year = DateTime->now->year;
- is( $dt->ymd, "${year}-04-01" );
+ my $dt = $iso8601->parse_datetime( '--04' );
+ is( $dt->ymd, "${base_year}-04-01" );
}
{
#---DD ---12
- my $dt = DateTime::Format::ISO8601->parse_datetime( '---12' );
- my $year = sprintf( "%04i", DateTime->now->year );
- my $month = sprintf( "%02i", DateTime->now->month );
- is( $dt->ymd, "${year}-${month}-12" );
+ my $dt = $iso8601->parse_datetime( '---12' );
+ is( $dt->ymd, "${base_year}-${base_month}-12" );
}
{
#+[YY]YYYYMMDD +0019850412
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+0019850412' );
+ my $dt = $iso8601->parse_datetime( '+0019850412' );
is( $dt->ymd, '1985-04-12' );
}
{
#+[YY]YYYY-MM-DD +001985-04-12
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+001985-04-12' );
+ my $dt = $iso8601->parse_datetime( '+001985-04-12' );
is( $dt->ymd, '1985-04-12' );
}
{
#+[YY]YYYY-MM +001985-04
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+001985-04' );
+ my $dt = $iso8601->parse_datetime( '+001985-04' );
is( $dt->ymd, '1985-04-01' );
}
{
#+[YY]YYYY +001985
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+001985' );
+ my $dt = $iso8601->parse_datetime( '+001985' );
is( $dt->ymd, '1985-01-01' );
}
{
#+[YY]YY +0019 (century)
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+0019' );
+ my $dt = $iso8601->parse_datetime( '+0019' );
is( $dt->ymd, '1901-01-01' );
}
{
#YYYYDDD 1985102
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985102' );
+ my $dt = $iso8601->parse_datetime( '1985102' );
is( $dt->ymd, '1985-04-12' );
}
{
#YYYY-DDD 1985-102
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-102' );
+ my $dt = $iso8601->parse_datetime( '1985-102' );
is( $dt->ymd, '1985-04-12' );
}
{
#YYDDD 85102
- my $dt = DateTime::Format::ISO8601->parse_datetime( '85102' );
+ my $dt = $iso8601->parse_datetime( '85102' );
is( $dt->ymd, '1985-04-12' );
}
{
#YY-DDD 85-102
- my $dt = DateTime::Format::ISO8601->parse_datetime( '85-102' );
+ my $dt = $iso8601->parse_datetime( '85-102' );
is( $dt->ymd, '1985-04-12' );
}
{
#-DDD -102
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-102' );
- my $year = sprintf( "%04i", DateTime->now->year );
+ my $dt = $iso8601->parse_datetime( '-102' );
+ my $year = sprintf( "%04i", $base_year );
is( $dt->strftime( "%j" ), 102 );
}
{
#+[YY]YYYYDDD +001985102
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+001985102' );
+ my $dt = $iso8601->parse_datetime( '+001985102' );
is( $dt->ymd, '1985-04-12' );
}
{
#+[YY]YYYY-DDD +001985-102
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+001985-102' );
+ my $dt = $iso8601->parse_datetime( '+001985-102' );
is( $dt->ymd, '1985-04-12' );
}
{
#YYYYWwwD 1985W155
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985W155' );
+ my $dt = $iso8601->parse_datetime( '1985W155' );
is( $dt->ymd, '1985-04-12' );
}
{
#YYYY-Www-D 1985-W15-5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-W15-5' );
+ my $dt = $iso8601->parse_datetime( '1985-W15-5' );
is( $dt->ymd, '1985-04-12' );
}
{
#YYYYWww 1985W15
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985W15' );
+ my $dt = $iso8601->parse_datetime( '1985W15' );
is( $dt->ymd, '1985-04-08' );
}
{
#YYYY-Www 1985-W15
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-W15' );
+ my $dt = $iso8601->parse_datetime( '1985-W15' );
is( $dt->ymd, '1985-04-08' );
}
{
#YYWwwD 85W155
- my $dt = DateTime::Format::ISO8601->parse_datetime( '85W155' );
+ my $dt = $iso8601->parse_datetime( '85W155' );
is( $dt->ymd, '1985-04-12' );
}
{
#YY-Www-D 85-W15-5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '85-W15-5' );
+ my $dt = $iso8601->parse_datetime( '85-W15-5' );
is( $dt->ymd, '1985-04-12' );
}
{
#YYWww 85W15
- my $dt = DateTime::Format::ISO8601->parse_datetime( '85W15' );
+ my $dt = $iso8601->parse_datetime( '85W15' );
is( $dt->ymd, '1985-04-08' );
}
{
#YY-Www 85-W15
- my $dt = DateTime::Format::ISO8601->parse_datetime( '85-W15' );
+ my $dt = $iso8601->parse_datetime( '85-W15' );
is( $dt->ymd, '1985-04-08' );
}
{
#-YWwwD -5W155
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-5W155' );
+ my $dt = $iso8601->parse_datetime( '-5W155' );
is( $dt->year, '2005' );
is( $dt->week_number, '15' );
is( $dt->day_of_week, '5' );
@@ -235,7 +235,7 @@
{
#-Y-Www-D -5-W15-5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-5-W15-5' );
+ my $dt = $iso8601->parse_datetime( '-5-W15-5' );
is( $dt->year, '2005' );
is( $dt->week_number, '15' );
is( $dt->day_of_week, '5' );
@@ -243,122 +243,122 @@
{
#-YWww -5W15
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-5W15' );
+ my $dt = $iso8601->parse_datetime( '-5W15' );
is( $dt->year, '2005' );
is( $dt->week_number, '15' );
}
{
#-Y-Www -5-W15
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-5-W15' );
+ my $dt = $iso8601->parse_datetime( '-5-W15' );
is( $dt->year, '2005' );
is( $dt->week_number, '15' );
}
{
#-WwwD -W155
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-W155' );
+ my $dt = $iso8601->parse_datetime( '-W155' );
is( $dt->week_number, '15' );
is( $dt->day_of_week, '5' );
}
{
#-Www-D -W15-5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-W15-5' );
+ my $dt = $iso8601->parse_datetime( '-W15-5' );
is( $dt->week_number, '15' );
is( $dt->day_of_week, '5' );
}
# {
# #-Www -W15
-# my $dt = DateTime::Format::ISO8601->parse_datetime( '-W15' );
+# my $dt = $iso8601->parse_datetime( '-W15' );
# is( $dt->week_number, '15' );
# }
{
#-W-D -W-5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-W-5' );
+ my $dt = $iso8601->parse_datetime( '-W-5' );
is( $dt->day_of_week, '5' );
}
{
#+[YY]YYYYWwwD +001985W155
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+001985W155' );
+ my $dt = $iso8601->parse_datetime( '+001985W155' );
is( $dt->ymd, '1985-04-12' );
}
{
#+[YY]YYYY-Www-D +001985-W15-5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+001985-W15-5' );
+ my $dt = $iso8601->parse_datetime( '+001985-W15-5' );
is( $dt->ymd, '1985-04-12' );
}
{
#+[YY]YYYYWww +001985W15
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+001985W15' );
+ my $dt = $iso8601->parse_datetime( '+001985W15' );
is( $dt->ymd, '1985-04-08' );
}
{
#+[YY]YYYY-Www +001985-W15
- my $dt = DateTime::Format::ISO8601->parse_datetime( '+001985-W15' );
+ my $dt = $iso8601->parse_datetime( '+001985-W15' );
is( $dt->ymd, '1985-04-08' );
}
{
#hh:mm:ss 23:20:50
- my $dt = DateTime::Format::ISO8601->parse_datetime( '23:20:50' );
+ my $dt = $iso8601->parse_datetime( '23:20:50' );
is( $dt->hms, '23:20:50' );
}
{
#hh:mm 23:20
- my $dt = DateTime::Format::ISO8601->parse_datetime( '23:20' );
+ my $dt = $iso8601->parse_datetime( '23:20' );
is( $dt->hms, '23:20:00' );
}
{
#hhmmss,ss 232050,5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '232050,5' );
+ my $dt = $iso8601->parse_datetime( '232050,5' );
is( $dt->hms, '23:20:50' );
is( $dt->nanosecond, 500_000_000 );
}
{
#hh:mm:ss,ss 23:20:50,5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '23:20:50,5' );
+ my $dt = $iso8601->parse_datetime( '23:20:50,5' );
is( $dt->hms, '23:20:50' );
is( $dt->nanosecond, 500_000_000 );
}
{
#hhmm,mm 2320,8
- my $dt = DateTime::Format::ISO8601->parse_datetime( '2320,8' );
+ my $dt = $iso8601->parse_datetime( '2320,8' );
is( $dt->hms, '23:20:48' );
}
{
#hh:mm,mm 23:20,8
- my $dt = DateTime::Format::ISO8601->parse_datetime( '23:20,8' );
+ my $dt = $iso8601->parse_datetime( '23:20,8' );
is( $dt->hms, '23:20:48' );
}
{
#hh,hh 23,3
- my $dt = DateTime::Format::ISO8601->parse_datetime( '23,3' );
+ my $dt = $iso8601->parse_datetime( '23,3' );
is( $dt->hms, '23:18:00' );
}
{
#-mm:ss -20:50
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-20:50' );
+ my $dt = $iso8601->parse_datetime( '-20:50' );
is( $dt->minute, '20' );
is( $dt->second, '50' );
}
{
#-mmss,s -2050,5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-2050,5' );
+ my $dt = $iso8601->parse_datetime( '-2050,5' );
is( $dt->minute, '20' );
is( $dt->second, '50' );
is( $dt->nanosecond, 500_000_000 );
@@ -366,7 +366,7 @@
{
#-mm:ss,s -20:50,5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-20:50,5' );
+ my $dt = $iso8601->parse_datetime( '-20:50,5' );
is( $dt->minute, '20' );
is( $dt->second, '50' );
is( $dt->nanosecond, 500_000_000 );
@@ -374,28 +374,28 @@
{
#-mm,m -20,8
- my $dt = DateTime::Format::ISO8601->parse_datetime( '-20,8' );
+ my $dt = $iso8601->parse_datetime( '-20,8' );
is( $dt->minute, '20' );
is( $dt->second, '48' );
}
{
#--ss,s --50,5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '--50,5' );
+ my $dt = $iso8601->parse_datetime( '--50,5' );
is( $dt->second, '50' );
is( $dt->nanosecond, 500_000_000 );
}
{
#hhmmssZ 232030Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '232030Z' );
+ my $dt = $iso8601->parse_datetime( '232030Z' );
is( $dt->hms, '23:20:30' );
is( $dt->time_zone->name, 'UTC' );
}
{
#hhmmss.ssZ 232030.5Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '232030.5Z' );
+ my $dt = $iso8601->parse_datetime( '232030.5Z' );
is( $dt->hms, '23:20:30' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, 'UTC' );
@@ -404,14 +404,14 @@
{
#hh:mm:ssZ 23:20:30Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '23:20:30Z' );
+ my $dt = $iso8601->parse_datetime( '23:20:30Z' );
is( $dt->hms, '23:20:30' );
is( $dt->time_zone->name, 'UTC' );
}
{
#hhmmssZ 23:20:30.5Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '23:20:30.5Z' );
+ my $dt = $iso8601->parse_datetime( '23:20:30.5Z' );
is( $dt->hms, '23:20:30' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, 'UTC' );
@@ -420,42 +420,42 @@
{
#hhmmZ 2320Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '2320Z' );
+ my $dt = $iso8601->parse_datetime( '2320Z' );
is( $dt->hms, '23:20:00' );
is( $dt->time_zone->name, 'UTC' );
}
{
#hh:mmZ 23:20Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '23:20Z' );
+ my $dt = $iso8601->parse_datetime( '23:20Z' );
is( $dt->hms, '23:20:00' );
is( $dt->time_zone->name, 'UTC' );
}
{
#hhZ 23Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '23Z' );
+ my $dt = $iso8601->parse_datetime( '23Z' );
is( $dt->hms, '23:00:00' );
is( $dt->time_zone->name, 'UTC' );
}
{
#hhmmss[+/-]hhmm 152746+0100 152746-0500
- my $dt = DateTime::Format::ISO8601->parse_datetime( '152746+0100' );
+ my $dt = $iso8601->parse_datetime( '152746+0100' );
is( $dt->hms, '15:27:46' );
is( $dt->time_zone->name, '+0100' );
}
{
#hhmmss[+/-]hhmm 152746+0100 152746-0500
- my $dt = DateTime::Format::ISO8601->parse_datetime( '152746-0500' );
+ my $dt = $iso8601->parse_datetime( '152746-0500' );
is( $dt->hms, '15:27:46' );
is( $dt->time_zone->name, '-0500' );
}
{
#hhmmss.ss[+/-]hhmm 152746.5+0100 152746.5-0500
- my $dt = DateTime::Format::ISO8601->parse_datetime( '152746.5+0100' );
+ my $dt = $iso8601->parse_datetime( '152746.5+0100' );
is( $dt->hms, '15:27:46' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, '+0100' );
@@ -463,7 +463,7 @@
{
#hhmmss.ss[+/-]hh:mm 152746.5+01:00 152746.5-05:00
- my $dt = DateTime::Format::ISO8601->parse_datetime( '152746.5-05:00' );
+ my $dt = $iso8601->parse_datetime( '152746.5-05:00' );
is( $dt->hms, '15:27:46' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, '-0500' );
@@ -471,7 +471,7 @@
{
#hhmmss[+/-]hh:mm 152746.05+01:00 152746.05-05:00
- my $dt = DateTime::Format::ISO8601->parse_datetime( '152746.05-05:00' );
+ my $dt = $iso8601->parse_datetime( '152746.05-05:00' );
is( $dt->hms, '15:27:46' );
is( $dt->nanosecond, 50_000_000 );
is( $dt->time_zone->name, '-0500' );
@@ -480,21 +480,21 @@
{
#hh:mm:ss[+/-]hh:mm 15:27:46+01:00 15:27:46-05:00
- my $dt = DateTime::Format::ISO8601->parse_datetime( '15:27:46+01:00' );
+ my $dt = $iso8601->parse_datetime( '15:27:46+01:00' );
is( $dt->hms, '15:27:46' );
is( $dt->time_zone->name, '+0100' );
}
{
#hh:mm:ss[+/-]hh:mm 15:27:46+01:00 15:27:46-05:00
- my $dt = DateTime::Format::ISO8601->parse_datetime( '15:27:46-05:00' );
+ my $dt = $iso8601->parse_datetime( '15:27:46-05:00' );
is( $dt->hms, '15:27:46' );
is( $dt->time_zone->name, '-0500' );
}
{
#hhmmss.ss[+/-]hhmm 15:27:46.5+0100 15:27:46.5-0500
- my $dt = DateTime::Format::ISO8601->parse_datetime( '15:27:46.5+0100' );
+ my $dt = $iso8601->parse_datetime( '15:27:46.5+0100' );
is( $dt->hms, '15:27:46' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, '+0100' );
@@ -502,7 +502,7 @@
{
#hh:mm:ss.ss[+/-]hh:mm 15:27:46.5+01:00 15:27:46.5-05:00
- my $dt = DateTime::Format::ISO8601->parse_datetime( '15:27:46.5-05:00' );
+ my $dt = $iso8601->parse_datetime( '15:27:46.5-05:00' );
is( $dt->hms, '15:27:46' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, '-0500' );
@@ -510,49 +510,49 @@
{
#hhmmss[+/-]hh 152746+01 152746-05
- my $dt = DateTime::Format::ISO8601->parse_datetime( '152746+01' );
+ my $dt = $iso8601->parse_datetime( '152746+01' );
is( $dt->hms, '15:27:46' );
is( $dt->time_zone->name, '+0100' );
}
{
#hhmmss[+/-]hh 152746+01 152746-05
- my $dt = DateTime::Format::ISO8601->parse_datetime( '152746-05' );
+ my $dt = $iso8601->parse_datetime( '152746-05' );
is( $dt->hms, '15:27:46' );
is( $dt->time_zone->name, '-0500' );
}
{
#hh:mm:ss[+/-]hh 15:27:46+01 15:27:46-05
- my $dt = DateTime::Format::ISO8601->parse_datetime( '15:27:46+01' );
+ my $dt = $iso8601->parse_datetime( '15:27:46+01' );
is( $dt->hms, '15:27:46' );
is( $dt->time_zone->name, '+0100' );
}
{
#hh:mm:ss[+/-]hh 15:27:46+01 15:27:46-05
- my $dt = DateTime::Format::ISO8601->parse_datetime( '15:27:46-05' );
+ my $dt = $iso8601->parse_datetime( '15:27:46-05' );
is( $dt->hms, '15:27:46' );
is( $dt->time_zone->name, '-0500' );
}
{
#YYYYMMDDThhmmss 19850412T101530
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19850412T101530' );
+ my $dt = $iso8601->parse_datetime( '19850412T101530' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->time_zone->name, 'floating' );
}
{
#YYYY-MM-DDThh:mm:ss 1985-04-12T10:15:30
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04-12T10:15:30' );
+ my $dt = $iso8601->parse_datetime( '1985-04-12T10:15:30' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->time_zone->name, 'floating' );
}
{
#YYYYMMDDThhmmss.ss 19850412T101530.5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19850412T101530.5' );
+ my $dt = $iso8601->parse_datetime( '19850412T101530.5' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, 'floating' );
@@ -560,7 +560,7 @@
{
#YYYY-MM-DDThh:mm:ss.ss 1985-04-12T10:15:30.5
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04-12T10:15:30.5' );
+ my $dt = $iso8601->parse_datetime( '1985-04-12T10:15:30.5' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, 'floating' );
@@ -568,21 +568,21 @@
{
#YYYYMMDDThhmmssZ 19850412T101530Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19850412T101530Z' );
+ my $dt = $iso8601->parse_datetime( '19850412T101530Z' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->time_zone->name, 'UTC' );
}
{
#YYYY-MM-DDThh:mm:ssZ 1985-04-12T10:15:30Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04-12T10:15:30Z' );
+ my $dt = $iso8601->parse_datetime( '1985-04-12T10:15:30Z' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->time_zone->name, 'UTC' );
}
{
#YYYYMMDDThhmmss.ssZ 19850412T101530.5Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19850412T101530.5Z' );
+ my $dt = $iso8601->parse_datetime( '19850412T101530.5Z' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, 'UTC' );
@@ -590,7 +590,7 @@
{
#YYYY-MM-DDThh:mm:ss.ssZ 1985-04-12T10:15:30.5Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04-12T10:15:30.5Z' );
+ my $dt = $iso8601->parse_datetime( '1985-04-12T10:15:30.5Z' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, 'UTC' );
@@ -599,21 +599,21 @@
{
#YYYYMMDDThhmmss+hhmm 19850412T101530+0400
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19850412T101530+0400' );
+ my $dt = $iso8601->parse_datetime( '19850412T101530+0400' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->time_zone->name, '+0400' );
}
{
#YYYY-MM-DDThh:mm:ss+hh:mm 1985-04-12T10:15:30+04:00
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04-12T10:15:30+04:00' );
+ my $dt = $iso8601->parse_datetime( '1985-04-12T10:15:30+04:00' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->time_zone->name, '+0400' );
}
{
#YYYYMMDDThhmmss.ss+hhmm 19850412T101530.5+0400
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19850412T101530.5+0400' );
+ my $dt = $iso8601->parse_datetime( '19850412T101530.5+0400' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, '+0400' );
@@ -621,7 +621,7 @@
{
#YYYY-MM-DDThh:mm:ss.ss+hh:mm 1985-04-12T10:15:30.5+04:00
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04-12T10:15:30.5+04:00' );
+ my $dt = $iso8601->parse_datetime( '1985-04-12T10:15:30.5+04:00' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->nanosecond, 500_000_000 );
is( $dt->time_zone->name, '+0400' );
@@ -630,56 +630,56 @@
{
#YYYYMMDDThhmmss+hh 19850412T101530+04
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19850412T101530+04' );
+ my $dt = $iso8601->parse_datetime( '19850412T101530+04' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->time_zone->name, '+0400' );
}
{
#YYYY-MM-DDThh:mm:ss+hh 1985-04-12T10:15:30+04
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04-12T10:15:30+04' );
+ my $dt = $iso8601->parse_datetime( '1985-04-12T10:15:30+04' );
is( $dt->iso8601, '1985-04-12T10:15:30' );
is( $dt->time_zone->name, '+0400' );
}
{
#YYYYMMDDThhmm 19850412T1015
- my $dt = DateTime::Format::ISO8601->parse_datetime( '19850412T1015' );
+ my $dt = $iso8601->parse_datetime( '19850412T1015' );
is( $dt->iso8601, '1985-04-12T10:15:00' );
is( $dt->time_zone->name, 'floating' );
}
{
#YYYY-MM-DDThh:mm 1985-04-12T10:15
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-04-12T10:15' );
+ my $dt = $iso8601->parse_datetime( '1985-04-12T10:15' );
is( $dt->iso8601, '1985-04-12T10:15:00' );
is( $dt->time_zone->name, 'floating' );
}
{
#YYYYDDDThhmmZ 1985102T1015Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985102T1015Z' );
+ my $dt = $iso8601->parse_datetime( '1985102T1015Z' );
is( $dt->iso8601, '1985-04-12T10:15:00' );
is( $dt->time_zone->name, 'UTC' );
}
{
#YYYY-DDDThh:mmZ 1985-102T10:15Z
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-102T10:15Z' );
+ my $dt = $iso8601->parse_datetime( '1985-102T10:15Z' );
is( $dt->iso8601, '1985-04-12T10:15:00' );
is( $dt->time_zone->name, 'UTC' );
}
{
#YYYYWwwDThhmm+hhmm 1985W155T1015+0400
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985W155T1015+0400' );
+ my $dt = $iso8601->parse_datetime( '1985W155T1015+0400' );
is( $dt->iso8601, '1985-04-12T10:15:00' );
is( $dt->time_zone->name, '+0400' );
}
{
#YYYY-Www-DThh:mm+hh 1985-W15-5T10:15+04
- my $dt = DateTime::Format::ISO8601->parse_datetime( '1985-W15-5T10:15+04' );
+ my $dt = $iso8601->parse_datetime( '1985-W15-5T10:15+04' );
is( $dt->iso8601, '1985-04-12T10:15:00' );
is( $dt->time_zone->name, '+0400' );
}
@@ -688,37 +688,37 @@
{
#hhmmss 232050
- my $dt = DateTime::Format::ISO8601->parse_time( '232050' );
+ my $dt = $iso8601->parse_time( '232050' );
is( $dt->hms, '23:20:50' );
}
{
#hhmm 2320
- my $dt = DateTime::Format::ISO8601->parse_time( '2320' );
+ my $dt = $iso8601->parse_time( '2320' );
is( $dt->hms, '23:20:00' );
}
{
#hh 23
- my $dt = DateTime::Format::ISO8601->parse_time( '23' );
+ my $dt = $iso8601->parse_time( '23' );
is( $dt->hms, '23:00:00' );
}
{
#-mmss -2050
- my $dt = DateTime::Format::ISO8601->parse_time( '-2050' );
+ my $dt = $iso8601->parse_time( '-2050' );
is( $dt->minute, '20' );
is( $dt->second, '50' );
}
{
#-mm -20
- my $dt = DateTime::Format::ISO8601->parse_time( '-20' );
+ my $dt = $iso8601->parse_time( '-20' );
is( $dt->minute, '20' );
}
{
#--ss --50
- my $dt = DateTime::Format::ISO8601->parse_time( '--50' );
+ my $dt = $iso8601->parse_time( '--50' );
is( $dt->second, '50' );
}
More information about the Pkg-perl-cvs-commits
mailing list