r5238 - in
/packages/libdatetime-format-pg-perl/branches/upstream/current:
./ lib/DateTime/Format/ t/
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Fri Apr 20 12:19:56 UTC 2007
Author: eloy
Date: Fri Apr 20 12:19:56 2007
New Revision: 5238
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5238
Log:
[svn-upgrade] Integrating new upstream version, libdatetime-format-pg-perl (0.15)
Added:
packages/libdatetime-format-pg-perl/branches/upstream/current/t/self_circle.t
Modified:
packages/libdatetime-format-pg-perl/branches/upstream/current/Changes
packages/libdatetime-format-pg-perl/branches/upstream/current/MANIFEST
packages/libdatetime-format-pg-perl/branches/upstream/current/META.yml
packages/libdatetime-format-pg-perl/branches/upstream/current/Makefile.PL
packages/libdatetime-format-pg-perl/branches/upstream/current/README
packages/libdatetime-format-pg-perl/branches/upstream/current/lib/DateTime/Format/Pg.pm
packages/libdatetime-format-pg-perl/branches/upstream/current/t/1basic.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/2new-param.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_date.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_datetime.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_interval.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_date.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime2.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_infinity.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_interval.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_time.t
packages/libdatetime-format-pg-perl/branches/upstream/current/t/tz_1901_2038.t
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/Changes?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/Changes (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/Changes Fri Apr 20 12:19:56 2007
@@ -1,4 +1,10 @@
Revision history for Perl extension DateTime::Format::Pg.
+
+0.15 Fri Mar 23 12:00:00 2007
+ - Fix s/infinite/infinity/g (#25181, reported by Neil Bertram / CFAERBER))
+
+0.14 Thu Mar 22 20:30:00 2007
+ - Fix self circling (format -> parse) (#25642, reported by ANDREMAR)
0.13 Mon Jul 10 16:00:00 2006
- stupid me cut n' pasted POD tests from other package. yuck.
@@ -49,4 +55,4 @@
- original version; created by h2xs 1.22 with options
-X -n DateTime::Format::Pg
-$Id: /mirror/DateTime-Format-Pg/Changes 1956 2006-07-09T03:50:55.392684Z lestrrat $
+$Id: Changes 3644 2007-03-22 11:23:33Z lestrrat $
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/MANIFEST?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/MANIFEST Fri Apr 20 12:19:56 2007
@@ -2,10 +2,13 @@
lib/DateTime/Format/Pg.pm
LICENSE
Makefile.PL
-MANIFEST
+MANIFEST This list of files
+META.yml
README
t/1basic.t
t/2new-param.t
+t/99-pod-coverage.t
+t/99-pod.t
t/format_date.t
t/format_datetime.t
t/format_interval.t
@@ -15,7 +18,5 @@
t/parse_infinity.t
t/parse_interval.t
t/parse_time.t
+t/self_circle.t
t/tz_1901_2038.t
-t/99-pod.t
-t/99-pod-coverage.t
-META.yml Module meta-data (added by MakeMaker)
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/META.yml?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/META.yml (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/META.yml Fri Apr 20 12:19:56 2007
@@ -1,13 +1,16 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: DateTime-Format-Pg
-version: 0.13
-version_from: lib/DateTime/Format/Pg.pm
-installdirs: site
-requires:
+--- #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
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
+author:
+ - Daisuke Maki <dmaki at cpan.org>
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/Makefile.PL?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/Makefile.PL (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/Makefile.PL Fri Apr 20 12:19:56 2007
@@ -1,5 +1,5 @@
use ExtUtils::MakeMaker;
-# $Id: /mirror/DateTime-Format-Pg/Makefile.PL 1657 2006-07-05T09:05:27.608871Z lestrrat $
+# $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(
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/README?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/README (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/README Fri Apr 20 12:19:56 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: /mirror/DateTime-Format-Pg/README 1644 2005-03-16T16:13:19.000000Z cfaerber $
+$Id: README 1055 2005-03-16 16:13:19Z cfaerber $
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/lib/DateTime/Format/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/lib/DateTime/Format/Pg.pm?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/lib/DateTime/Format/Pg.pm (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/lib/DateTime/Format/Pg.pm Fri Apr 20 12:19:56 2007
@@ -1,5 +1,5 @@
package DateTime::Format::Pg;
-# $Id: /mirror/DateTime-Format-Pg/lib/DateTime/Format/Pg.pm 1956 2006-07-09T03:50:55.392684Z lestrrat $
+# $Id: Pg.pm 3644 2007-03-22 11:23:33Z lestrrat $
use strict;
use vars qw ($VERSION);
@@ -12,7 +12,7 @@
use DateTime::TimeZone::UTC;
use DateTime::TimeZone::Floating;
-$VERSION = '0.13';
+$VERSION = '0.15';
$VERSION = eval $VERSION;
our @ISA = ('DateTime::Format::Builder');
@@ -338,8 +338,9 @@
# Numerical time zone
#
- elsif($args{'parsed'}->{'time_zone'} =~ m/^[-\+]\d+(:\d+)?$/) {
- $args{'parsed'}->{'time_zone'} .= ':00' unless $1;
+
+ elsif($args{'parsed'}->{'time_zone'} =~ m/^[-\+](\d+)(:\d+)?$/) {
+ $args{'parsed'}->{'time_zone'} .= ':00' if !$2 && length($1) == 2;
}
# Non-numerical time zone returned, which can be ambiguous :(
@@ -349,7 +350,7 @@
my $stz = $args{'self'}->_server_tz($args{'args'} ? @{$args{'args'}} : ());
$args{'parsed'}->{'time_zone'} = $stz || 'floating';
}
-
+
return 1;
}
@@ -720,7 +721,7 @@
{
my ($self,$dt,%param) = @_;
if($dt->is_infinite) {
- return $dt->isa('DateTime::Infinite::Future') ? 'infinite' : '-infinite';
+ return $dt->isa('DateTime::Infinite::Future') ? 'infinity' : '-infinity';
} elsif($dt->year()<=0) {
return sprintf('%04d-%02d-%02d %s BC',
1-$dt->year(),
@@ -753,7 +754,7 @@
{
my ($self,$dt,%param) = @_;
if($dt->is_infinite) {
- return $dt->isa('DateTime::Infinite::Future') ? 'infinite' : '-infinite';
+ return $dt->isa('DateTime::Infinite::Future') ? 'infinity' : '-infinity';
} elsif($dt->year()<=0) {
return sprintf('%04d-%02d-%02d',
1-$dt->year(),
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/1basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/1basic.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/1basic.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/1basic.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/1basic.t 1632 2003-05-30T14:04:49.000000Z cfaerber $
+# $Id: 1basic.t 1039 2003-05-30 14:04:49Z cfaerber $
use Test::More tests => 3;
BEGIN {
use_ok('DateTime::Format::Pg')
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/2new-param.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/2new-param.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/2new-param.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/2new-param.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/2new-param.t 1632 2003-05-30T14:04:49.000000Z cfaerber $
+# $Id: 2new-param.t 1039 2003-05-30 14:04:49Z cfaerber $
use Test::More tests => 2;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_date.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_date.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_date.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_date.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/format_date.t 1632 2003-05-30T14:04:49.000000Z cfaerber $
+# $Id: format_date.t 1039 2003-05-30 14:04:49Z cfaerber $
use Test::More tests => 3;
use DateTime 0.10;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_datetime.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_datetime.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_datetime.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_datetime.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/format_datetime.t 1646 2005-09-02T21:38:59.000000Z lestrrat $
+# $Id: format_datetime.t 1058 2005-09-02 21:38:59Z lestrrat $
use Test::More tests => 11;
use DateTime 0.10;
use DateTime::TimeZone;
@@ -78,21 +78,21 @@
is(
DateTime::Format::Pg->format_datetime(DateTime::Infinite::Future->new),
- 'infinite'
+ 'infinity'
);
is(
DateTime::Format::Pg->format_timestamp(DateTime::Infinite::Future->new),
- 'infinite'
+ 'infinity'
);
is(
DateTime::Format::Pg->format_datetime(DateTime::Infinite::Past->new),
- '-infinite'
+ '-infinity'
);
is(
DateTime::Format::Pg->format_timestamp(DateTime::Infinite::Past->new),
- '-infinite'
+ '-infinity'
);
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_interval.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_interval.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_interval.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/format_interval.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/format_interval.t 1651 2006-03-31T22:04:06.595671Z lestrrat $
+# $Id: format_interval.t 3403 2006-03-31 22:04:06Z lestrrat $
use Test::More tests => 4;
use DateTime 0.10;
use DateTime::Duration;
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_date.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_date.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_date.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_date.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/parse_date.t 1632 2003-05-30T14:04:49.000000Z cfaerber $
+# $Id: parse_date.t 1039 2003-05-30 14:04:49Z cfaerber $
use Test::More tests => 18;
use DateTime 0.10;
use DateTime::TimeZone 0.12;
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/parse_datetime.t 1638 2003-07-16T13:42:35.000000Z cfaerber $
+# $Id: parse_datetime.t 1046 2003-07-16 13:42:35Z cfaerber $
use Test::More tests => 8;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime2.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime2.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime2.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_datetime2.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/parse_datetime2.t 1645 2005-03-16T16:50:40.000000Z cfaerber $
+# $Id: parse_datetime2.t 1057 2005-03-16 16:50:40Z cfaerber $
use Test::More tests => 8;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_infinity.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_infinity.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_infinity.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_infinity.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/parse_infinity.t 1649 2006-01-07T00:45:49.000000Z lestrrat $
+# $Id: parse_infinity.t 1061 2006-01-07 00:45:49Z lestrrat $
use Test::More tests => 4;
use DateTime::Format::Pg 0.02;
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_interval.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_interval.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_interval.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_interval.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/parse_interval.t 1648 2006-01-07T00:40:52.000000Z lestrrat $
+# $Id: parse_interval.t 1060 2006-01-07 00:40:52Z lestrrat $
use strict;
use Test::More tests => 30;
use DateTime;
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_time.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_time.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_time.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/parse_time.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/parse_time.t 1644 2005-03-16T16:13:19.000000Z cfaerber $
+# $Id: parse_time.t 1055 2005-03-16 16:13:19Z cfaerber $
use Test::More tests => 10;
use DateTime::Format::Pg 0.08;
Added: packages/libdatetime-format-pg-perl/branches/upstream/current/t/self_circle.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/self_circle.t?rev=5238&op=file
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/self_circle.t (added)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/self_circle.t Fri Apr 20 12:19:56 2007
@@ -1,0 +1,19 @@
+use strict;
+use Test::More tests => 4;
+use DateTime::Format::Pg 0.02;
+
+my @ts = (
+ "2007-03-10 06:00:00+01",
+ "2007-03-10 06:00:00-0100",
+);
+
+foreach my $ts (@ts) {
+ my $dt = DateTime::Format::Pg->parse_datetime($ts);
+ my $dt_formated = DateTime::Format::Pg->format_datetime($dt);
+
+ # Pg will truncate timezone like +0100 to +01
+ $ts =~ s/([+\-]\d{2})$/${1}00/;
+ is($dt_formated, $ts, "format ok");
+ ok(DateTime::Format::Pg->parse_datetime($dt_formated));
+
+}
Modified: packages/libdatetime-format-pg-perl/branches/upstream/current/t/tz_1901_2038.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdatetime-format-pg-perl/branches/upstream/current/t/tz_1901_2038.t?rev=5238&op=diff
==============================================================================
--- packages/libdatetime-format-pg-perl/branches/upstream/current/t/tz_1901_2038.t (original)
+++ packages/libdatetime-format-pg-perl/branches/upstream/current/t/tz_1901_2038.t Fri Apr 20 12:19:56 2007
@@ -1,4 +1,4 @@
-# $Id: /mirror/DateTime-Format-Pg/t/tz_1901_2038.t 1632 2003-05-30T14:04:49.000000Z cfaerber $
+# $Id: tz_1901_2038.t 1039 2003-05-30 14:04:49Z 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