summaryrefslogtreecommitdiff
path: root/cpan/Test-Simple
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2013-11-04 20:30:08 +0000
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2013-11-04 20:30:08 +0000
commit6dab85637d8f61aea9028318a712db8b575f1a36 (patch)
treed46ecb85feed6453e7b96d1578cb9ea0d725e91c /cpan/Test-Simple
parent6e1d3801821a486f3306ed90ff5db38077cc0ef0 (diff)
downloadperl-6dab85637d8f61aea9028318a712db8b575f1a36.tar.gz
Update Test-Simple to CPAN version 1.001002
[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
Diffstat (limited to 'cpan/Test-Simple')
-rw-r--r--cpan/Test-Simple/lib/Test/Builder.pm2
-rw-r--r--cpan/Test-Simple/lib/Test/Builder/Module.pm2
-rw-r--r--cpan/Test-Simple/lib/Test/Builder/Tester.pm2
-rw-r--r--cpan/Test-Simple/lib/Test/More.pm2
-rw-r--r--cpan/Test-Simple/lib/Test/Simple.pm2
-rw-r--r--cpan/Test-Simple/t/Tester/tbt_01basic.t10
-rw-r--r--cpan/Test-Simple/t/dependents.t2
7 files changed, 13 insertions, 9 deletions
diff --git a/cpan/Test-Simple/lib/Test/Builder.pm b/cpan/Test-Simple/lib/Test/Builder.pm
index 847a26c739..061b0fc5a6 100644
--- a/cpan/Test-Simple/lib/Test/Builder.pm
+++ b/cpan/Test-Simple/lib/Test/Builder.pm
@@ -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 {
diff --git a/cpan/Test-Simple/lib/Test/Builder/Module.pm b/cpan/Test-Simple/lib/Test/Builder/Module.pm
index 24a9d55bed..48e9ea8f74 100644
--- a/cpan/Test-Simple/lib/Test/Builder/Module.pm
+++ b/cpan/Test-Simple/lib/Test/Builder/Module.pm
@@ -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)
diff --git a/cpan/Test-Simple/lib/Test/Builder/Tester.pm b/cpan/Test-Simple/lib/Test/Builder/Tester.pm
index 299ee521f0..49a42cead1 100644
--- a/cpan/Test-Simple/lib/Test/Builder/Tester.pm
+++ b/cpan/Test-Simple/lib/Test/Builder/Tester.pm
@@ -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 {
diff --git a/cpan/Test-Simple/lib/Test/More.pm b/cpan/Test-Simple/lib/Test/More.pm
index ad3cf50673..50f3e39b0e 100644
--- a/cpan/Test-Simple/lib/Test/More.pm
+++ b/cpan/Test-Simple/lib/Test/More.pm
@@ -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;
diff --git a/cpan/Test-Simple/lib/Test/Simple.pm b/cpan/Test-Simple/lib/Test/Simple.pm
index 411b38ba00..86143d6320 100644
--- a/cpan/Test-Simple/lib/Test/Simple.pm
+++ b/cpan/Test-Simple/lib/Test/Simple.pm
@@ -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;
diff --git a/cpan/Test-Simple/t/Tester/tbt_01basic.t b/cpan/Test-Simple/t/Tester/tbt_01basic.t
index e488297071..62820741c2 100644
--- a/cpan/Test-Simple/t/Tester/tbt_01basic.t
+++ b/cpan/Test-Simple/t/Tester/tbt_01basic.t
@@ -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");
diff --git a/cpan/Test-Simple/t/dependents.t b/cpan/Test-Simple/t/dependents.t
index 58b901e0c2..90e8938ebe 100644
--- a/cpan/Test-Simple/t/dependents.t
+++ b/cpan/Test-Simple/t/dependents.t
@@ -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 );