r5676 - in /packages/libdatetime-format-pg-perl/trunk: ./ debian/ inc/ lib/DateTime/Format/ t/
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Thu Jun 28 17:53:13 UTC 2007
Author: rmayorga-guest
Date: Thu Jun 28 17:53:13 2007
New Revision: 5676
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5676
Log:
* Updated to last upstream version
Added:
packages/libdatetime-format-pg-perl/trunk/inc/
- copied from r5675, packages/libdatetime-format-pg-perl/branches/upstream/current/inc/
Modified:
packages/libdatetime-format-pg-perl/trunk/Changes
packages/libdatetime-format-pg-perl/trunk/MANIFEST
packages/libdatetime-format-pg-perl/trunk/META.yml
packages/libdatetime-format-pg-perl/trunk/Makefile.PL
packages/libdatetime-format-pg-perl/trunk/README
packages/libdatetime-format-pg-perl/trunk/debian/changelog
packages/libdatetime-format-pg-perl/trunk/debian/control
packages/libdatetime-format-pg-perl/trunk/lib/DateTime/Format/Pg.pm
packages/libdatetime-format-pg-perl/trunk/t/1basic.t
packages/libdatetime-format-pg-perl/trunk/t/2new-param.t
packages/libdatetime-format-pg-perl/trunk/t/format_date.t
packages/libdatetime-format-pg-perl/trunk/t/format_datetime.t
packages/libdatetime-format-pg-perl/trunk/t/format_interval.t
packages/libdatetime-format-pg-perl/trunk/t/parse_date.t
packages/libdatetime-format-pg-perl/trunk/t/parse_datetime.t
packages/libdatetime-format-pg-perl/trunk/t/parse_datetime2.t
packages/libdatetime-format-pg-perl/trunk/t/parse_infinity.t
packages/libdatetime-format-pg-perl/trunk/t/parse_interval.t
packages/libdatetime-format-pg-perl/trunk/t/parse_time.t
packages/libdatetime-format-pg-perl/trunk/t/tz_1901_2038.t
Modified: packages/libdatetime-format-pg-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/Changes?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/Changes (original)
+++ packages/libdatetime-format-pg-perl/trunk/Changes Thu Jun 28 17:53:13 2007
@@ -1,4 +1,13 @@
Revision history for Perl extension DateTime::Format::Pg.
+
+0.16001 Tue May 22 21:00:00 2007
+ - Attempt to get this right (#27222, reported by GHENRY).
+ We now allow two hour digits to contain a preceding zero, but for
+ hours with more than 3 digits, a preceding zero is an error.
+
+0.16 Tue May 22 12:00:00 2007
+ - Fix handling of intervals > 99 hours. (#27222, reported by GHENRY)
+ - Migrate to Module::Install
0.15 Fri Mar 23 12:00:00 2007
- Fix s/infinite/infinity/g (#25181, reported by Neil Bertram / CFAERBER))
@@ -55,4 +64,4 @@
- original version; created by h2xs 1.22 with options
-X -n DateTime::Format::Pg
-$Id: Changes 3644 2007-03-22 11:23:33Z lestrrat $
+$Id: /local/datetime/modules/DateTime-Format-Pg/trunk/Changes 11394 2007-05-22T11:20:32.433780Z daisuke $
Modified: packages/libdatetime-format-pg-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/MANIFEST?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/MANIFEST (original)
+++ packages/libdatetime-format-pg-perl/trunk/MANIFEST Thu Jun 28 17:53:13 2007
@@ -1,4 +1,15 @@
Changes
+inc/Module/AutoInstall.pm
+inc/Module/Install.pm
+inc/Module/Install/AutoInstall.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
lib/DateTime/Format/Pg.pm
LICENSE
Makefile.PL
Modified: packages/libdatetime-format-pg-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/META.yml?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/META.yml (original)
+++ packages/libdatetime-format-pg-perl/trunk/META.yml Thu Jun 28 17:53:13 2007
@@ -1,16 +1,19 @@
---- #YAML:1.0
-name: DateTime-Format-Pg
-version: 0.15
-abstract: Parse and format PostgreSQL dates and times
-license: ~
-generated_by: ExtUtils::MakeMaker version 6.31
-distribution_type: module
-requires:
- DateTime: 0.1
- DateTime::Format::Builder: 0.72
- DateTime::TimeZone: 0.05
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
-author:
- - Daisuke Maki <dmaki at cpan.org>
+---
+abstract: Parse and format PostgreSQL dates and times
+author: "Claus A. F\xE4rber <perl at faerber.muc.de>"
+distribution_type: module
+generated_by: Module::Install version 0.67
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
+name: DateTime-Format-Pg
+no_index:
+ directory:
+ - inc
+ - t
+requires:
+ DateTime: 0.10
+ DateTime::Format::Builder: 0.72
+ DateTime::TimeZone: 0.05
+version: 0.16001
Modified: packages/libdatetime-format-pg-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/Makefile.PL?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/Makefile.PL (original)
+++ packages/libdatetime-format-pg-perl/trunk/Makefile.PL Thu Jun 28 17:53:13 2007
@@ -1,16 +1,12 @@
-use ExtUtils::MakeMaker;
-# $Id: Makefile.PL 3433 2006-07-05 09:05:27Z lestrrat $
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- 'NAME' => 'DateTime::Format::Pg',
- 'VERSION_FROM' => 'lib/DateTime/Format/Pg.pm', # finds $VERSION
- 'PREREQ_PM' => {
- 'DateTime' => 0.10,
- 'DateTime::Format::Builder' => 0.72,
- 'DateTime::TimeZone' => 0.05,
- },
- ($] >= 5.005 ? ## Add these new keywords supported since 5.005
- (ABSTRACT_FROM => 'lib/DateTime/Format/Pg.pm', # retrieve abstract from module
- AUTHOR => 'Daisuke Maki <dmaki at cpan.org>') : ()),
-);
+use strict;
+use inc::Module::Install;
+
+name('DateTime-Format-Pg');
+all_from('lib/DateTime/Format/Pg.pm');
+
+requires 'DateTime' => '0.10';
+requires 'DateTime::Format::Builder' => '0.72';
+requires 'DateTime::TimeZone' => '0.05';
+auto_install;
+WriteAll;
+
Modified: packages/libdatetime-format-pg-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/README?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/README (original)
+++ packages/libdatetime-format-pg-perl/trunk/README Thu Jun 28 17:53:13 2007
@@ -28,4 +28,4 @@
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
-$Id: README 1055 2005-03-16 16:13:19Z cfaerber $
+$Id: /local/datetime/modules/DateTime-Format-Pg/trunk/README 8444 2005-03-16T16:13:19.000000Z cfaerber $
Modified: packages/libdatetime-format-pg-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/debian/changelog?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/debian/changelog (original)
+++ packages/libdatetime-format-pg-perl/trunk/debian/changelog Thu Jun 28 17:53:13 2007
@@ -1,3 +1,11 @@
+libdatetime-format-pg-perl (0.16001-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+ * Added myself to uploaders
+ * Homepage added to debian/control
+
+ -- Rene Mayorga <rmayorga at debian.org.sv> Thu, 28 Jun 2007 11:27:34 -0600
+
libdatetime-format-pg-perl (0.15-1) unstable; urgency=low
* New upstream release
Modified: packages/libdatetime-format-pg-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/debian/control?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/debian/control (original)
+++ packages/libdatetime-format-pg-perl/trunk/debian/control Thu Jun 28 17:53:13 2007
@@ -4,7 +4,7 @@
Build-Depends: debhelper (>= 5.0.0)
Build-Depends-Indep: libdatetime-perl, libdatetime-timezone-perl, libdatetime-format-builder-perl, libtest-pod-perl, libtest-pod-coverage-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: gregor herrmann <gregor+debian at comodo.priv.at>, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+Uploaders: gregor herrmann <gregor+debian at comodo.priv.at>, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>, Rene Mayorga <rmayorga at debian.org.sv>
Standards-Version: 3.7.2
XS-Vcs-Svn: svn://svn.debian.org/pkg-perl/packages/libdatetime-format-pg-perl/trunk/
@@ -17,3 +17,5 @@
order to create DateTime or DateTime::Duration objects, and it can take a
DateTime or DateTime::Duration object and produce a string representing
it in a format accepted by PostgreSQL.
+ .
+ Homepage: http://search.cpan.org/dist/DateTime-Format-Pg/
Modified: packages/libdatetime-format-pg-perl/trunk/lib/DateTime/Format/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/lib/DateTime/Format/Pg.pm?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/lib/DateTime/Format/Pg.pm (original)
+++ packages/libdatetime-format-pg-perl/trunk/lib/DateTime/Format/Pg.pm Thu Jun 28 17:53:13 2007
@@ -1,5 +1,5 @@
package DateTime::Format::Pg;
-# $Id: Pg.pm 3644 2007-03-22 11:23:33Z lestrrat $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/lib/DateTime/Format/Pg.pm 11394 2007-05-22T11:20:32.433780Z daisuke $
use strict;
use vars qw ($VERSION);
@@ -12,7 +12,7 @@
use DateTime::TimeZone::UTC;
use DateTime::TimeZone::Floating;
-$VERSION = '0.15';
+$VERSION = '0.16001';
$VERSION = eval $VERSION;
our @ISA = ('DateTime::Format::Builder');
@@ -560,7 +560,7 @@
(?:([-+]?\d+)\s+days?\s*)? # days
(?: # Start h/m/s
# hours
- (?:([-+])?([012345]\d(?=:)|\d+(?=\s+hour))(?:\s+hours?)?\s*)?
+ (?:([-+])?([0-9]\d|[1-9]\d{2,}(?=:)|\d+(?=\s+hour))(?:\s+hours?)?\s*)?
# minutes
(?::?((?<=:)[012345]\d|\d+(?=\s+mins?))(?:\s+mins?)?\s*)?
# seconds
@@ -568,7 +568,7 @@
?) # End hh:mm:ss
(ago)? # Optional inversion
\z # End of string
- }xms or croak 'Invalid interval string';
+ }xms or croak "Invalid interval string $string";
# NB: We can't just pass our values to new() because it treats all
# arguments as negative if we have a single negative component.
@@ -585,10 +585,7 @@
# HH:MM:SS.FFFF share a single sign
if ($sgn && $sgn eq '-') {
- $sgn = -1;
- $_ *= $sgn for $min, $sec, $frc;
- } else {
- $sgn = 1;
+ $_ *= -1 for $min, $sec, $frc;
}
$du->add(
@@ -887,11 +884,11 @@
Claus A. Färber <perl at faerber.muc.de>
-Currently maintained by Daisuke Maki E<lt>dmaki at cpan.orgE<gt>
+Currently maintained by Daisuke Maki E<lt>daisuke at endeworks.jpE<gt>
=head1 COPYRIGHT
-Copyright © 2003 Claus A. Färber. All rights reserved.
+Copyright © 2003 Claus A. Färber. Copyright (c) 2005-2007 Daisuke Maki
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
Modified: packages/libdatetime-format-pg-perl/trunk/t/1basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/1basic.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/1basic.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/1basic.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: 1basic.t 1039 2003-05-30 14:04:49Z cfaerber $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/1basic.t 8428 2003-05-30T14:04:49.000000Z cfaerber $
use Test::More tests => 3;
BEGIN {
use_ok('DateTime::Format::Pg')
Modified: packages/libdatetime-format-pg-perl/trunk/t/2new-param.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/2new-param.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/2new-param.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/2new-param.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: 2new-param.t 1039 2003-05-30 14:04:49Z cfaerber $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/2new-param.t 8428 2003-05-30T14:04:49.000000Z cfaerber $
use Test::More tests => 2;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/trunk/t/format_date.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/format_date.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/format_date.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/format_date.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: format_date.t 1039 2003-05-30 14:04:49Z cfaerber $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/format_date.t 8428 2003-05-30T14:04:49.000000Z cfaerber $
use Test::More tests => 3;
use DateTime 0.10;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/trunk/t/format_datetime.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/format_datetime.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/format_datetime.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/format_datetime.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: format_datetime.t 1058 2005-09-02 21:38:59Z lestrrat $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/format_datetime.t 11034 2007-03-23T03:01:42.879913Z lestrrat $
use Test::More tests => 11;
use DateTime 0.10;
use DateTime::TimeZone;
Modified: packages/libdatetime-format-pg-perl/trunk/t/format_interval.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/format_interval.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/format_interval.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/format_interval.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: format_interval.t 3403 2006-03-31 22:04:06Z lestrrat $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/format_interval.t 10792 2006-03-31T22:04:06.595671Z lestrrat $
use Test::More tests => 4;
use DateTime 0.10;
use DateTime::Duration;
Modified: packages/libdatetime-format-pg-perl/trunk/t/parse_date.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/parse_date.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/parse_date.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/parse_date.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: parse_date.t 1039 2003-05-30 14:04:49Z cfaerber $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/parse_date.t 8428 2003-05-30T14:04:49.000000Z cfaerber $
use Test::More tests => 18;
use DateTime 0.10;
use DateTime::TimeZone 0.12;
Modified: packages/libdatetime-format-pg-perl/trunk/t/parse_datetime.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/parse_datetime.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/parse_datetime.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/parse_datetime.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: parse_datetime.t 1046 2003-07-16 13:42:35Z cfaerber $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/parse_datetime.t 8435 2003-07-16T13:42:35.000000Z cfaerber $
use Test::More tests => 8;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/trunk/t/parse_datetime2.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/parse_datetime2.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/parse_datetime2.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/parse_datetime2.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: parse_datetime2.t 1057 2005-03-16 16:50:40Z cfaerber $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/parse_datetime2.t 8446 2005-03-16T16:50:40.000000Z cfaerber $
use Test::More tests => 8;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/trunk/t/parse_infinity.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/parse_infinity.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/parse_infinity.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/parse_infinity.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: parse_infinity.t 1061 2006-01-07 00:45:49Z lestrrat $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/parse_infinity.t 8450 2006-01-07T00:45:49.000000Z lestrrat $
use Test::More tests => 4;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/trunk/t/parse_interval.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/parse_interval.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/parse_interval.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/parse_interval.t Thu Jun 28 17:53:13 2007
@@ -1,91 +1,122 @@
-# $Id: parse_interval.t 1060 2006-01-07 00:40:52Z lestrrat $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/parse_interval.t 11394 2007-05-22T11:20:32.433780Z daisuke $
use strict;
-use Test::More tests => 30;
+use Test::More;
use DateTime;
use DateTime::Duration;
use Data::Dumper;
-BEGIN {use_ok 'DateTime::Format::Pg' or die };
+my @positive_data;
+my @negative_data;
-for my $compare (
- [ '01:00:00' => DateTime::Duration->new( hours => 1 ) ],
- [ '-08:00:00' => DateTime::Duration->new( hours => -8 ) ],
- [ '-1 days' => DateTime::Duration->new(days => -1) ],
- [ '-23:59' => DateTime::Duration->new(hours => -23, minutes => -59) ],
- [ '-1 days -00:01' => DateTime::Duration->new( days => -1, minutes => -1) ],
- [ '1 mon -1 days' => DateTime::Duration->new(months => 1)->add(days => -1) ],
- [ '@ 1 mon -1 days' => DateTime::Duration->new(months => 1)->add(days => -1) ],
- [ '-1 days +02:03:00' => DateTime::Duration->new(days => -1)
- ->add(
- hours => 2,
- minutes => 3,
- )
- ],
- ['9 years 1 mon -12 days +13:14:00' => DateTime::Duration->new(
- years => 9,
- months => 1,
- hours => 13,
- minutes => 14,
- )->add(days => -12)],
- [ '@ 1 day ago' => DateTime::Duration->new( days => -1 )],
- [ '@ 1 day 10 mins' => DateTime::Duration->new( days => 1, minutes => 10 )],
- [ '@ 23 hours 59 mins ago' => DateTime::Duration->new(
- hours => -23,
- minutes => -59
- )],
- [ '@ 1 day 1 min ago' => DateTime::Duration->new( days => -1, minutes => -1 )],
- [ '10 days' => DateTime::Duration->new(days => 10 ) ],
- [ '34 years' => DateTime::Duration->new(years => 34 )],
- [ '3 mons' => DateTime::Duration->new(months => 3 )],
- [ '-00:00:14' => DateTime::Duration->new(seconds => -14 )],
- [ '1 day 02:03:04' => DateTime::Duration->new(
- days => 1,
- hours => 2,
- minutes => 3,
- seconds => 4,
- )],
+BEGIN
+{
+ @negative_data = (
+ '098:08:00',
+ '1:08:00',
+ '-012:00:00',
+ );
- [ '5 mons 12:00:00' => DateTime::Duration->new( months => 5, hours => 12) ],
- [ '@ 1 min' => DateTime::Duration->new(minutes => 1 )],
- [ '@ 5 hours' => DateTime::Duration->new( hours => 5 )],
- [ '@ 34 years' => DateTime::Duration->new(years => 34 )],
- [ '@ 3 mons' => DateTime::Duration->new(months => 3 )],
- [ '@ 14 secs ago' => DateTime::Duration->new( seconds => -14 )],
- [ '@ 1 day 2 hours 3 mins 4 secs' => DateTime::Duration->new(
- days => 1,
- hours => 2,
- minutes => 3,
- seconds => 4,
- )],
+ @positive_data = (
+ [ '00:00:00' => DateTime::Duration->new() ],
+ [ '-08:08:00' => DateTime::Duration->new( hours => -8, minutes => -8) ],
+ [ '-98:08:00' => DateTime::Duration->new( hours => -98, minutes => -8) ],
+ [ '-100:33:00' => DateTime::Duration->new( hours => -100, minutes => -33) ],
+ [ '100:33:00' => DateTime::Duration->new( hours => 100, minutes => 33) ],
+ [ '01:00:00' => DateTime::Duration->new( hours => 1 ) ],
+ [ '-08:00:00' => DateTime::Duration->new( hours => -8 ) ],
+ [ '-1 days' => DateTime::Duration->new(days => -1) ],
+ [ '-23:59' => DateTime::Duration->new(hours => -23, minutes => -59) ],
+ [ '-1 days -00:01' => DateTime::Duration->new( days => -1, minutes => -1) ],
+ [ '1 mon -1 days' => DateTime::Duration->new(months => 1)->add(days => -1) ],
+ [ '@ 1 mon -1 days' => DateTime::Duration->new(months => 1)->add(days => -1) ],
+ [ '-1 days +02:03:00' => DateTime::Duration->new(days => -1)
+ ->add(
+ hours => 2,
+ minutes => 3,
+ )
+ ],
+ ['9 years 1 mon -12 days +13:14:00' => DateTime::Duration->new(
+ years => 9,
+ months => 1,
+ hours => 13,
+ minutes => 14,
+ )->add(days => -12)],
+ [ '@ 1 day ago' => DateTime::Duration->new( days => -1 )],
+ [ '@ 1 day 10 mins' => DateTime::Duration->new( days => 1, minutes => 10 )],
+ [ '@ 23 hours 59 mins ago' => DateTime::Duration->new(
+ hours => -23,
+ minutes => -59
+ )],
+ [ '@ 1 day 1 min ago' => DateTime::Duration->new( days => -1, minutes => -1 )],
+ [ '10 days' => DateTime::Duration->new(days => 10 ) ],
+ [ '34 years' => DateTime::Duration->new(years => 34 )],
+ [ '3 mons' => DateTime::Duration->new(months => 3 )],
+ [ '-00:00:14' => DateTime::Duration->new(seconds => -14 )],
+ [ '1 day 02:03:04' => DateTime::Duration->new(
+ days => 1,
+ hours => 2,
+ minutes => 3,
+ seconds => 4,
+ )],
+
+ [ '5 mons 12:00:00' => DateTime::Duration->new( months => 5, hours => 12) ],
+ [ '@ 1 min' => DateTime::Duration->new(minutes => 1 )],
+ [ '@ 5 hours' => DateTime::Duration->new( hours => 5 )],
+ [ '@ 34 years' => DateTime::Duration->new(years => 34 )],
+ [ '@ 3 mons' => DateTime::Duration->new(months => 3 )],
+ [ '@ 14 secs ago' => DateTime::Duration->new( seconds => -14 )],
+ [ '@ 1 day 2 hours 3 mins 4 secs' => DateTime::Duration->new(
+ days => 1,
+ hours => 2,
+ minutes => 3,
+ seconds => 4,
+ )],
+
+ [ '@ 5 mons 12 hours' => DateTime::Duration->new( hours => 12, months => 5) ],
+ [ '@ 4541 years 4 mons 4 days 17 mins 31 secs' => DateTime::Duration->new(
+ years => 4541,
+ months => 4,
+ days => 4,
+ minutes => 17,
+ seconds => 31,
+ )],
+
+ [ '@ 6 mons 5 days 4 hours 3 mins 2 secs' => DateTime::Duration->new(
+ months => 6,
+ days => 5,
+ hours => 4,
+ minutes => 3,
+ seconds => 2,
+ )],
- [ '@ 5 mons 12 hours' => DateTime::Duration->new( hours => 12, months => 5) ],
- [ '@ 4541 years 4 mons 4 days 17 mins 31 secs' => DateTime::Duration->new(
- years => 4541,
- months => 4,
- days => 4,
- minutes => 17,
- seconds => 31,
- )],
+ [ '1 days 02:03:00 ago' => DateTime::Duration->new(
+ days => -1,
+ hours => -2,
+ minutes => -3,
+ )],
+ );
- [ '@ 6 mons 5 days 4 hours 3 mins 2 secs' => DateTime::Duration->new(
- months => 6,
- days => 5,
- hours => 4,
- minutes => 3,
- seconds => 2,
- )],
-
- [ '1 days 02:03:00 ago' => DateTime::Duration->new(
- days => -1,
- hours => -2,
- minutes => -3,
- )],
-
-) {
- ok !DateTime::Duration->compare(
- DateTime::Format::Pg->parse_duration($compare->[0]),
- $compare->[1]
- ), "'$compare->[0]'"
- or diag Dumper {DateTime::Format::Pg->parse_duration($compare->[0])->deltas};
+ plan tests => @negative_data + @positive_data + 1;
+ use_ok 'DateTime::Format::Pg' or die;
}
+{ # Positive data
+ for my $compare (@positive_data) {
+ ok !DateTime::Duration->compare(
+ DateTime::Format::Pg->parse_duration($compare->[0]),
+ $compare->[1]
+ ), "'$compare->[0]'"
+ or diag
+ Dumper [
+ { DateTime::Format::Pg->parse_duration($compare->[0])->deltas },
+ { $compare->[1]->deltas }
+ ]
+ ;
+ }
+}
+
+{ # Negative data
+ for my $data (@negative_data) {
+ ok(! eval { DateTime::Format::Pg->parse_duration($data) } && $@, "'$data' fails to parse");
+ }
+}
Modified: packages/libdatetime-format-pg-perl/trunk/t/parse_time.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/parse_time.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/parse_time.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/parse_time.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: parse_time.t 1055 2005-03-16 16:13:19Z cfaerber $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/parse_time.t 8444 2005-03-16T16:13:19.000000Z cfaerber $
use Test::More tests => 10;
use DateTime::Format::Pg 0.08;
Modified: packages/libdatetime-format-pg-perl/trunk/t/tz_1901_2038.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/trunk/t/tz_1901_2038.t?rev=5676&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/trunk/t/tz_1901_2038.t (original)
+++ packages/libdatetime-format-pg-perl/trunk/t/tz_1901_2038.t Thu Jun 28 17:53:13 2007
@@ -1,4 +1,4 @@
-# $Id: tz_1901_2038.t 1039 2003-05-30 14:04:49Z cfaerber $
+# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/tz_1901_2038.t 8428 2003-05-30T14:04:49.000000Z cfaerber $
use Test::More tests => 4;
use DateTime 0.10;
use DateTime::TimeZone 0.12;
More information about the Pkg-perl-cvs-commits
mailing list