},
test => {
requires => {
- 'Test::More' => '0.88',
+ 'Test::More' => '0.47',
}
},
},
) {
plan skip_all => $missing_xs;
}
+ else {
+ plan tests => 4;
+ }
}
BEGIN {
#line 1
#!/usr/bin/perl -d
-#line 10
+#line 27
}
ok( !Foo->can("baz"), "baz cleaned up" );
Foo->bar();
-
-done_testing;
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 2;
use constant CONST => 123;
use namespace::clean;
is $x, 123;
ok eval("!defined(&CONST)");
-
-done_testing;
use strict;
use warnings;
-use Test::More 0.88;
+use Test::More tests => 4;
{
package Bar;
}
}
}
-
-
-done_testing;
$ENV{B_HOOKS_ENDOFSCOPE_IMPLEMENTATION} = 'PP';
$ENV{PACKAGE_STASH_IMPLEMENTATION} = 'PP';
+ plan tests => 13;
}
use B::Hooks::EndOfScope 0.12;
wait;
ok (! $?, "Exit $? from: @cmd");
}
-
-done_testing;