Lines Matching refs:strap
19 my $strap = Test::Harness::Straps->new;
20 isa_ok( $strap, 'Test::Harness::Straps', 'new()' );
25 ok( !$strap->_is_comment("foo", \$comment), '_is_comment(), not a comment' );
28 ok( !$strap->_is_comment("f # oo", \$comment), ' not a comment with #' );
40 my $strap = Test::Harness::Straps->new;
41 isa_ok( $strap, 'Test::Harness::Straps' );
44 ok( $strap->_is_comment($line, \$comment), " comment '$name'" );
61 my $strap = Test::Harness::Straps->new;
63 ok( !$strap->_is_header($unheader),
66 ok( (!grep { exists $strap->{$_} } qw(max todo skip_all)),
107 my $strap = Test::Harness::Straps->new;
108 isa_ok( $strap, 'Test::Harness::Straps' );
110 ok( $strap->_is_header($header), "_is_header() is a header '$header'" );
112 is( $strap->{skip_all}, $expect->{skip_all}, ' skip_all set right' )
115 ok( eq_set( [map $strap->{$_}, grep defined $strap->{$_}, @attribs],
177 ok( $strap->_is_test($line, \%test), "_is_test() spots '$line'" );
190 my $strap = Test::Harness::Straps->new;
191 isa_ok( $strap, 'Test::Harness::Straps' );
194 ok( !$strap->_is_test($line, \%test), "_is_test() disregards '$line'" );
212 my $strap = Test::Harness::Straps->new;
213 isa_ok( $strap, 'Test::Harness::Straps' );
216 ok( $strap->_is_bail_out($line, \$reason), "_is_bail_out() spots '$line'");
228 my $strap = Test::Harness::Straps->new;
229 isa_ok( $strap, 'Test::Harness::Straps' );
233 ok( !$strap->_is_bail_out($line, \$reason),