Permalink
Browse files

added BOB and updated various package files

  • Loading branch information...
1 parent 009fff3 commit 4e9eaf89c184052881af04c284f831a79b84727d @barbie committed Sep 19, 2012
Showing with 60 additions and 32 deletions.
  1. +18 −12 Changes
  2. +3 −3 META.json
  3. +5 −6 META.yml
  4. +2 −1 lib/Acme/CPANAuthors/British.pm
  5. +1 −1 lib/Acme/CPANAuthors/British/Companies.pm
  6. +5 −3 t/10british.t
  7. +2 −2 t/11companies.t
  8. +19 −3 t/95changedate.t
  9. +5 −1 t/96metatest.t
View
30 Changes
@@ -1,47 +1,53 @@
Revision history for Acme-CPANAuthors-British
-0.12 21/08/2012
+0.13 2012-09-19
+ - implemented Perl::Critic suggestions.
+ - change file dates changed to meet W3CDTF standards.
+ - updated ping test to api.cpanauthors.org
+ - added BOB (Bob Walker)
+
+0.12 2012-08-21
add NEWELLC (Colin Newell)
-0.11 03/07/2012
+0.11 2012-07-03
- added JAITKEN (James Aitken)
-0.10 29/04/2012
+0.10 2012-04-29
- more reliable skip tests added to 11companies.t.
-0.09 22/04/2012
+0.09 2012-04-22
- further spelling fix (Florian Schlichting).
- more reliable skip tests.
-0.08 17/04/2012
+0.08 2012-04-17
- spelling fix. (thanks to Florian Schlichting & Gregor Herrmann).
- added minimum perl version (5.006).
- fixed test pre-requisites.
- reworked Makefile.PL for clarity.
- more documentation.
-0.07 09/04/2012
+0.07 2012-04-09
- added NEILB and IOANR as British authors.
-0.06 08/04/2012
+0.06 2012-04-08
- added missing test pre-requisite, IO::File.
- added 1 British CPAN company.
- added 34 British CPAN authors.
-0.05 06/04/2012
+0.05 2012-04-06
- fixed CPANTS tests.
- added META.json and test script.
-0.04 04/11/2010
+0.04 2010-11-04
- fixed skip count and updated pingtest for 11companies.t.
-0.03 31/10/2010
+0.03 2010-10-31
- revised pingtest.
- added CJK, CYCLES, SKX and XEONTIME as British authors.
-0.02 09/12/2009
+0.02 2009-12-09
- added DOTTK as a British Company (RT#51438, thanks DAXIM).
-0.01 10/11/2009
+0.01 2009-11-10
First version, released because no-one else dared!
View
@@ -1,6 +1,6 @@
{
"name": "Acme-CPANAuthors-British",
- "version": "0.12",
+ "version": "0.13",
"abstract": "We are British CPAN authors.",
"author": [
"Barbie (BARBIE) <barbie@cpan.org>"
@@ -44,11 +44,11 @@
"provides": {
"Acme::CPANAuthors::British": {
"file": "lib/Acme/CPANAuthors/British.pm",
- "version": "0.12"
+ "version": "0.13"
},
"Acme::CPANAuthors::British::Companies": {
"file": "lib/Acme/CPANAuthors/British/Companies.pm",
- "version": "0.12"
+ "version": "0.13"
}
},
"no_index": {
View
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Acme-CPANAuthors-British
-version: 0.12
+version: 0.13
abstract: We are British CPAN authors.
author:
- Barbie <barbie@cpan.org>
@@ -13,22 +13,21 @@ requires:
perl: 5.006
Acme::CPANAuthors: 0.04
recommends:
- Test::More: 0.70
- Test::Pod: 1.00
- Test::Pod::Coverage: 0.08
Test::CPAN::Meta: 0
Test::CPAN::Meta::JSON: 0
+ Test::Pod: 1.00
+ Test::Pod::Coverage: 0.08
build_requires:
Test::More: 0.70
IO::File: 0
provides:
Acme::CPANAuthors::British:
file: lib/Acme/CPANAuthors/British.pm
- version: 0.12
+ version: 0.13
Acme::CPANAuthors::British::Companies:
file: lib/Acme/CPANAuthors/British/Companies.pm
- version: 0.12
+ version: 0.13
no_index:
directory:
- t
@@ -4,7 +4,7 @@ use warnings;
{
no strict "vars";
- $VERSION = "0.12";
+ $VERSION = "0.13";
}
use Acme::CPANAuthors::Register (
@@ -55,6 +55,7 @@ use Acme::CPANAuthors::Register (
BMORROW => 'Ben Morrow',
BOBNET => 'Robert Cornell',
BOBTFISH => 'Tomas Doran',
+ BOB => 'Bob Walker',
BOBW => 'Bob Wilkinson',
BURKEY => 'Daniel Burke',
CAILLTE => 'Simon Parsons',
@@ -4,7 +4,7 @@ use warnings;
{
no strict "vars";
- $VERSION = "0.12";
+ $VERSION = "0.13";
}
use Acme::CPANAuthors::Register (
View
@@ -11,7 +11,7 @@ my $authors = eval { Acme::CPANAuthors->new("British") };
is( $@, "", "creating a new Acme::CPANAuthors object with British authors" );
isa_ok( $authors, "Acme::CPANAuthors" );
-my $number = 280;
+my $number = 281;
is( $authors->count, $number, " .. \$authors->count matches current count" );
my @ids = $authors->id;
@@ -43,11 +43,13 @@ SKIP: {
cmp_ok( length($name), ">", 0, " .. \$authors->name('DGL') gives a non-empty string" );
SKIP: {
- skip "cpants.perl.org is not available", 1
- if(pingtest('cpants.perl.org'));
+ skip "api.cpanauthors.org is not available", 1
+ if(pingtest('api.cpanauthors.org'));
my $kwalitee;
eval { $kwalitee = $authors->kwalitee('JONALLEN') };
+ skip "api.cpanauthors.org is not available", 1 if($@);
+
isa_ok( $kwalitee, "HASH", " .. \$authors->kwalitee('JONALLEN')" );
}
}
View
@@ -40,8 +40,8 @@ SKIP: {
cmp_ok( length($name), ">", 0, " .. \$authors->name('GMGRD') gives a non-empty string" );
SKIP: {
- skip "cpants.perl.org is not available", 1
- if(pingtest('cpants.perl.org'));
+ skip "api.cpanauthors.org is not available", 1
+ if(pingtest('api.cpanauthors.org'));
my $kwalitee;
eval { $kwalitee = $authors->kwalitee('BBCIFL') };
View
@@ -4,7 +4,6 @@ use warnings;
use Test::More;
use IO::File;
-use Acme::CPANAuthors::British;
# Skip if doing a regular install
plan skip_all => "Author tests not required for installation"
@@ -14,11 +13,28 @@ my $fh = IO::File->new('Changes','r') or plan skip_all => "Cannot open Changes
plan 'no_plan';
+use Acme::CPANAuthors::British;
+my $version = $Acme::CPANAuthors::British::VERSION;
+
my $latest = 0;
while(<$fh>) {
next unless(m!^\d!);
- $latest = 1 if(m!^$Acme::CPANAuthors::British::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');
View
@@ -1,3 +1,7 @@
+#!perl -T
+use strict;
+use warnings;
+
use Test::More;
# Skip if doing a regular install
@@ -7,7 +11,7 @@ plan skip_all => "Author tests not required for installation"
eval "use Test::CPAN::Meta::JSON";
plan skip_all => "Test::CPAN::Meta::JSON required for testing META.json files" if $@;
-plan no_plan;
+plan 'no_plan';
my $meta = meta_spec_ok(undef,undef,@_);

0 comments on commit 4e9eaf8

Please sign in to comment.