diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-20 13:42:21 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-20 13:42:21 +0000 |
commit | 5f5ae4a7c00fa8527fbc1cf66da85ee1690fc1a7 (patch) | |
tree | eaff53030c90962479d5ab06733f3af7738fe9f9 /t | |
parent | 63575281672bbbaaf04505eb965051807623f028 (diff) | |
download | perl-5f5ae4a7c00fa8527fbc1cf66da85ee1690fc1a7.tar.gz |
Don't use Test::More in core tests (at least, where
that's possible, that is where is_deeply() isn't used)
p4raw-id: //depot/perl@30993
Diffstat (limited to 't')
-rw-r--r-- | t/mro/c3_with_overload.t | 2 | ||||
-rw-r--r-- | t/mro/inconsistent_c3.t | 2 | ||||
-rw-r--r-- | t/mro/method_caching.t | 4 | ||||
-rw-r--r-- | t/mro/next_method_edge_cases.t | 4 | ||||
-rw-r--r-- | t/mro/next_method_in_anon.t | 2 | ||||
-rw-r--r-- | t/mro/next_method_in_eval.t | 2 | ||||
-rw-r--r-- | t/mro/next_method_used_with_NEXT.t | 11 | ||||
-rw-r--r-- | t/mro/overload_c3.t | 2 | ||||
-rw-r--r-- | t/mro/overload_dfs.t | 2 | ||||
-rw-r--r-- | t/mro/recursion_c3.t | 6 | ||||
-rw-r--r-- | t/mro/recursion_dfs.t | 6 |
11 files changed, 19 insertions, 24 deletions
diff --git a/t/mro/c3_with_overload.t b/t/mro/c3_with_overload.t index 88170f3767..498ce2f613 100644 --- a/t/mro/c3_with_overload.t +++ b/t/mro/c3_with_overload.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 7; +require q(./test.pl); plan(tests => 7); { package BaseTest; diff --git a/t/mro/inconsistent_c3.t b/t/mro/inconsistent_c3.t index 07f83c26ba..14f652cc6d 100644 --- a/t/mro/inconsistent_c3.t +++ b/t/mro/inconsistent_c3.t @@ -9,7 +9,7 @@ BEGIN { } } -use Test::More tests => 1; +require q(./test.pl); plan(tests => 1); =pod diff --git a/t/mro/method_caching.t b/t/mro/method_caching.t index 8013a0a14d..dd70da6afb 100644 --- a/t/mro/method_caching.t +++ b/t/mro/method_caching.t @@ -12,7 +12,7 @@ BEGIN { } } -use Test::More; +require './test.pl'; { package MCTest::Base; @@ -40,7 +40,7 @@ my @testsubs = ( sub { *XYZ = sub { $_[1]+8 }; ${MCTest::Base::}{foo} = \&XYZ; is(MCTest::Derived->foo(0), 8); }, ); -plan tests => scalar(@testsubs) + 1; +plan(tests => scalar(@testsubs) + 1); is(MCTest::Derived->foo(0), 1); $_->() for (@testsubs); diff --git a/t/mro/next_method_edge_cases.t b/t/mro/next_method_edge_cases.t index 496537c137..91c2c8581b 100644 --- a/t/mro/next_method_edge_cases.t +++ b/t/mro/next_method_edge_cases.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 11; +require q(./test.pl); plan(tests => 11); { @@ -41,7 +41,7 @@ use Test::More tests => 11; # test it working with with Sub::Name SKIP: { eval 'use Sub::Name'; - skip "Sub::Name is required for this test", 3 if $@; + skip("Sub::Name is required for this test", 3) if $@; my $m = sub { (shift)->next::method() }; Sub::Name::subname('Bar::bar', $m); diff --git a/t/mro/next_method_in_anon.t b/t/mro/next_method_in_anon.t index e135d540dd..b6f0451611 100644 --- a/t/mro/next_method_in_anon.t +++ b/t/mro/next_method_in_anon.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 2; +require q(./test.pl); plan(tests => 2); =pod diff --git a/t/mro/next_method_in_eval.t b/t/mro/next_method_in_eval.t index d55ce80ac9..f8c13a6413 100644 --- a/t/mro/next_method_in_eval.t +++ b/t/mro/next_method_in_eval.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 1; +require q(./test.pl); plan(tests => 1); =pod diff --git a/t/mro/next_method_used_with_NEXT.t b/t/mro/next_method_used_with_NEXT.t index f7a8c111a1..e8d85fc527 100644 --- a/t/mro/next_method_used_with_NEXT.t +++ b/t/mro/next_method_used_with_NEXT.t @@ -2,14 +2,10 @@ use strict; use warnings; +use NEXT; -use Test::More; - -BEGIN { - eval "use NEXT"; - plan skip_all => "NEXT required for this test" if $@; - plan tests => 4; -} +require './test.pl'; +plan(tests => 4); { package Foo; @@ -38,7 +34,6 @@ BEGIN { package Baz; use strict; use warnings; - require NEXT; # load this as late as possible so we can catch the test skip use base 'Bar', 'Fuz'; diff --git a/t/mro/overload_c3.t b/t/mro/overload_c3.t index e227dcdbd8..a62e631af0 100644 --- a/t/mro/overload_c3.t +++ b/t/mro/overload_c3.t @@ -9,7 +9,7 @@ BEGIN { } } -use Test::More tests => 7; +require q(./test.pl); plan(tests => 7); { package BaseTest; diff --git a/t/mro/overload_dfs.t b/t/mro/overload_dfs.t index 98f9a2cb7f..89f11d0260 100644 --- a/t/mro/overload_dfs.t +++ b/t/mro/overload_dfs.t @@ -9,7 +9,7 @@ BEGIN { } } -use Test::More tests => 7; +require q(./test.pl); plan(tests => 7); { package BaseTest; diff --git a/t/mro/recursion_c3.t b/t/mro/recursion_c3.t index 60b174b1d2..7aa4a7b866 100644 --- a/t/mro/recursion_c3.t +++ b/t/mro/recursion_c3.t @@ -9,11 +9,11 @@ BEGIN { } } -use Test::More; +require './test.pl'; use mro; -plan skip_all => "Your system has no SIGALRM" if !exists $SIG{ALRM}; -plan tests => 8; +plan(skip_all => "Your system has no SIGALRM") if !exists $SIG{ALRM}; +plan(tests => 8); =pod diff --git a/t/mro/recursion_dfs.t b/t/mro/recursion_dfs.t index a3d610e7f1..313a4ed562 100644 --- a/t/mro/recursion_dfs.t +++ b/t/mro/recursion_dfs.t @@ -9,11 +9,11 @@ BEGIN { } } -use Test::More; +require './test.pl'; use mro; -plan skip_all => "Your system has no SIGALRM" if !exists $SIG{ALRM}; -plan tests => 8; +plan(skip_all => "Your system has no SIGALRM") if !exists $SIG{ALRM}; +plan(tests => 8); =pod |