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 Dstrap.t19 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 Dcallback.t53 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 Dstrap-analyze.t485 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 DStraps.pm30 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 Dio.c439 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