Searched refs:ok (Results 1 - 25 of 1802) sorted by relevance

1234567891011>>

/macosx-10.9.5/CPANInternal-140/Text-LevenshteinXS/
H A Dtest.pl6 ok(1);
7 if (distance("foo","four") == 2) {ok(1)} else {ok(0)}
8 if (distance("foo","foo") == 0) {ok(1)} else {ok(0)}
9 if (distance("foo","") == 3) {ok(1)} else {ok(0)}
10 if (distance("four","foo") == 2) {ok(1)} else {ok(0)}
11 if (distance("foo","bar") == 3) {ok(
[all...]
/macosx-10.9.5/CPANInternal-140/Text-LevenshteinXS-0.03/
H A Dtest.pl6 ok(1);
7 if (distance("foo","four") == 2) {ok(1)} else {ok(0)}
8 if (distance("foo","foo") == 0) {ok(1)} else {ok(0)}
9 if (distance("foo","") == 3) {ok(1)} else {ok(0)}
10 if (distance("four","foo") == 2) {ok(1)} else {ok(0)}
11 if (distance("foo","bar") == 3) {ok(
[all...]
/macosx-10.9.5/CPANInternal-140/Data-Dump-1.21/t/
H A Dfiltered.t4 use Test qw(plan ok);
9 ok(dumpf("foo", sub { return { dump => "x" }}), 'x');
10 ok(dumpf("foo", sub { return { object => "x" }}), '"x"');
11 ok(dumpf("foo", sub { return { comment => "x" }}), "# x\n\"foo\"");
12 ok(dumpf({}, sub { return { bless => "x"}}), "bless({}, \"x\")");
13 ok(dumpf({a => 1, b => 2}, sub { return { hide_keys => ["b"] }}), "{ a => 1 }");
14 ok(dumpf("foo", sub { return }), '"foo"');
17 ok(dumpf("foo", sub {
20 ok($$obj, "foo");
21 ok(
[all...]
H A Ddump.t4 use Test qw(plan ok);
9 ok(dump(), "()");
10 ok(dump("abc"), qq("abc"));
11 ok(dump("1\n"), qq("1\\n"));
12 ok(dump(undef), "undef");
13 ok(dump(0), "0");
14 ok(dump(1234), "1234");
15 ok(dump(12345), "12345");
16 ok(dump(12345678), "12345678");
17 ok(dum
[all...]
/macosx-10.9.5/ruby-104/ruby/test/uri/
H A Dtest_mailto.rb20 ok = []
25 ok << ["mailto:chris@example.com"]
26 ok[-1] << ["chris@example.com", nil]
27 ok[-1] << {:to => "chris@example.com"}
30 ok << ["mailto:infobot@example.com?subject=current-issue"]
31 ok[-1] << ["infobot@example.com", ["subject=current-issue"]]
32 ok[-1] << {:to => "infobot@example.com",
36 ok << ["mailto:infobot@example.com?body=send%20current-issue"]
37 ok[-1] << ["infobot@example.com", ["body=send%20current-issue"]]
38 ok[
[all...]
/macosx-10.9.5/CPANInternal-140/Data-Dump/t/
H A Dfiltered.t4 use Test qw(plan ok);
9 ok(dumpf("foo", sub { return { dump => "x" }}), 'x');
10 ok(dumpf("foo", sub { return { object => "x" }}), '"x"');
11 ok(dumpf("foo", sub { return { comment => "x" }}), "# x\n\"foo\"");
12 ok(dumpf({}, sub { return { bless => "x"}}), "bless({}, \"x\")");
13 ok(dumpf({a => 1, b => 2}, sub { return { hide_keys => ["b"] }}), "{ a => 1 }");
14 ok(dumpf("foo", sub { return }), '"foo"');
17 ok(dumpf("foo", sub {
20 ok($$obj, "foo");
21 ok(
[all...]
H A Ddump.t4 use Test qw(plan ok);
9 ok(dump(), "()");
10 ok(dump("abc"), qq("abc"));
11 ok(dump("1\n"), qq("1\\n"));
12 ok(dump(undef), "undef");
13 ok(dump(0), "0");
14 ok(dump(1234), "1234");
15 ok(dump(12345), "12345");
16 ok(dump(12345678), "12345678");
17 ok(dum
[all...]
/macosx-10.9.5/CPANInternal-140/Test-Exception/t/
H A Dreturn.t20 my $ok = dies_ok { div(1, 0) } 'dies_ok passed on die';
21 ok($ok, 'dies_ok returned true when block dies');
26 test_out('not ok 1 - dies_ok failed');
28 my $ok = dies_ok { div(1, 1) } 'dies_ok failed';
31 ok(!$ok, 'dies_ok returned false on failure');
36 my $ok = throws_ok { div(1, 0) } '/./', 'throws_ok succeeded';
37 ok($ok, 'throws_o
[all...]
/macosx-10.9.5/CPANInternal-140/Params-Util/t/
H A D03_all.t23 ok( defined &_STRING, '_STRING imported ok' );
24 ok( defined &_IDENTIFIER, '_IDENTIFIER imported ok' );
26 ok( defined &_CLASS, '_CLASS imported ok' );
27 ok( defined &_CLASSISA, '_CLASSISA imported ok' );
28 ok( defined &_SUBCLASS, '_SUBCLASS imported ok' );
[all...]
H A D13_all.t23 ok( defined &_STRING, '_STRING imported ok' );
24 ok( defined &_IDENTIFIER, '_IDENTIFIER imported ok' );
26 ok( defined &_CLASS, '_CLASS imported ok' );
27 ok( defined &_CLASSISA, '_CLASSISA imported ok' );
28 ok( defined &_SUBCLASS, '_SUBCLASS imported ok' );
[all...]
/macosx-10.9.5/CPANInternal-140/Sub-Identify/t/
H A D02errors.t6 ok( !defined sub_name( undef ) );
7 ok( !defined sub_name( "scalar" ) );
8 ok( !defined sub_name( \"scalar ref" ) );
9 ok( !defined sub_name( \@INC ) );
11 ok( !defined stash_name( undef ) );
12 ok( !defined stash_name( "scalar" ) );
13 ok( !defined stash_name( \"scalar ref" ) );
14 ok( !defined stash_name( \@INC ) );
/macosx-10.9.5/CPANInternal-140/Sub-Identify-0.04/t/
H A D02errors.t6 ok( !defined sub_name( undef ) );
7 ok( !defined sub_name( "scalar" ) );
8 ok( !defined sub_name( \"scalar ref" ) );
9 ok( !defined sub_name( \@INC ) );
11 ok( !defined stash_name( undef ) );
12 ok( !defined stash_name( "scalar" ) );
13 ok( !defined stash_name( \"scalar ref" ) );
14 ok( !defined stash_name( \@INC ) );
/macosx-10.9.5/CPANInternal-140/Pod-WSDL/t/
H A D11WSDL03operations.t19 ok($xp->exists('/wsdl:definitions/wsdl:message[@name = "testGeneralRequest"]'), 'Found message element "testGeneralRequest" in xml output.');
20 ok($xp->exists('/wsdl:definitions/wsdl:message[@name = "testGeneralRequest"]/wsdl:part[@name = "in" and @type = "xsd:string"]'), 'Found part element "in" for message "testGeneralRequest" in xml output.');
22 ok($xp->exists('/wsdl:definitions/wsdl:message[@name = "testGeneralResponse"]'), 'Found message element "testGeneralResponse" in xml output.');
23 ok($xp->exists('/wsdl:definitions/wsdl:message[@name = "testGeneralResponse"]/wsdl:part[@name = "testGeneralReturn" and @type = "xsd:string"]'), 'Found part element "testGeneralReturn" for message "testGeneralResponse" in xml output.');
25 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]'), 'Found portType element "MyOperationTestHandler" in xml output.');
26 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]/wsdl:operation[@name = "testGeneral" and @parameterOrder = "in"]'), 'Found operation element "testGeneral" in portType in xml output.');
27 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]/wsdl:operation[@name = "testGeneral" and @parameterOrder = "in"]/wsdl:documentation[text() = "bla bla"]'), 'Found documentation for operation element "testGeneral".');
28 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]/wsdl:operation[@name = "testGeneral" and @parameterOrder = "in"]/wsdl:input[@message = "impl:testGeneralRequest" and @name="testGeneralRequest"]'), 'Found input message for operation element "testGeneral".');
29 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]/wsdl:operation[@name = "testGeneral" and @parameterOrder = "in"]/wsdl:output[@message = "impl:testGeneralResponse" and @name="testGeneralResponse"]'), 'Found output message for operation element "testGeneral".');
32 ok(
[all...]
/macosx-10.9.5/CPANInternal-140/Pod-WSDL-0.061/t/
H A D11WSDL03operations.t19 ok($xp->exists('/wsdl:definitions/wsdl:message[@name = "testGeneralRequest"]'), 'Found message element "testGeneralRequest" in xml output.');
20 ok($xp->exists('/wsdl:definitions/wsdl:message[@name = "testGeneralRequest"]/wsdl:part[@name = "in" and @type = "xsd:string"]'), 'Found part element "in" for message "testGeneralRequest" in xml output.');
22 ok($xp->exists('/wsdl:definitions/wsdl:message[@name = "testGeneralResponse"]'), 'Found message element "testGeneralResponse" in xml output.');
23 ok($xp->exists('/wsdl:definitions/wsdl:message[@name = "testGeneralResponse"]/wsdl:part[@name = "testGeneralReturn" and @type = "xsd:string"]'), 'Found part element "testGeneralReturn" for message "testGeneralResponse" in xml output.');
25 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]'), 'Found portType element "MyOperationTestHandler" in xml output.');
26 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]/wsdl:operation[@name = "testGeneral" and @parameterOrder = "in"]'), 'Found operation element "testGeneral" in portType in xml output.');
27 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]/wsdl:operation[@name = "testGeneral" and @parameterOrder = "in"]/wsdl:documentation[text() = "bla bla"]'), 'Found documentation for operation element "testGeneral".');
28 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]/wsdl:operation[@name = "testGeneral" and @parameterOrder = "in"]/wsdl:input[@message = "impl:testGeneralRequest" and @name="testGeneralRequest"]'), 'Found input message for operation element "testGeneral".');
29 ok($xp->exists('/wsdl:definitions/wsdl:portType[@name = "MyOperationTestHandler"]/wsdl:operation[@name = "testGeneral" and @parameterOrder = "in"]/wsdl:output[@message = "impl:testGeneralResponse" and @name="testGeneralResponse"]'), 'Found output message for operation element "testGeneral".');
32 ok(
[all...]
/macosx-10.9.5/CPANInternal-140/Test-Simple/examples/
H A Dsubtest.t9 ok 1;
13 ok 1 for 1 .. $num_tests - 1;
16 ok 1 for 1 .. 2 + int( rand(3) );
19 ok 1;
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/
H A Dthread_taint.t5 ok( !$INC{'threads.pm'}, 'Loading Test::More does not load threads.pm' );
/macosx-10.9.5/CPANInternal-140/Test-Tester/t/
H A DMyTest.pm10 sub ok subroutine
12 $Test->ok(@_);
/macosx-10.9.5/dyld-239.4/unit-tests/test-cases/upward-dylib-init-order/
H A Dcommon.h6 extern bool ok();
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/Builder/
H A Dcurrent_test_without_plan.t10 ok 1
11 ok 2
14 $tb->ok(1, "Third test");
/macosx-10.9.5/CPANInternal-140/Exporter-Easy/t/
H A DRun.pm9 my $ok = $@ ? 0 : 1;
11 return ($ok, $@);
18 my ($ok, $err) = run_it($code);
20 ok($ok, $name) || diag("eval died with $err");
22 return $ok;
29 my ($ok, $err) = run_it($code);
31 ok(!$ok, $name) || diag("$code executed successfully");
33 return !$ok;
[all...]
/macosx-10.9.5/CPANInternal-140/Exporter-Easy-0.16/t/
H A DRun.pm9 my $ok = $@ ? 0 : 1;
11 return ($ok, $@);
18 my ($ok, $err) = run_it($code);
20 ok($ok, $name) || diag("eval died with $err");
22 return $ok;
29 my ($ok, $err) = run_it($code);
31 ok(!$ok, $name) || diag("$code executed successfully");
33 return !$ok;
[all...]
/macosx-10.9.5/CPANInternal-140/Test-Deep/lib/Test/Deep/
H A DShallow.pm25 my $ok;
29 $ok = 1;
33 $ok = 0;
37 $ok = refaddr($got) == refaddr($exp);
41 $ok = 0;
45 $ok = $got eq $exp;
48 return $ok;
/macosx-10.9.5/BerkeleyDB-21/db/perl/BerkeleyDB/t/
H A Dunknown.t24 ok 1, $@ =~ /unknown key value\(s\) Stupid/ ;
27 ok 2, $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/ ;
30 ok 3, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
33 ok 4, $@ =~ /^Txn not of type BerkeleyDB::Txn/ ;
37 ok 5, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
44 ok 6, writeFile($Dfile, "") ;
46 ok 7, ! (new BerkeleyDB::Unknown -Filename => $Dfile);
50 ok 8, ! (new BerkeleyDB::Unknown -Filename => $Dfile);
59 ok 9, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
65 ok 1
[all...]
/macosx-10.9.5/CPANInternal-140/Crypt-OpenSSL-Bignum/
H A Dtest.pl28 ok( $bn );
29 ok( $bn->to_decimal() eq $decimal_string );
33 ok( $bn );
34 ok( $bn->to_hex() eq uc( $hex_string ) );
35 ok( $bn->to_decimal() eq '127' );
39 ok( $bn );
40 ok( $bn->to_bin() eq $bin_string );
41 ok( $bn->to_decimal() eq '512' );
46 ok( $bn23->cmp($ bn25 ) == -1 );
47 ok(
[all...]
/macosx-10.9.5/CPANInternal-140/Crypt-OpenSSL-Bignum-0.04/
H A Dtest.pl28 ok( $bn );
29 ok( $bn->to_decimal() eq $decimal_string );
33 ok( $bn );
34 ok( $bn->to_hex() eq uc( $hex_string ) );
35 ok( $bn->to_decimal() eq '127' );
39 ok( $bn );
40 ok( $bn->to_bin() eq $bin_string );
41 ok( $bn->to_decimal() eq '512' );
46 ok( $bn23->cmp($ bn25 ) == -1 );
47 ok(
[all...]

Completed in 381 milliseconds

1234567891011>>