2012-02-29 15:54:25 +01:00
|
|
|
diff -urN t.old/00-compile.t t/00-compile.t
|
|
|
|
--- t.old/00-compile.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/00-compile.t 2012-02-29 15:42:58.937740000 +0100
|
|
|
|
@@ -3,7 +3,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
diff -urN t.old/addsub.t t/addsub.t
|
|
|
|
--- t.old/addsub.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/addsub.t 2012-02-29 15:42:58.952742000 +0100
|
2011-07-05 12:18:32 +02:00
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
2012-02-29 15:54:25 +01:00
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
use Test::Fatal;
|
|
|
|
|
|
|
|
BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
|
|
|
|
@@ -43,4 +43,4 @@
|
|
|
|
is $DB::sub{'Foo::dunk'}, sprintf "%s:%d-%d", "FileName", 100, 199,
|
|
|
|
'... got the right %DB::sub value for dunk with specified args';
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
|
|
|
diff -urN t.old/author-leaks-debug.t t/author-leaks-debug.t
|
|
|
|
--- t.old/author-leaks-debug.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/author-leaks-debug.t 2012-02-29 15:42:58.968740000 +0100
|
|
|
|
@@ -10,7 +10,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
2011-07-05 12:18:32 +02:00
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
use Test::Fatal;
|
2012-02-29 15:54:25 +01:00
|
|
|
use Test::LeakTrace;
|
2011-07-05 12:18:32 +02:00
|
|
|
|
2012-02-29 15:54:25 +01:00
|
|
|
@@ -209,4 +209,4 @@
|
|
|
|
} "doesn't leak on errors";
|
2011-07-05 12:18:32 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
2012-02-29 15:54:25 +01:00
|
|
|
diff -urN t.old/author-leaks.t t/author-leaks.t
|
|
|
|
--- t.old/author-leaks.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/author-leaks.t 2012-02-29 15:42:58.984740000 +0100
|
|
|
|
@@ -10,7 +10,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
use Test::Fatal;
|
|
|
|
use Test::LeakTrace;
|
|
|
|
|
|
|
|
@@ -207,4 +207,4 @@
|
|
|
|
} "doesn't leak on errors";
|
|
|
|
}
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
|
|
|
diff -urN t.old/basic.t t/basic.t
|
|
|
|
--- t.old/basic.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/basic.t 2012-02-29 15:42:59.001744000 +0100
|
2011-07-05 12:18:32 +02:00
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
use Test::Fatal;
|
|
|
|
|
2012-02-29 15:54:25 +01:00
|
|
|
use Package::Stash;
|
|
|
|
@@ -437,4 +437,4 @@
|
|
|
|
"module name must be a string"
|
|
|
|
);
|
2011-07-05 12:18:32 +02:00
|
|
|
|
2012-02-29 15:54:25 +01:00
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
|
|
|
diff -urN t.old/compile-time.t t/compile-time.t
|
|
|
|
--- t.old/compile-time.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/compile-time.t 2012-02-29 15:42:59.015741000 +0100
|
|
|
|
@@ -2,8 +2,8 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
|
|
|
use_ok('CompileTime');
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
|
|
|
diff -urN t.old/edge-cases.t t/edge-cases.t
|
|
|
|
--- t.old/edge-cases.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/edge-cases.t 2012-02-29 15:42:59.029743000 +0100
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
use Test::Fatal;
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
@@ -53,4 +53,4 @@
|
|
|
|
is(ref($stash->get_symbol('$glob')), '', "nothing yet");
|
|
|
|
is(ref($stash->get_or_add_symbol('$glob')), 'SCALAR', "got an empty scalar");
|
2011-07-05 12:18:32 +02:00
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
2012-02-29 15:54:25 +01:00
|
|
|
diff -urN t.old/extension.t t/extension.t
|
|
|
|
--- t.old/extension.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/extension.t 2012-02-29 15:42:59.044740000 +0100
|
2011-07-05 12:18:32 +02:00
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
use Test::Fatal;
|
|
|
|
|
|
|
|
{
|
2012-02-29 15:54:25 +01:00
|
|
|
@@ -73,4 +73,4 @@
|
|
|
|
|
|
|
|
ok(!defined($Foo::{baz}), '... the %baz slot has still not been created');
|
2011-07-05 12:18:32 +02:00
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
2012-02-29 15:54:25 +01:00
|
|
|
diff -urN t.old/get.t t/get.t
|
|
|
|
--- t.old/get.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/get.t 2012-02-29 15:42:59.059740000 +0100
|
2011-07-05 12:18:32 +02:00
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
use Scalar::Util;
|
2012-02-29 15:54:25 +01:00
|
|
|
@@ -183,4 +183,4 @@
|
2011-07-05 12:18:32 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
2012-02-29 15:54:25 +01:00
|
|
|
diff -urN t.old/io.t t/io.t
|
|
|
|
--- t.old/io.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/io.t 2012-02-29 15:42:59.073742000 +0100
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
use Test::Fatal;
|
|
|
|
|
|
|
|
{
|
|
|
|
@@ -48,4 +48,4 @@
|
|
|
|
is($stash->get_symbol('baz'), *Foo::foo{IO}, "got the right baz");
|
|
|
|
}
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
|
|
|
diff -urN t.old/isa.t t/isa.t
|
|
|
|
--- t.old/isa.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/isa.t 2012-02-29 15:42:59.109744000 +0100
|
2011-07-05 12:18:32 +02:00
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
2012-02-29 15:54:25 +01:00
|
|
|
@@ -19,4 +19,4 @@
|
2011-07-05 12:18:32 +02:00
|
|
|
@{$stash->get_or_add_symbol('@ISA')} = @ISA;
|
|
|
|
isa_ok('Foo', 'Bar');
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
2012-02-29 15:54:25 +01:00
|
|
|
diff -urN t.old/paamayim_nekdotayim.t t/paamayim_nekdotayim.t
|
|
|
|
--- t.old/paamayim_nekdotayim.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/paamayim_nekdotayim.t 2012-02-29 15:42:59.122742000 +0100
|
2011-07-05 12:18:32 +02:00
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
use Test::Fatal;
|
|
|
|
|
2012-02-29 15:54:25 +01:00
|
|
|
use Package::Stash;
|
|
|
|
@@ -25,4 +25,4 @@
|
|
|
|
"can't add symbol with ::"
|
|
|
|
);
|
2011-07-05 12:18:32 +02:00
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
2012-02-29 15:54:25 +01:00
|
|
|
diff -urN t.old/release-eol.t t/release-eol.t
|
|
|
|
--- t.old/release-eol.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/release-eol.t 2012-02-29 15:42:59.136743000 +0100
|
|
|
|
@@ -8,7 +8,7 @@
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
|
|
|
eval 'use Test::EOL';
|
|
|
|
plan skip_all => 'Test::EOL required' if $@;
|
|
|
|
diff -urN t.old/release-no-tabs.t t/release-no-tabs.t
|
|
|
|
--- t.old/release-no-tabs.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/release-no-tabs.t 2012-02-29 15:42:59.150740000 +0100
|
|
|
|
@@ -8,7 +8,7 @@
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
|
|
|
eval 'use Test::NoTabs';
|
|
|
|
plan skip_all => 'Test::NoTabs required' if $@;
|
|
|
|
diff -urN t.old/release-pod-coverage.t t/release-pod-coverage.t
|
|
|
|
--- t.old/release-pod-coverage.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/release-pod-coverage.t 2012-02-29 15:42:59.164740000 +0100
|
|
|
|
@@ -8,7 +8,7 @@
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
|
|
|
eval "use Test::Pod::Coverage 1.08";
|
|
|
|
plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage"
|
|
|
|
diff -urN t.old/release-pod-syntax.t t/release-pod-syntax.t
|
|
|
|
--- t.old/release-pod-syntax.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/release-pod-syntax.t 2012-02-29 15:42:59.178741000 +0100
|
|
|
|
@@ -7,7 +7,7 @@
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
|
|
|
eval "use Test::Pod 1.41";
|
|
|
|
plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
|
|
|
|
diff -urN t.old/scalar-values.t t/scalar-values.t
|
|
|
|
--- t.old/scalar-values.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/scalar-values.t 2012-02-29 15:42:59.192741000 +0100
|
2011-07-05 12:18:32 +02:00
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
use Test::Fatal;
|
|
|
|
|
2012-02-29 15:54:25 +01:00
|
|
|
use B;
|
|
|
|
@@ -50,4 +50,4 @@
|
|
|
|
is(exception { $Bar->add_symbol('$vstring', \$vstring) }, undef,
|
|
|
|
"can add vstring values");
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
|
|
|
diff -urN t.old/stash-deletion.t t/stash-deletion.t
|
|
|
|
--- t.old/stash-deletion.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/stash-deletion.t 2012-02-29 15:42:59.206741000 +0100
|
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
2011-07-05 12:18:32 +02:00
|
|
|
use Package::Stash;
|
2012-02-29 15:54:25 +01:00
|
|
|
|
|
|
|
@@ -21,4 +21,4 @@
|
2011-07-05 12:18:32 +02:00
|
|
|
ok(!$delete->has_symbol('&bar'), "method goes away when stash is deleted");
|
|
|
|
}
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|
2012-02-29 15:54:25 +01:00
|
|
|
diff -urN t.old/synopsis.t t/synopsis.t
|
|
|
|
--- t.old/synopsis.t 2011-09-06 16:28:21.000000000 +0200
|
|
|
|
+++ t/synopsis.t 2012-02-29 15:42:59.221740000 +0100
|
2011-07-05 12:18:32 +02:00
|
|
|
@@ -2,7 +2,7 @@
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use lib 't/lib';
|
|
|
|
-use Test::More;
|
|
|
|
+use Test::More qw(no_plan);
|
|
|
|
|
|
|
|
use Package::Stash;
|
|
|
|
|
2012-02-29 15:54:25 +01:00
|
|
|
@@ -16,4 +16,4 @@
|
2011-07-05 12:18:32 +02:00
|
|
|
my $namespace = $stash->namespace;
|
|
|
|
is_deeply(*{ $namespace->{foo} }{HASH}, {bar => 1}, "namespace works properly");
|
|
|
|
|
|
|
|
-done_testing;
|
|
|
|
+#done_testing;
|