Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

update versions

  • Loading branch information...
commit e9f7827b7e076e1645509271dea0c054134e9ea1 1 parent 5aad4fb
@barbie authored
View
2  Changes
@@ -3,6 +3,8 @@ Changes for the CPAN Testers Reports website
3.38 2012-09-01
- added crawler detection.
- prevent Author & Distro crawler requests being passed to Builder.
+ - upgraded Labyrinth Core to version 5.13.
+ - change file dates changed to meet W3CDTF standards.
3.37 2012-07-08
- renumbered versions to reflect website versions.
View
22 META.json
@@ -1,6 +1,6 @@
{
"name": "CPAN-Testers-WWW-Reports",
- "version": "3.37",
+ "version": "3.38",
"abstract": "The CPAN Testers Reports website",
"author": [
"Barbie (BARBIE) <barbie@cpan.org>"
@@ -38,7 +38,7 @@
"Getopt::Long": "0",
"HTML::Entities": "0",
"JSON::XS": "0",
- "Labyrinth": "5.12",
+ "Labyrinth": "5.13",
"Labyrinth::Plugin::Core": "5.10",
"Labyrinth::Plugin::Requests": "1.00",
"Metabase::Resource": "0",
@@ -67,39 +67,39 @@
"provides": {
"CPAN::Testers::WWW::Reports": {
"file": "lib/CPAN/Testers/WWW/Reports.pm",
- "version": "3.37"
+ "version": "3.38"
},
"Labyrinth::Plugin::CPAN": {
"file": "lib/Labyrinth/Plugin/CPAN.pm",
- "version": "3.37"
+ "version": "3.38"
},
"Labyrinth::Plugin::CPAN::Authors": {
"file": "lib/Labyrinth/Plugin/CPAN/Authors.pm",
- "version": "3.37"
+ "version": "3.38"
},
"Labyrinth::Plugin::CPAN::Builder": {
"file": "lib/Labyrinth/Plugin/CPAN/Builder.pm",
- "version": "3.37"
+ "version": "3.38"
},
"Labyrinth::Plugin::CPAN::Distros": {
"file": "lib/Labyrinth/Plugin/CPAN/Distros.pm",
- "version": "3.37"
+ "version": "3.38"
},
"Labyrinth::Plugin::CPAN::Monitor": {
"file": "lib/Labyrinth/Plugin/CPAN/Monitor.pm",
- "version": "3.37"
+ "version": "3.38"
},
"Labyrinth::Plugin::CPAN::Release": {
"file": "lib/Labyrinth/Plugin/CPAN/Release.pm",
- "version": "3.37"
+ "version": "3.38"
},
"Labyrinth::Plugin::CPAN::Report": {
"file": "lib/Labyrinth/Plugin/CPAN/Report.pm",
- "version": "3.37"
+ "version": "3.38"
},
"Labyrinth::Plugin::Metabase::Parser": {
"file": "lib/Labyrinth/Plugin/Metabase/Parser.pm",
- "version": "3.37"
+ "version": "3.38"
}
},
"no_index": {
View
22 META.yml
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: CPAN::Testers::WWW::Reports
-version: 3.37
+version: 3.38
abstract: The CPAN Testers Reports website
author:
- Barbie <barbie@cpan.org>
@@ -25,7 +25,7 @@ requires:
Getopt::Long: 0
HTML::Entities: 0
JSON::XS: 0
- Labyrinth: 5.12
+ Labyrinth: 5.13
Labyrinth::Plugin::Core: 5.10
Labyrinth::Plugin::Requests: 1.00
Metabase::Resource: 0
@@ -48,31 +48,31 @@ build_requires:
provides:
CPAN::Testers::WWW::Reports:
file: lib/CPAN/Testers/WWW/Reports.pm
- version: 3.37
+ version: 3.38
Labyrinth::Plugin::CPAN:
file: lib/Labyrinth/Plugin/CPAN.pm
- version: 3.37
+ version: 3.38
Labyrinth::Plugin::CPAN::Authors:
file: lib/Labyrinth/Plugin/CPAN/Authors.pm
- version: 3.37
+ version: 3.38
Labyrinth::Plugin::CPAN::Builder:
file: lib/Labyrinth/Plugin/CPAN/Builder.pm
- version: 3.37
+ version: 3.38
Labyrinth::Plugin::CPAN::Distros:
file: lib/Labyrinth/Plugin/CPAN/Distros.pm
- version: 3.37
+ version: 3.38
Labyrinth::Plugin::CPAN::Monitor:
file: lib/Labyrinth/Plugin/CPAN/Monitor.pm
- version: 3.37
+ version: 3.38
Labyrinth::Plugin::CPAN::Release:
file: lib/Labyrinth/Plugin/CPAN/Release.pm
- version: 3.37
+ version: 3.38
Labyrinth::Plugin::CPAN::Report:
file: lib/Labyrinth/Plugin/CPAN/Report.pm
- version: 3.37
+ version: 3.38
Labyrinth::Plugin::Metabase::Parser:
file: lib/Labyrinth/Plugin/Metabase/Parser.pm
- version: 3.37
+ version: 3.38
no_index:
directory:
View
2  lib/CPAN/Testers/WWW/Reports.pm
@@ -3,7 +3,7 @@ package CPAN::Testers::WWW::Reports;
use warnings;
use strict;
-our $VERSION = '3.37';
+our $VERSION = '3.38';
1;
View
2  lib/Labyrinth/Plugin/CPAN.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '3.37';
+$VERSION = '3.38';
=head1 NAME
View
2  lib/Labyrinth/Plugin/CPAN/Authors.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '3.37';
+$VERSION = '3.38';
=head1 NAME
View
2  lib/Labyrinth/Plugin/CPAN/Builder.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '3.37';
+$VERSION = '3.38';
=head1 NAME
View
2  lib/Labyrinth/Plugin/CPAN/Distros.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '3.37';
+$VERSION = '3.38';
=head1 NAME
View
2  lib/Labyrinth/Plugin/CPAN/Monitor.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '3.37';
+$VERSION = '3.38';
=head1 NAME
View
2  lib/Labyrinth/Plugin/CPAN/Release.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '3.37';
+$VERSION = '3.38';
=head1 NAME
View
2  lib/Labyrinth/Plugin/CPAN/Report.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '3.37';
+$VERSION = '3.38';
=head1 NAME
View
2  lib/Labyrinth/Plugin/Metabase/Parser.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '3.37';
+$VERSION = '3.38';
=head1 NAME
View
33 t/95changedate.t
@@ -1,26 +1,39 @@
+#!/usr/bin/perl -w
+use strict;
+
use Test::More;
use IO::File;
-use CPAN::Testers::WWW::Reports;
# Skip if doing a regular install
plan skip_all => "Author tests not required for installation"
unless ( $ENV{AUTOMATED_TESTING} );
-my $changes;
-$changes = 'Changes' if(-f 'Changes');
-$changes = 'CHANGES' if(-f 'CHANGES');
-
-plan skip_all => 'No Changes file found' unless($changes);
+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';
-plan no_plan;
+use CPAN::Testers::WWW::Reports;
+my $version = $CPAN::Testers::WWW::Reports::VERSION;
my $latest = 0;
while(<$fh>) {
next unless(m!^\d!);
- $latest = 1 if(m!^$CPAN::Testers::WWW::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
+ )?
+ )?
+ )
+ !x,'... version has a date');
}
is($latest,1,'... latest version not listed');
Please sign in to comment.
Something went wrong with that request. Please try again.