Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fixed test suite issues

  • Loading branch information...
commit fbdef1e0fd3ab29711115c29ee66cc3d90b8997d 1 parent dc00507
@barbie authored
View
4 Changes
@@ -1,5 +1,9 @@
Revision history for Perl module CPAN-Testers-Data-Generator.
+1.10 2013-05-12
+ - fixed skip test count.
+ - fixed cleanup of directory removal.
+
1.09 2013-04-14
- date clarification for lookups.
- additional logging.
View
4 META.json
@@ -1,6 +1,6 @@
{
"name": "CPAN-Testers-Data-Generator",
- "version": "1.09",
+ "version": "1.10",
"abstract": "CPAN Testers cpanstats Database Generator",
"author": [
"Barbie (BARBIE) <barbie@cpan.org>"
@@ -66,7 +66,7 @@
"provides": {
"CPAN::Testers::Data::Generator": {
"file": "lib/CPAN/Testers/Data/Generator.pm",
- "version": "1.09"
+ "version": "1.10"
}
},
"no_index": {
View
4 META.yml
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: CPAN-Testers-Data-Generator
-version: 1.09
+version: 1.10
abstract: CPAN Testers cpanstats Database Generator
author:
- Barbie <barbie@cpan.org>
@@ -46,7 +46,7 @@ build_requires:
provides:
CPAN::Testers::Data::Generator:
file: lib/CPAN/Testers/Data/Generator.pm
- version: 1.09
+ version: 1.10
no_index:
directory:
View
2  lib/CPAN/Testers/Data/Generator.pm
@@ -4,7 +4,7 @@ use warnings;
use strict;
use vars qw($VERSION);
-$VERSION = '1.09';
+$VERSION = '1.10';
#----------------------------------------------------------------------------
# Library Modules
View
2  t/10internals.t
@@ -51,7 +51,7 @@ my @test_meta_rows = (
# TEST INTERNALS
SKIP: {
- skip "Test::Database required for DB testing", 21 unless(-f $config);
+ skip "Test::Database required for DB testing", 23 unless(-f $config);
# prep test directory
my $directory = './test';
View
6 t/89cleanup.t
@@ -4,7 +4,7 @@ use strict;
$|=1;
use File::Path;
-use Test::More tests => 4;
+use Test::More tests => 2;
eval "use Test::Database";
my $notd = $@ ? 1 : 0;
@@ -19,10 +19,10 @@ unless($notd) {
}
for my $d ('t/_DBDIR','test') {
- ok( rmtree( $d ), "removed '$d'" );
+ rmtree( $d ) if(-d $d);
if($^O =~ /Win32/i) {
ok(1);
} else {
- ok( ! -d $d, "removed '$d' verified" );
+ ok( ! -d $d, "removed '$d' verified" );
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.