r74039 - in /trunk/libdatetime-perl: ./ debian/ lib/ lib/DateTime/ t/
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Thu May 5 16:44:48 UTC 2011
Author: periapt-guest
Date: Thu May 5 16:44:36 2011
New Revision: 74039
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74039
Log:
New upstream release
Removed:
trunk/libdatetime-perl/t/36invalid_local.t
trunk/libdatetime-perl/t/release-pp-36invalid_local.t
Modified:
trunk/libdatetime-perl/Build.PL
trunk/libdatetime-perl/Changes
trunk/libdatetime-perl/MANIFEST
trunk/libdatetime-perl/META.json
trunk/libdatetime-perl/META.yml
trunk/libdatetime-perl/README
trunk/libdatetime-perl/SIGNATURE
trunk/libdatetime-perl/debian/changelog
trunk/libdatetime-perl/dist.ini
trunk/libdatetime-perl/lib/DateTime.pm
trunk/libdatetime-perl/lib/DateTime/Duration.pm
trunk/libdatetime-perl/lib/DateTime/Helpers.pm
trunk/libdatetime-perl/lib/DateTime/Infinite.pm
trunk/libdatetime-perl/lib/DateTime/LeapSecond.pm
trunk/libdatetime-perl/lib/DateTimePP.pm
trunk/libdatetime-perl/lib/DateTimePPExtra.pm
trunk/libdatetime-perl/t/13strftime.t
trunk/libdatetime-perl/t/36invalid-local.t
trunk/libdatetime-perl/t/release-cpan-changes.t
trunk/libdatetime-perl/t/release-pp-13strftime.t
trunk/libdatetime-perl/t/release-pp-36invalid-local.t
Modified: trunk/libdatetime-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/Build.PL?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/Build.PL (original)
+++ trunk/libdatetime-perl/Build.PL Thu May 5 16:44:36 2011
@@ -22,7 +22,7 @@
'Dave Rolsky <autarch at urth.org>'
],
'dist_name' => 'DateTime',
- 'dist_version' => '0.68',
+ 'dist_version' => '0.69',
'license' => 'artistic_2',
'module_name' => 'DateTime',
'recommends' => {},
Modified: trunk/libdatetime-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/Changes?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/Changes (original)
+++ trunk/libdatetime-perl/Changes Thu May 5 16:44:36 2011
@@ -1,3 +1,10 @@
+0.69 2011-05-03
+
+- When a DateTime object had nanoseconds == 0, the %N strftime specifier
+ always returned "0" regardless of the precision requested. Reported by John
+ Siracusa. RT #67928.
+
+
0.68 2011-04-25
- The tests for %N in the last release relied on the vagaries of floating
Modified: trunk/libdatetime-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/MANIFEST?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/MANIFEST (original)
+++ trunk/libdatetime-perl/MANIFEST Thu May 5 16:44:36 2011
@@ -58,7 +58,6 @@
t/34set-tz.t
t/35rd-values.t
t/36invalid-local.t
-t/36invalid_local.t
t/37local-add.t
t/38local-subtract.t
t/39no-so.t
@@ -109,7 +108,6 @@
t/release-pp-34set-tz.t
t/release-pp-35rd-values.t
t/release-pp-36invalid-local.t
-t/release-pp-36invalid_local.t
t/release-pp-37local-add.t
t/release-pp-38local-subtract.t
t/release-pp-40leap-years.t
Modified: trunk/libdatetime-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/META.json?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/META.json (original)
+++ trunk/libdatetime-perl/META.json Thu May 5 16:44:36 2011
@@ -4,7 +4,7 @@
"Dave Rolsky <autarch at urth.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.200004, CPAN::Meta::Converter version 2.110580",
+ "generated_by" : "Dist::Zilla version 4.200006, CPAN::Meta::Converter version 2.110930",
"license" : [
"artistic_2"
],
@@ -52,6 +52,6 @@
"web" : "http://hg.urth.org/hg/DateTime.pm"
}
},
- "version" : "0.68"
+ "version" : "0.69"
}
Modified: trunk/libdatetime-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/META.yml?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/META.yml (original)
+++ trunk/libdatetime-perl/META.yml Thu May 5 16:44:36 2011
@@ -11,7 +11,7 @@
configure_requires:
Module::Build: 0.3601
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200004, CPAN::Meta::Converter version 2.110580'
+generated_by: 'Dist::Zilla version 4.200006, CPAN::Meta::Converter version 2.110930'
license: artistic_2
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -28,4 +28,4 @@
resources:
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=DateTime
repository: http://hg.urth.org/hg/DateTime.pm
-version: 0.68
+version: 0.69
Modified: trunk/libdatetime-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/README?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/README (original)
+++ trunk/libdatetime-perl/README Thu May 5 16:44:36 2011
@@ -1,7 +1,7 @@
This archive contains the distribution DateTime,
-version 0.68:
+version 0.69:
A date and time object
Modified: trunk/libdatetime-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/SIGNATURE?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/SIGNATURE (original)
+++ trunk/libdatetime-perl/SIGNATURE Thu May 5 16:44:36 2011
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.66.
+signed via the Module::Signature module, version 0.67.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -14,29 +14,29 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 5105196598d3b972e074864622fed687a3ae731c Build.PL
+SHA1 3de2505fcdb67ce87c9aba585fd0d687aca24919 Build.PL
SHA1 c951898b770a16da2897d908ab6f9f72057bd570 CREDITS
-SHA1 6cd3bf5617785dfbde1c47a46b984282a9e494dc Changes
+SHA1 ccda75458a2d4b92cbf1f5a18ece4c71ee540b3f Changes
SHA1 c5f2b8434452ecd4c943c59ae2a95abb9d75332d INSTALL
SHA1 c715d20265d2931c7564fc64abfdc4f8ff33e297 LICENSE
-SHA1 3bf9718f28d341b3df7d8b35a030b3b3e18eafed MANIFEST
-SHA1 4dd0d78c2dbc69138c4be13705e9906367f82113 META.json
-SHA1 6edc6900bfefd93d92172a58212223738d9e17d2 META.yml
-SHA1 dfd8e89f77ff3581b64d2c2c9342d100608b0498 README
+SHA1 7b4605ca7b50ec52d5a3876ecdf3a932bf6ad709 MANIFEST
+SHA1 70d8a731e6d3b23b15729a573a9ece3c56c4077d META.json
+SHA1 692c9e0b8c636262c56bab7c681ecc1cf228a744 META.yml
+SHA1 600a257c6373abba1e1ddbd6fbf20deff06cd071 README
SHA1 bfc70fbe8fa29484452bea8c2ed4afd55218f2c2 TODO
SHA1 b67b906c9fbaab9ccac635d623cb4e6064feb8f0 c/leap_seconds.h
SHA1 4cd12d2a050ab038e519bd1391f77855ba4b24ac c/ppport.h
-SHA1 02827bcc0a13cde143c0e26623e41eea1685d157 dist.ini
+SHA1 5f6474faad44c3330746746250a6e9a99092e216 dist.ini
SHA1 2d1f339f1a2ceb22c2657d7c21983f69bc7456e3 inc/MyModuleBuild.pm
SHA1 ad083d04f765963b707dab9d566bf17e92fa51e9 leaptab.txt
-SHA1 31917247e772d35e2fcb5cb8286eb1e33f234a0a lib/DateTime.pm
+SHA1 27bfaa62dc8ddfaa5922122fb7290a653294f268 lib/DateTime.pm
SHA1 d2c3464984dc7567d8ef825a80fc4d5ed3602d0a lib/DateTime.xs
-SHA1 358f059de67ee1e9c6a75453f0fe662f194c872c lib/DateTime/Duration.pm
-SHA1 56cf527de80c22fab8c5389b19b56453640ff68c lib/DateTime/Helpers.pm
-SHA1 92436503ee27e98741677308c26d3dc150153a59 lib/DateTime/Infinite.pm
-SHA1 690ad9dd803900f0ce5612281a002bc7ed97a09e lib/DateTime/LeapSecond.pm
-SHA1 095de2caf7085aaecb601dc3e6b0f97668b683f6 lib/DateTimePP.pm
-SHA1 ef22101516cad117dcdd0c2157a91aa751971a2c lib/DateTimePPExtra.pm
+SHA1 ae7f4b970ff8ed1782538a682f398e68aae052f6 lib/DateTime/Duration.pm
+SHA1 f2373aff745c007e222ba26c2605ccf7f0d02771 lib/DateTime/Helpers.pm
+SHA1 0c7e99965db72bdfbbae119746f3e3d7dbee1d55 lib/DateTime/Infinite.pm
+SHA1 b1a9eba5d4ea408c5f219dc93a97812c838191c7 lib/DateTime/LeapSecond.pm
+SHA1 f2995138dc8cdd21f3ae57027cbcce755c781e87 lib/DateTimePP.pm
+SHA1 6ccf6914088f63c2cfe4e0117965f4be76ca043c lib/DateTimePPExtra.pm
SHA1 b7d12ae6a374c314afcf6ee289a1ae309d8a8563 t/00load.t
SHA1 53ac3a3da64401a86b06ed6dbcc1af01ba7741dd t/01sanity.t
SHA1 1ced0f94d405f32f687b5a86c245774fabb44b40 t/02last-day.t
@@ -49,7 +49,7 @@
SHA1 2b6582dbdcc95a3a8c928da233d3c9cefa8193ef t/10subtract.t
SHA1 26ba2f29d7b049dd1f58cdd25f91d919263b9008 t/11duration.t
SHA1 9c04679ba62e41c5c0d28fbf5dbc94536827fe65 t/12week.t
-SHA1 8944ea881dc734a30119e0359741e026d49f0887 t/13strftime.t
+SHA1 ab69254a51e4df66bc8dcac00a2e2e44b064f233 t/13strftime.t
SHA1 5a8e5f135d1735c25981b73ce06fd68296372405 t/14locale.t
SHA1 31d4392975a4d13e6c10145b9e63b4c45350c148 t/15jd.t
SHA1 78fd6143e323413681f73d94f68382c257f7b67e t/16truncate.t
@@ -72,8 +72,7 @@
SHA1 f951c5827a71a1892cac9338616c05a22a546b61 t/33seconds-offset.t
SHA1 9b05df9dedc30338ff8164d5dc1785663d64ef5e t/34set-tz.t
SHA1 0f43535ef86fd956e6a5bee134b9ce6dfde9419d t/35rd-values.t
-SHA1 325f679dc35ef3a3c351de0e5e8af9eff0a1cee3 t/36invalid-local.t
-SHA1 f8cf34ad69722a39be2621f5eb2b1e7635ffb56f t/36invalid_local.t
+SHA1 f8cf34ad69722a39be2621f5eb2b1e7635ffb56f t/36invalid-local.t
SHA1 daa0ba7d2b7e8003cc40f5ca019ca31132f635d6 t/37local-add.t
SHA1 f47db72a2890363b58b16c208b3593fb401e1531 t/38local-subtract.t
SHA1 82bb643a5ec4c01df3abdbbb009d0c5c8b83b938 t/39no-so.t
@@ -83,7 +82,7 @@
SHA1 9f788a8482e8853ae20dd302ce409eca4841db32 t/43new-params.t
SHA1 dd4e63c7e098d7e3f7393ada6bbdb6c0455d120f t/44set-formatter.t
SHA1 d1f2947de88938642616f3813230dff1df9c4ecd t/author-test-all-my-deps.t
-SHA1 99fd7a50c65d07b8dcb369a7d2ea75860944ea1d t/release-cpan-changes.t
+SHA1 2346c6403f21d316327ee1d2b7857a60c76ef278 t/release-cpan-changes.t
SHA1 a032c41ef6887fab1b900669c2d304fab46680e2 t/release-eol.t
SHA1 455d1dd1867212a665ad5ea4126b572411de300c t/release-no-tabs.t
SHA1 608449cdb4ab7622c69342cd00037d07cf6037d7 t/release-pod-coverage.t
@@ -101,7 +100,7 @@
SHA1 ba80cd8fcdb2aa0cedb2a057053d19667e9471aa t/release-pp-10subtract.t
SHA1 4773be589e9b5406377527e9525d8450e04d5e73 t/release-pp-11duration.t
SHA1 e69c9d656b6462e7d52bba196ce6f6e878798a59 t/release-pp-12week.t
-SHA1 bb7934d2b4f258c7a68585f48fa17359b4c11d9e t/release-pp-13strftime.t
+SHA1 7f0a1d40a1d509456c9063afa1d009fdc444c376 t/release-pp-13strftime.t
SHA1 b7e108865965a5a16d2b64677c7d1d3a9ee1ff03 t/release-pp-14locale.t
SHA1 585ac7a24117d215cdbf37c211b62dc8a95f6c0c t/release-pp-15jd.t
SHA1 0c18ef64cdefdd559e24a344868c62439d471ff9 t/release-pp-16truncate.t
@@ -123,8 +122,7 @@
SHA1 132dae776b5399e2075b3e493c77309b9ae15a09 t/release-pp-33seconds-offset.t
SHA1 8e5882efd441ccae61268cc0361ed517c8e2d2de t/release-pp-34set-tz.t
SHA1 e971fd4a9426f90608b0f1d8806ca801eae28cd7 t/release-pp-35rd-values.t
-SHA1 d1a82f6d2aa957d98dd910c1e9c7d77c5a71b159 t/release-pp-36invalid-local.t
-SHA1 9842ac3fcb9e459a75a1aa821e7c22f346c9fdb7 t/release-pp-36invalid_local.t
+SHA1 9842ac3fcb9e459a75a1aa821e7c22f346c9fdb7 t/release-pp-36invalid-local.t
SHA1 904a289f2d7346f9e5bdddacd37b517c016469de t/release-pp-37local-add.t
SHA1 bc08f54dceb1e5c224963511fed67647299f0b6a t/release-pp-38local-subtract.t
SHA1 19aa5dc7ca6881c7e33da122c8648a15e809a159 t/release-pp-40leap-years.t
@@ -134,9 +132,9 @@
SHA1 892297a82a27d718d17a59e3b13ec55b4ed80c7a t/release-pp-44set-formatter.t
SHA1 bef3937eb875e25c0fb9c95597b2a7628eb65020 tools/leap_seconds_header.pl
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.10 (GNU/Linux)
+Version: GnuPG v1.4.11 (GNU/Linux)
-iEYEARECAAYFAk21qa8ACgkQIgMCsV8qvRIlqwCfWGPDkzjwZKzCrYlogNklntRP
-B4wAnjklVa/5uREgyUtVRcPYu86kjHKu
-=e3jF
+iEYEARECAAYFAk3Ay98ACgkQIgMCsV8qvRLcJQCePvBkkCTu/kbzoWsB0p0xePMb
+dhIAn2N0AAHlXQFzgBAth30vYfR/OjwF
+=64Hr
-----END PGP SIGNATURE-----
Modified: trunk/libdatetime-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/debian/changelog?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/debian/changelog (original)
+++ trunk/libdatetime-perl/debian/changelog Thu May 5 16:44:36 2011
@@ -1,7 +1,4 @@
-libdatetime-perl (2:0.6800-1) UNRELEASED; urgency=low
-
- IGNORE-VERSION: 2:0.6800-1
- This version might save some FTBS but we have not seen any so far.
+libdatetime-perl (2:0.6900-1) UNRELEASED; urgency=low
[ Nicholas Bamber ]
* New upstream release
@@ -10,7 +7,10 @@
* Switch order of alternative (build) dependencies after the perl 5.12
upload.
- -- Nicholas Bamber <nicholas at periapt.co.uk> Tue, 26 Apr 2011 07:16:24 +0100
+ [ Nicholas Bamber ]
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Thu, 05 May 2011 17:47:34 +0100
libdatetime-perl (2:0.6700-1) unstable; urgency=low
Modified: trunk/libdatetime-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/dist.ini?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/dist.ini (original)
+++ trunk/libdatetime-perl/dist.ini Thu May 5 16:44:36 2011
@@ -3,7 +3,7 @@
license = Artistic_2_0
copyright_holder = Dave Rolsky
-version = 0.68
+version = 0.69
[NextRelease]
format = %-6v %{yyyy-MM-dd}d
@@ -17,6 +17,7 @@
[PkgVersion]
+; authordep Dist::Zilla::Plugin::ModuleBuild::XSOrPP
[=inc::MyModuleBuild]
[PurePerlTests]
@@ -37,7 +38,7 @@
[PodSyntaxTests]
[NoTabsTests]
[EOLTests]
-[CPANChangesTests]
+[Test::CPAN::Changes]
[Signature]
[CheckChangeLog]
Modified: trunk/libdatetime-perl/lib/DateTime.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/lib/DateTime.pm?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/lib/DateTime.pm (original)
+++ trunk/libdatetime-perl/lib/DateTime.pm Thu May 5 16:44:36 2011
@@ -1,6 +1,6 @@
package DateTime;
BEGIN {
- $DateTime::VERSION = '0.68';
+ $DateTime::VERSION = '0.69';
}
use 5.008001;
@@ -1301,9 +1301,14 @@
my $self = shift;
my $precision = @_ ? shift : 9;
- my $divide_by = 10**( 9 - $precision );
-
- return round( $self->{rd_nanosecs} / $divide_by );
+ if ( $self->{rd_nanosecs} ) {
+ my $divide_by = 10**( 9 - $precision );
+
+ return round( $self->{rd_nanosecs} / $divide_by );
+ }
+ else {
+ return '0' x $precision;
+ }
}
sub epoch {
@@ -2040,7 +2045,7 @@
package DateTime::_Thawed;
BEGIN {
- $DateTime::_Thawed::VERSION = '0.68';
+ $DateTime::_Thawed::VERSION = '0.69';
}
sub utc_rd_values { @{ $_[0]->{utc_vals} } }
@@ -2061,7 +2066,7 @@
=head1 VERSION
-version 0.68
+version 0.69
=head1 SYNOPSIS
Modified: trunk/libdatetime-perl/lib/DateTime/Duration.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/lib/DateTime/Duration.pm?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/lib/DateTime/Duration.pm (original)
+++ trunk/libdatetime-perl/lib/DateTime/Duration.pm Thu May 5 16:44:36 2011
@@ -1,6 +1,6 @@
package DateTime::Duration;
BEGIN {
- $DateTime::Duration::VERSION = '0.68';
+ $DateTime::Duration::VERSION = '0.69';
}
use strict;
@@ -318,7 +318,7 @@
=head1 VERSION
-version 0.68
+version 0.69
=head1 SYNOPSIS
Modified: trunk/libdatetime-perl/lib/DateTime/Helpers.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/lib/DateTime/Helpers.pm?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/lib/DateTime/Helpers.pm (original)
+++ trunk/libdatetime-perl/lib/DateTime/Helpers.pm Thu May 5 16:44:36 2011
@@ -1,6 +1,6 @@
package DateTime::Helpers;
BEGIN {
- $DateTime::Helpers::VERSION = '0.68';
+ $DateTime::Helpers::VERSION = '0.69';
}
use strict;
Modified: trunk/libdatetime-perl/lib/DateTime/Infinite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/lib/DateTime/Infinite.pm?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/lib/DateTime/Infinite.pm (original)
+++ trunk/libdatetime-perl/lib/DateTime/Infinite.pm Thu May 5 16:44:36 2011
@@ -1,6 +1,6 @@
package DateTime::Infinite;
BEGIN {
- $DateTime::Infinite::VERSION = '0.68';
+ $DateTime::Infinite::VERSION = '0.69';
}
use strict;
@@ -38,7 +38,7 @@
package DateTime::Infinite::Future;
BEGIN {
- $DateTime::Infinite::Future::VERSION = '0.68';
+ $DateTime::Infinite::Future::VERSION = '0.69';
}
use base qw(DateTime::Infinite);
@@ -62,7 +62,7 @@
package DateTime::Infinite::Past;
BEGIN {
- $DateTime::Infinite::Past::VERSION = '0.68';
+ $DateTime::Infinite::Past::VERSION = '0.69';
}
use base qw(DateTime::Infinite);
@@ -98,7 +98,7 @@
=head1 VERSION
-version 0.68
+version 0.69
=head1 SYNOPSIS
Modified: trunk/libdatetime-perl/lib/DateTime/LeapSecond.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/lib/DateTime/LeapSecond.pm?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/lib/DateTime/LeapSecond.pm (original)
+++ trunk/libdatetime-perl/lib/DateTime/LeapSecond.pm Thu May 5 16:44:36 2011
@@ -1,6 +1,6 @@
package DateTime::LeapSecond;
BEGIN {
- $DateTime::LeapSecond::VERSION = '0.68';
+ $DateTime::LeapSecond::VERSION = '0.69';
}
use strict;
@@ -130,7 +130,7 @@
=head1 VERSION
-version 0.68
+version 0.69
=head1 SYNOPSIS
Modified: trunk/libdatetime-perl/lib/DateTimePP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/lib/DateTimePP.pm?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/lib/DateTimePP.pm (original)
+++ trunk/libdatetime-perl/lib/DateTimePP.pm Thu May 5 16:44:36 2011
@@ -1,6 +1,6 @@
package DateTime;
BEGIN {
- $DateTime::VERSION = '0.68';
+ $DateTime::VERSION = '0.69';
}
use strict;
Modified: trunk/libdatetime-perl/lib/DateTimePPExtra.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/lib/DateTimePPExtra.pm?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/lib/DateTimePPExtra.pm (original)
+++ trunk/libdatetime-perl/lib/DateTimePPExtra.pm Thu May 5 16:44:36 2011
@@ -1,6 +1,6 @@
package DateTime;
BEGIN {
- $DateTime::VERSION = '0.68';
+ $DateTime::VERSION = '0.69';
}
use strict;
Modified: trunk/libdatetime-perl/t/13strftime.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/t/13strftime.t?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/t/13strftime.t (original)
+++ trunk/libdatetime-perl/t/13strftime.t Thu May 5 16:44:36 2011
@@ -156,6 +156,17 @@
$dt->strftime($spec), $val,
"strftime($spec) for $epoch == $val"
);
+ }
+}
+
+{
+ my $dt = DateTime->new( year => 2011 );
+
+ for my $i (1..9) {
+ my $spec = '%' . $i . 'N';
+ my $expect = '0' x$i;
+
+ is( $dt->strftime($spec), $expect, "strftime $spec with 0 nanoseconds" );
}
}
Modified: trunk/libdatetime-perl/t/36invalid-local.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/t/36invalid-local.t?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/t/36invalid-local.t (original)
+++ trunk/libdatetime-perl/t/36invalid-local.t Thu May 5 16:44:36 2011
@@ -3,48 +3,47 @@
use Test::More;
-use DateTime::LeapSecond;
+use DateTime;
-is( DateTime::LeapSecond::leap_seconds(100), 0, 'before 1970' );
+{
+ eval {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 2, time_zone => 'America/Chicago',
+ );
+ };
-# at the start of the table:
+ like( $@, qr/Invalid local time .+/, 'exception for invalid time' );
-# 1972-06-30
-my $day = 720074;
-is( DateTime::LeapSecond::leap_seconds($day), 0,
- 'before leap-second transition' );
+ eval {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 2, minute => 59, second => 59,
+ time_zone => 'America/Chicago',
+ );
+ };
+ like( $@, qr/Invalid local time .+/, 'exception for invalid time' );
+}
-is( DateTime::LeapSecond::extra_seconds($day) + 0, 1, 'leap day' );
+{
+ eval {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 1, minute => 59, second => 59,
+ time_zone => 'America/Chicago',
+ );
+ };
+ ok( !$@, 'no exception for valid time' );
-# 1972-07-01
-$day = 720075;
-is( DateTime::LeapSecond::leap_seconds($day), 1,
- 'day after leap-second day' );
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
-is( DateTime::LeapSecond::extra_seconds($day), 0, 'not a leap day' );
-
-# 1972-07-02
-$day = 720076;
-is( DateTime::LeapSecond::leap_seconds($day), 1, 'after leap-second day' );
-
-# at the end of the table:
-# 1998-12-31
-$day = 729754;
-is( DateTime::LeapSecond::leap_seconds($day), 21, 'before leap-second day' );
-
-# 1999-01-01
-$day = 729755;
-is( DateTime::LeapSecond::leap_seconds($day), 22, 'leap-second day' );
-
-# 1999-01-02
-$day = 729756;
-is( DateTime::LeapSecond::leap_seconds($day), 22, 'after leap-second day' );
-
-# some leap second dates:
-# 1972 Jul. 1
-# 1973 Jan. 1
-# ...
-# 1997 Jul. 1
-# 1999 Jan. 1
+ eval { $dt->add( days => 1 ) };
+ like( $@, qr/Invalid local time .+/,
+ 'exception for invalid time produced via add' );
+}
done_testing();
Modified: trunk/libdatetime-perl/t/release-cpan-changes.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/t/release-cpan-changes.t?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/t/release-cpan-changes.t (original)
+++ trunk/libdatetime-perl/t/release-cpan-changes.t Thu May 5 16:44:36 2011
@@ -12,3 +12,4 @@
eval 'use Test::CPAN::Changes';
plan skip_all => 'Test::CPAN::Changes required for this test' if $@;
changes_ok();
+done_testing();
Modified: trunk/libdatetime-perl/t/release-pp-13strftime.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/t/release-pp-13strftime.t?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/t/release-pp-13strftime.t (original)
+++ trunk/libdatetime-perl/t/release-pp-13strftime.t Thu May 5 16:44:36 2011
@@ -168,6 +168,17 @@
$dt->strftime($spec), $val,
"strftime($spec) for $epoch == $val"
);
+ }
+}
+
+{
+ my $dt = DateTime->new( year => 2011 );
+
+ for my $i (1..9) {
+ my $spec = '%' . $i . 'N';
+ my $expect = '0' x$i;
+
+ is( $dt->strftime($spec), $expect, "strftime $spec with 0 nanoseconds" );
}
}
Modified: trunk/libdatetime-perl/t/release-pp-36invalid-local.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/t/release-pp-36invalid-local.t?rev=74039&op=diff
==============================================================================
--- trunk/libdatetime-perl/t/release-pp-36invalid-local.t (original)
+++ trunk/libdatetime-perl/t/release-pp-36invalid-local.t Thu May 5 16:44:36 2011
@@ -15,49 +15,48 @@
use Test::More;
-use DateTime::LeapSecond;
+use DateTime;
-is( DateTime::LeapSecond::leap_seconds(100), 0, 'before 1970' );
+{
+ eval {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 2, time_zone => 'America/Chicago',
+ );
+ };
-# at the start of the table:
+ like( $@, qr/Invalid local time .+/, 'exception for invalid time' );
-# 1972-06-30
-my $day = 720074;
-is( DateTime::LeapSecond::leap_seconds($day), 0,
- 'before leap-second transition' );
+ eval {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 2, minute => 59, second => 59,
+ time_zone => 'America/Chicago',
+ );
+ };
+ like( $@, qr/Invalid local time .+/, 'exception for invalid time' );
+}
-is( DateTime::LeapSecond::extra_seconds($day) + 0, 1, 'leap day' );
+{
+ eval {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 1, minute => 59, second => 59,
+ time_zone => 'America/Chicago',
+ );
+ };
+ ok( !$@, 'no exception for valid time' );
-# 1972-07-01
-$day = 720075;
-is( DateTime::LeapSecond::leap_seconds($day), 1,
- 'day after leap-second day' );
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
-is( DateTime::LeapSecond::extra_seconds($day), 0, 'not a leap day' );
-
-# 1972-07-02
-$day = 720076;
-is( DateTime::LeapSecond::leap_seconds($day), 1, 'after leap-second day' );
-
-# at the end of the table:
-# 1998-12-31
-$day = 729754;
-is( DateTime::LeapSecond::leap_seconds($day), 21, 'before leap-second day' );
-
-# 1999-01-01
-$day = 729755;
-is( DateTime::LeapSecond::leap_seconds($day), 22, 'leap-second day' );
-
-# 1999-01-02
-$day = 729756;
-is( DateTime::LeapSecond::leap_seconds($day), 22, 'after leap-second day' );
-
-# some leap second dates:
-# 1972 Jul. 1
-# 1973 Jan. 1
-# ...
-# 1997 Jul. 1
-# 1999 Jan. 1
+ eval { $dt->add( days => 1 ) };
+ like( $@, qr/Invalid local time .+/,
+ 'exception for invalid time produced via add' );
+}
done_testing();
More information about the Pkg-perl-cvs-commits
mailing list