|
 |
45a9ad3 |
diff -up namespace-clean-0.22/t/07-debugger.t.orig namespace-clean-0.22/t/07-debugger.t
|
|
|
45a9ad3 |
--- namespace-clean-0.22/t/07-debugger.t.orig 2011-12-21 09:50:20.000000000 +0000
|
|
|
45a9ad3 |
+++ namespace-clean-0.22/t/07-debugger.t 2011-12-27 12:15:04.039679744 +0000
|
|
|
45a9ad3 |
@@ -17,6 +17,8 @@ BEGIN {
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
}
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
+plan tests => 4;
|
|
|
45a9ad3 |
+
|
|
|
45a9ad3 |
{
|
|
|
45a9ad3 |
package Foo;
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
@@ -35,5 +37,3 @@ ok( !Foo->can("foo"), "foo cleaned up" )
|
|
|
45a9ad3 |
ok( !Foo->can("baz"), "baz cleaned up" );
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
Foo->bar();
|
|
|
45a9ad3 |
-
|
|
|
45a9ad3 |
-done_testing;
|
|
|
45a9ad3 |
diff -up namespace-clean-0.22/t/08-const-sub.t.orig namespace-clean-0.22/t/08-const-sub.t
|
|
|
45a9ad3 |
--- namespace-clean-0.22/t/08-const-sub.t.orig 2011-03-29 22:44:20.000000000 +0100
|
|
|
45a9ad3 |
+++ namespace-clean-0.22/t/08-const-sub.t 2011-12-27 12:15:04.052679751 +0000
|
|
|
45a9ad3 |
@@ -1,7 +1,7 @@
|
|
|
45a9ad3 |
use strict;
|
|
|
45a9ad3 |
use warnings;
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
-use Test::More 0.88;
|
|
|
45a9ad3 |
+use Test::More tests => 2;
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
use constant CONST => 123;
|
|
|
45a9ad3 |
use namespace::clean;
|
|
|
45a9ad3 |
@@ -10,5 +10,3 @@ my $x = CONST;
|
|
|
45a9ad3 |
is $x, 123;
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
ok eval("!defined(&CONST)");
|
|
|
45a9ad3 |
-
|
|
|
45a9ad3 |
-done_testing;
|
|
|
45a9ad3 |
diff -up namespace-clean-0.22/t/09-fiddle-hinthash.t.orig namespace-clean-0.22/t/09-fiddle-hinthash.t
|
|
|
45a9ad3 |
--- namespace-clean-0.22/t/09-fiddle-hinthash.t.orig 2011-12-22 11:07:06.000000000 +0000
|
|
|
45a9ad3 |
+++ namespace-clean-0.22/t/09-fiddle-hinthash.t 2011-12-27 12:15:43.780700500 +0000
|
|
|
45a9ad3 |
@@ -1,7 +1,7 @@
|
|
|
45a9ad3 |
use strict;
|
|
|
45a9ad3 |
use warnings;
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
-use Test::More 0.88;
|
|
|
45a9ad3 |
+use Test::More tests => 4;
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
{
|
|
|
45a9ad3 |
package Bar;
|
|
|
45a9ad3 |
@@ -49,5 +49,3 @@ use Test::More 0.88;
|
|
|
45a9ad3 |
}
|
|
|
45a9ad3 |
}
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
-
|
|
|
45a9ad3 |
-done_testing;
|
|
|
45a9ad3 |
diff -up namespace-clean-0.22/t/10-pure-perl.t.orig namespace-clean-0.22/t/10-pure-perl.t
|
|
|
45a9ad3 |
--- namespace-clean-0.22/t/10-pure-perl.t.orig 2011-12-22 11:20:21.000000000 +0000
|
|
|
45a9ad3 |
+++ namespace-clean-0.22/t/10-pure-perl.t 2011-12-27 12:16:46.394733202 +0000
|
|
|
45a9ad3 |
@@ -8,6 +8,8 @@ plan skip_all => "PP tests already execu
|
|
|
45a9ad3 |
eval { require B::Hooks::EndOfScope }
|
|
|
45a9ad3 |
or plan skip_all => "PP tests already executed";
|
|
|
45a9ad3 |
|
|
|
45a9ad3 |
+plan tests => 11;
|
|
|
45a9ad3 |
+
|
|
|
45a9ad3 |
# the PP tests will run either wih D::H (mainly on smokers)
|
|
|
45a9ad3 |
# or by setting the envvar (for users)
|
|
|
45a9ad3 |
my $has_d_h = eval { require Devel::Hide };
|
|
|
45a9ad3 |
@@ -45,5 +47,3 @@ for my $fn (glob("$Bin/*.t")) {
|
|
|
45a9ad3 |
wait;
|
|
|
45a9ad3 |
ok (! $?, "Exit $? from: @cmd");
|
|
|
45a9ad3 |
}
|
|
|
45a9ad3 |
-
|
|
|
45a9ad3 |
-done_testing;
|