Lines Matching full:parser

9 use TAP::Parser;
21 my $parser = TAP::Parser->new( { tap => $tap } );
22 isa_ok $parser, 'TAP::Parser',
26 while ( my $result = $parser->next ) {
30 can_ok $parser, 'passed';
31 is $parser->passed, 3,
33 is_deeply [ $parser->passed ], [ 1, 2, 3 ],
36 can_ok $parser, 'failed';
37 is $parser->failed, 1, '... and the correct number of failed tests';
38 is_deeply [ $parser->failed ], [4], '... and get a list of the failed tests';
40 can_ok $parser, 'actual_passed';
41 is $parser->actual_passed, 2,
43 is_deeply [ $parser->actual_passed ], [ 1, 3 ],
46 can_ok $parser, 'actual_failed';
47 is $parser->actual_failed, 2,
49 is_deeply [ $parser->actual_failed ], [ 2, 4 ],
52 can_ok $parser, 'todo';
53 is $parser->todo, 1,
55 is_deeply [ $parser->todo ], [2], '... and get a list of the TODO tests';
57 ok !$parser->skipped,
62 can_ok $parser, 'plan';
63 is $parser->plan,          '1..4', '... and we should have the correct plan';
64 is $parser->tests_planned, 4,      '... and the correct number of tests';
68 ok @results, 'The parser should return results';