Permalink
Browse files

date/time fixes in changes file

  • Loading branch information...
barbie committed Oct 21, 2012
1 parent 2aeb0e6 commit 806a794072dde423105d183adf805a16b2bb2e9a
Showing with 16 additions and 15 deletions.
  1. +4 −4 CHANGES
  2. +12 −11 t/95changedate.t
View
@@ -221,7 +221,7 @@ Revision history for Perl module CPAN::Testers::Data::Generator.
- added more test samples
- added more tests
-0.22 Thu Feb 3 15:27:41 GMT 2005
+0.22 2005-02-03T15:27:41
- now includes perl + OS version in the testers.db
- use SQLite 3.0
- bin/cpan_www_testers_generate expanded to give more
@@ -231,11 +231,11 @@ Revision history for Perl module CPAN::Testers::Data::Generator.
- added more POD
- (thanks to Barbie)
-0.21 Sun Mar 7 18:31:35 GMT 2004
+0.21 2004-03-07T18:31:35
- the NNTP cache now uses SQLite instead of DB_File
- rename Changes to CHANGES
-0.20 Wed Aug 13 21:52:06 BST 2003
+0.20 2003-08-13T21:52:06
- make sure to HTML escape everything
- design update, now with CSS
- Fix bug where reports are use A/AM/AMS/Crypt-TEA-1.22.tar.gz
@@ -247,5 +247,5 @@ Revision history for Perl module CPAN::Testers::Data::Generator.
- moved examples/generate.pl to an installed script,
bin/cpan_www_testers_generate
-0.10 Thu Jul 31 23:09:25 BST 2003
+0.10 2003-07-31T23:09:25
- initial release
View
@@ -8,7 +8,7 @@ use IO::File;
plan skip_all => "Author tests not required for installation"
unless ( $ENV{AUTOMATED_TESTING} );
-my $fh = IO::File->new('Changes','r') or plan skip_all => "Cannot open Changes file";
+my $fh = IO::File->new('CHANGES','r') or plan skip_all => "Cannot open CHANGES file";
plan 'no_plan';
@@ -22,18 +22,19 @@ while(<$fh>) {
# 2012-08-26T01:02 or 2012-08-26T01:02:03 or 2012-08-26T01:02:03.04 or 2012-08-26T01:02+01:00
- like($_, qr! \d[\d._]+\s+ # version
- ( \d{4}-\d{2}-\d{2} # 2012-08-26 - YYYY-MM-DD
- ( T\d{2}:\d{2} # T01:02 - Thh:mm
- ( :\d{2} # :02 - :ss
- ( \.\d+ # .2 - .ss (microseconds)
- )?
- )?
- ( (Z|[-+]\d+:\d+) # +01:00 - timezone
+ like($_, qr!^
+ \d[\d._]+\s+ # version
+ ( \d{4}-\d{2}-\d{2} # 2012-08-26 - YYYY-MM-DD
+ ( T\d{2}:\d{2} # T01:02 - Thh:mm
+ ( :\d{2} # :02 - :ss
+ ( \.\d+ # .2 - .ss (microseconds)
)?
)?
- )
- !x,'... version has a date');
+ ( (Z|[-+]\d+:\d+) # +01:00 - timezone
+ )?
+ )?
+ )
+ \s*$!x,'... version has a date');
}
is($latest,1,'... latest version not listed');

0 comments on commit 806a794

Please sign in to comment.