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,
},
'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
use strict;
use warnings;
-our $VERSION = '0.99';
+our $VERSION = '1.001002';
$VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
BEGIN {
require Exporter;
our @ISA = qw(Exporter);
-our $VERSION = '0.99';
+our $VERSION = '1.001002';
$VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
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 {
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;
use strict;
-our $VERSION = '0.99';
+our $VERSION = '1.001002';
$VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
use Test::Builder::Module 0.99;
#!/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");
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");
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");
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 );