diff options
Diffstat (limited to 'lib/Test/Simple/t/plan.t')
| -rw-r--r-- | lib/Test/Simple/t/plan.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Test/Simple/t/plan.t b/lib/Test/Simple/t/plan.t index a7b26246a7..c2bf27a37e 100644 --- a/lib/Test/Simple/t/plan.t +++ b/lib/Test/Simple/t/plan.t @@ -7,7 +7,11 @@ BEGIN { use Test::More; -plan tests => 2; +plan tests => 4; +eval { plan tests => 4 }; +like( $@, '/^You tried to plan twice!/', 'disallow double plan' ); +eval { plan 'no_plan' }; +like( $@, '/^You tried to plan twice!/', 'disallow chaning plan' ); pass('Just testing plan()'); pass('Testing it some more'); |