diff options
Diffstat (limited to 'lib/Test/Harness/t/test-harness.t')
| -rw-r--r-- | lib/Test/Harness/t/test-harness.t | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/lib/Test/Harness/t/test-harness.t b/lib/Test/Harness/t/test-harness.t index f8d8c281c7..8a5f687fdb 100644 --- a/lib/Test/Harness/t/test-harness.t +++ b/lib/Test/Harness/t/test-harness.t @@ -452,13 +452,29 @@ my %samples = ( }, all_ok => 0, }, + switches => { + total => { + bonus => 0, + max => 1, + 'ok' => 1, + files => 1, + bad => 0, + good => 1, + tests => 1, + sub_skipped=> 0, + 'todo' => 0, + skipped => 0, + }, + failed => { }, + all_ok => 1, + }, ); plan tests => (keys(%samples) * 8) + 1; use Test::Harness; use_ok('Test::Harness'); - +$Test::Harness::Switches = '"-Mstrict"'; tie *NULL, 'My::Dev::Null' or die $!; |