Searched defs:My (Results 1 - 4 of 4) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Dexit.t4 package My::Test;
94 My::Test::ok( $actual_exit != 0,
99 My::Test::ok( $actual_exit == $exit_code,
H A Dextra.t11 package My::Test;
48 My::Test::ok($$out eq <<OUT);
57 My::Test::ok($$err eq <<ERR);
H A Dfail-more.t20 package My::Test;
72 isa_ok(42, "Wibble", "My Wibble");
98 My::Test::ok($$out eq <<OUT, 'failing output');
114 not ok 15 - My Wibble isa Wibble
170 # My Wibble isn't a reference
217 unless( My::Test::ok($$err =~ /^\Q$err_re\E$more_err_re$/,
H A Dfail.t20 package My::Test;
52 My::Test::ok($$out eq <<OUT);
61 My::Test::ok($$err eq <<ERR);

Completed in 48 milliseconds