diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2009-10-12 18:24:50 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2009-10-12 18:24:50 +0000 |
| commit | 7bed5fce775e8466f8c0c970eaeb5071d8a7718c (patch) | |
| tree | c0c8e293312f13dfe8f57376c94f545c453ced38 /gnu/usr.bin/perl/lib/Test/Simple/t/no_plan.t | |
| parent | 4c85db8b5736693bd819a09987f0dc89a9f1c24d (diff) | |
Merge in perl 5.10.1
Diffstat (limited to 'gnu/usr.bin/perl/lib/Test/Simple/t/no_plan.t')
| -rw-r--r-- | gnu/usr.bin/perl/lib/Test/Simple/t/no_plan.t | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/gnu/usr.bin/perl/lib/Test/Simple/t/no_plan.t b/gnu/usr.bin/perl/lib/Test/Simple/t/no_plan.t index 10e85abda9d..5f392e40e1f 100644 --- a/gnu/usr.bin/perl/lib/Test/Simple/t/no_plan.t +++ b/gnu/usr.bin/perl/lib/Test/Simple/t/no_plan.t @@ -1,5 +1,4 @@ #!/usr/bin/perl -w -# $Id$ BEGIN { if( $ENV{PERL_CORE} ) { @@ -11,10 +10,9 @@ BEGIN { } } -use Test::More tests => 9; +use Test::More tests => 7; my $tb = Test::Builder->create; -$tb->level(0); #line 20 ok !eval { $tb->plan(tests => undef) }; @@ -24,16 +22,12 @@ is($@, "Got an undefined number of tests at $0 line 20.\n"); ok !eval { $tb->plan(tests => 0) }; is($@, "You said to run 0 tests at $0 line 24.\n"); -#line 28 -ok !eval { $tb->ok(1) }; -is( $@, "You tried to run a test without a plan at $0 line 28.\n"); - { my $warning = ''; local $SIG{__WARN__} = sub { $warning .= join '', @_ }; -#line 36 +#line 31 ok $tb->plan(no_plan => 1); - is( $warning, "no_plan takes no arguments at $0 line 36.\n" ); + is( $warning, "no_plan takes no arguments at $0 line 31.\n" ); is $tb->has_plan, 'no_plan'; } |