diff options
Diffstat (limited to 'cpan/Test-Simple/t/Builder/reset.t')
| -rw-r--r-- | cpan/Test-Simple/t/Builder/reset.t | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/cpan/Test-Simple/t/Builder/reset.t b/cpan/Test-Simple/t/Builder/reset.t index 6bff7fcf27..3bc44457fc 100644 --- a/cpan/Test-Simple/t/Builder/reset.t +++ b/cpan/Test-Simple/t/Builder/reset.t @@ -44,11 +44,13 @@ $tb->use_numbers(0); $tb->no_header(1); $tb->no_ending(1); +$tb->done_testing; # make sure done_testing gets reset # Now reset it. $tb->reset; +# Test the state of the reset builder $Test->ok( !defined $tb->exported_to, 'exported_to' ); $Test->is_eq( $tb->expected_tests, 0, 'expected_tests' ); $Test->is_eq( $tb->level, 1, 'level' ); @@ -65,9 +67,12 @@ $Test->is_eq( fileno $tb->failure_output, $Test->is_eq( fileno $tb->todo_output, fileno $Original_Output{todo_output}, 'todo_output' ); -$tb->current_test(12); +# The reset Test::Builder will take over from here. +$Test->no_ending(1); + + +$tb->current_test($Test->current_test); $tb->level(0); $tb->ok(1, 'final test to make sure output was reset'); -$Test->current_test(13); -$Test->done_testing(13); +$tb->done_testing; |