Permalink
Browse files

changes file updates

  • Loading branch information...
1 parent ded6774 commit fea0047bf2f36d184a6b618f9595991235078e71 @barbie barbie committed Apr 14, 2013
Showing with 35 additions and 16 deletions.
  1. +15 −12 Changes
  2. +20 −4 t/95changedate.t
View
27 Changes
@@ -1,21 +1,24 @@
Revision history for CPAN-Testers-WWW-Reports-Query-Reports
-0.06 13/04/2012
- - added skips in the event the site is down.
+ - spelling fixes. (thanks to Florian Schlichting & Gregor Herrmann).
+ - change file dates changed to meet W3CDTF standards.
-0.05 09/04/2012
- - better error handling.
+0.06 2012-04-13
+ - added skips in the event the site is down.
-0.04 06/04/2012
- - added ping test & skip if no network.
+0.05 2012-04-09
+ - better error handling.
-0.03 05/04/2012
- - missed JSON::XS from prereq lists :(
- - added META.json (and test script)
+0.04 2012-04-06
+ - added ping test & skip if no network.
-0.02 31/03/2012
- - now with the correct README!
+0.03 2012-04-05
+ - missed JSON::XS from prereq lists :(
+ - added META.json (and test script)
-0.01 30/03/2012
+0.02 2012-03-31
+ - now with the correct README!
+
+0.01 2012-03-30
- First release
View
@@ -1,10 +1,8 @@
#!/usr/bin/perl -w
use strict;
-use lib qw(./lib);
use Test::More;
use IO::File;
-use CPAN::Testers::WWW::Reports::Query::Reports;
# Skip if doing a regular install
plan skip_all => "Author tests not required for installation"
@@ -14,11 +12,29 @@ my $fh = IO::File->new('Changes','r') or plan skip_all => "Cannot open Changes
plan 'no_plan';
+use CPAN::Testers::WWW::Reports::Query::Reports;
+my $version = $CPAN::Testers::WWW::Reports::Query::Reports::VERSION;
+
my $latest = 0;
while(<$fh>) {
next unless(m!^\d!);
- $latest = 1 if(m!^$CPAN::Testers::WWW::Reports::Query::Reports::VERSION!);
- like($_, qr!\d[\d._]+\s+\d{2}/\d{2}/\d{4}!,'... version has a date');
+ $latest = 1 if(m!^$version!);
+
+ # 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
+ )?
+ )?
+ )
+ \s*$!x,'... version has a date');
}
is($latest,1,'... latest version not listed');

0 comments on commit fea0047

Please sign in to comment.