Searched refs:strap (Results 1 - 5 of 5) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
H A D | strap.t | 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 [all...] |
H A D | callback.t | 53 my $strap = Test::Harness::Straps->new; 54 isa_ok( $strap, 'Test::Harness::Straps' ); 55 $strap->{callback} = sub { 64 $strap->analyze_file(File::Spec->catfile($SAMPLE_TESTS, $test));
|
H A D | strap-analyze.t | 485 my $strap = Test::Harness::Straps->new; 486 isa_ok( $strap, 'Test::Harness::Straps' ); 487 my %results = $strap->analyze_file($test_path); 513 my $strap = Test::Harness::Straps->new; 514 isa_ok( $strap, 'Test::Harness::Straps' ); 515 ok( !$strap->analyze_file('I_dont_exist') ); 516 is( $strap->{error}, "I_dont_exist does not exist" );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/ |
H A D | Straps.pm | 30 my $strap = Test::Harness::Straps->new; 33 my %results = $strap->analyze($name, \@test_output); 34 my %results = $strap->analyze_fh($name, $test_filehandle); 35 my %results = $strap->analyze_file($test_file); 38 my %total = $strap->total_results; 40 # Altering the behavior of the strap UNIMPLEMENTED 41 my $verbose_output = $strap->dump_verbose(); 42 $strap->dump_verbose_fh($output_filehandle); 65 my $strap = Test::Harness::Straps->new; 67 Initialize a new strap [all...] |
/osnet-11/usr/src/lib/libprtdiag/common/ |
H A D | io.c | 439 union strap_un strap; local 474 strap.ffb_strap_bits = fsi.ffb_strap_bits; 476 (int)strap.fld.board_rev, 0);
|
Completed in 32 milliseconds