This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Test-Simple to CPAN version 1.001002
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 4 Nov 2013 20:30:08 +0000 (20:30 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 4 Nov 2013 20:30:08 +0000 (20:30 +0000)
  [DELTA]

1.001002     Mon Nov  4 15:13:58 EST 2013
    * no changes since 0.99

1.001001_001 Wed Oct 30 20:47:23 EDT 2013
    * no code changes, just a new version number with more room to grow

Porting/Maintainers.pl
cpan/Test-Simple/lib/Test/Builder.pm
cpan/Test-Simple/lib/Test/Builder/Module.pm
cpan/Test-Simple/lib/Test/Builder/Tester.pm
cpan/Test-Simple/lib/Test/More.pm
cpan/Test-Simple/lib/Test/Simple.pm
cpan/Test-Simple/t/Tester/tbt_01basic.t
cpan/Test-Simple/t/dependents.t

index 6dae2ff..17a8687 100755 (executable)
@@ -22,7 +22,7 @@ use File::Glob qw(:case);
     cpanfile CREDITS dist.ini GOALS HISTORY INSTALL INSTALL.SKIP LICENSE
     Makefile.PL MANIFEST MANIFEST.SKIP META.json META.yml MYMETA.json
     MYMETA.yml NEW NOTES perlcritic.rc ppport.h README README.PATCHING
-    SIGNATURE THANKS TODO Todo VERSION WHATSNEW
+    SIGNATURE THANKS TODO Todo VERSION WHATSNEW .perlcriticrc.perltidyrc
 );
 
 # Each entry in the  %Modules hash roughly represents a distribution,
@@ -1079,9 +1079,10 @@ use File::Glob qw(:case);
     },
 
     'Test::Simple' => {
-        'DISTRIBUTION' => 'RJBS/Test-Simple-0.99.tar.gz',
+        'DISTRIBUTION' => 'RJBS/Test-Simple-1.001002.tar.gz',
         'FILES'        => q[cpan/Test-Simple],
         'EXCLUDED'     => [
+            qr{^t/xt},
             qw( .perlcriticrc
                 .perltidyrc
                 examples/indent.pl
index 847a26c..061b0fc 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 use strict;
 use warnings;
 
-our $VERSION = '0.99';
+our $VERSION = '1.001002';
 $VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)
 
 BEGIN {
index 24a9d55..48e9ea8 100644 (file)
@@ -7,7 +7,7 @@ use Test::Builder 0.99;
 require Exporter;
 our @ISA = qw(Exporter);
 
-our $VERSION = '0.99';
+our $VERSION = '1.001002';
 $VERSION = eval $VERSION;      ## no critic (BuiltinFunctions::ProhibitStringyEval)
 
 
index 299ee52..49a42ce 100644 (file)
@@ -480,7 +480,7 @@ sub _account_for_subtest {
     my( $self, $check ) = @_;
 
     # Since we ship with Test::Builder, calling a private method is safe...ish.
-    return $t->_indent . $check;
+    return ref($check) ? $check : $t->_indent . $check;
 }
 
 sub _translate_Failed_check {
index ad3cf50..50f3e39 100644 (file)
@@ -17,7 +17,7 @@ sub _carp {
     return warn @_, " at $file line $line\n";
 }
 
-our $VERSION = '0.99';
+our $VERSION = '1.001002';
 $VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)
 
 use Test::Builder::Module 0.99;
index 411b38b..86143d6 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 
 use strict;
 
-our $VERSION = '0.99';
+our $VERSION = '1.001002';
 $VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)
 
 use Test::Builder::Module 0.99;
index e488297..6282074 100644 (file)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use Test::Builder::Tester tests => 9;
+use Test::Builder::Tester tests => 10;
 use Test::More;
 
 ok(1,"This is a basic test");
@@ -21,8 +21,12 @@ ok(1,"one");
 ok(2,"two");
 test_test("multiple tests");
 
+test_out(qr/ok 1 - tested\n/);
+ok(1,"tested");
+test_test("regexp matching");
+
 test_out("not ok 1 - should fail");
-test_err("#     Failed test ($0 at line 28)");
+test_err("#     Failed test ($0 at line 32)");
 test_err("#          got: 'foo'");
 test_err("#     expected: 'bar'");
 is("foo","bar","should fail");
@@ -46,7 +50,7 @@ test_test("testing failing on the same line with the same name");
 
 
 test_out("not ok 1 - name # TODO Something");
-test_out("#     Failed (TODO) test ($0 at line 52)");
+test_out("#     Failed (TODO) test ($0 at line 56)");
 TODO: { 
     local $TODO = "Something";
     fail("name");
index 58b901e..90e8938 100644 (file)
@@ -35,7 +35,7 @@ my %Broken = map { $_ => 1 } qw(
 TODO: for my $name (@ARGV ? @ARGV : @Modules) {
     local $TODO = "$name known to be broken" if $Broken{$name};
 
-    local $ENV{PERL5LIB} = File::Spec->rel2abs("blib/lib");
+    local $ENV{PERL5LIB} = "$ENV{PERL5LIB}:" . File::Spec->rel2abs("blib/lib");
     my $module = CPAN::Shell->expand("Module", $name);
     $module->test;
     ok( !$module->distribution->{make_test}->failed, $name );