/macosx-10.9.5/CPANInternal-140/Text-LevenshteinXS/ |
H A D | test.pl | 6 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 D | test.pl | 6 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 D | filtered.t | 4 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 D | dump.t | 4 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 D | test_mailto.rb | 20 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 D | filtered.t | 4 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 D | dump.t | 4 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 D | return.t | 20 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 D | 03_all.t | 23 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 D | 13_all.t | 23 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 D | 02errors.t | 6 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 D | 02errors.t | 6 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 D | 11WSDL03operations.t | 19 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 D | 11WSDL03operations.t | 19 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 D | subtest.t | 9 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 D | thread_taint.t | 5 ok( !$INC{'threads.pm'}, 'Loading Test::More does not load threads.pm' );
|
/macosx-10.9.5/CPANInternal-140/Test-Tester/t/ |
H A D | MyTest.pm | 10 sub ok subroutine 12 $Test->ok(@_);
|
/macosx-10.9.5/dyld-239.4/unit-tests/test-cases/upward-dylib-init-order/ |
H A D | common.h | 6 extern bool ok();
|
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/Builder/ |
H A D | current_test_without_plan.t | 10 ok 1 11 ok 2 14 $tb->ok(1, "Third test");
|
/macosx-10.9.5/CPANInternal-140/Exporter-Easy/t/ |
H A D | Run.pm | 9 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 D | Run.pm | 9 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 D | Shallow.pm | 25 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 D | unknown.t | 24 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 D | test.pl | 28 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 D | test.pl | 28 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...] |