1N/A### Testing _is_comment() 1N/A "# stuff and things # and stuff" => 1N/A ' stuff and things # and stuff', 1N/A " # more things " => ' more things ', 1N/A### Testing _is_header() 1N/A " max, todo and skip_all are not set" ); 1N/A '1..0 # Skipped: no leverage found' => { max => 0, 1N/A '1..4 # Skipped: no leverage found' => { max => 4, 1N/A '1..0 # skip skip skip because' => { max => 0, 1N/A '1..10 todo 2 4 10' => { max => 10, 1N/A '1..10 todo' => { max => 10 }, 1N/A '1..192 todo 4 2 13 192 # Skip skip skip because' => 1N/A ' the right attributes are there' ); 1N/A### Testing _is_test() 1N/A 'ok' => { 'ok' => 1 }, 1N/A 'not ok' => { 'ok' => 0 }, 1N/A 'ok 1066 - and all that' => { 'ok' => 1, 1N/A 'not ok 42 - universal constant' => 1N/A 'not ok 23 # TODO world peace' => { 'ok' => 0, 1N/A 'ok 11 - have life # TODO get a life' => 1N/A 'not ok # TODO' => { 'ok' => 0, 1N/A 'ok # skip' => { 'ok' => 1, 1N/A 'not ok 11 - this is \# all the name # skip this is not' 1N/A name => '- this is \# all the name', 1N/A "ok 42 - _is_header() is a header '1..192 todo 4 2 13 192 \\# Skip skip skip because" 1N/A name => "- _is_header() is a header '1..192 todo 4 2 13 192 \\# Skip skip skip because", 1N/A # is( keys %test, 0 ) won't work in 5.004 because it's undef. 1N/A ok( !keys %test, ' and produces no test info' ); 1N/A### Test _is_bail_out() 1N/A 'Bail out! Wing on fire.' => 'Wing on fire.', 1N/A 'bail out! - Out of coffee' => '- Out of coffee', 1N/A 'ok 23 - BAIL OUT!',