/macosx-10.9.5/CPANInternal-140/Class-Inspector/t/ |
H A D | 02_main.t | 47 ok( CI->_class( CI ), 'Class validator works for known valid' ); 48 ok( CI->_class( BAD ), 'Class validator works for correctly formatted, but not installed' ); 49 ok( CI->_class( 'A::B::C::D::E' ), 'Class validator works for long classes' ); 50 ok( CI->_class( '::' ), 'Class validator allows main' ); 51 ok( CI->_class( '::Blah' ), 'Class validator works for main aliased' ); 52 ok( ! CI->_class(), 'Class validator failed for missing class' ); 53 ok( ! CI->_class( '4teen' ), 'Class validator fails for number starting class' ); 54 ok( ! CI->_class( 'Blah::%f' ), 'Class validator catches bad characters' ); 62 ok( CI->loaded( CI ), "->loaded detects loaded" ); 63 ok( ! C [all...] |
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/ |
H A D | is_deeply_fail.t | 31 sub ok ($;$) { 32 return $TB->ok(@_); 38 my $ok = $TB->is_eq($$this, $that, $name); 42 return $ok; 49 my $ok = $TB->like($$this, $regex, $name); 53 return $ok; 63 ok !is_deeply('foo', 'bar', 'plain strings'); 64 is( $out, "not ok 1 - plain strings\n", 'plain strings' ); 74 ok !is_deeply({}, [], 'different types'); 75 is( $out, "not ok [all...] |
H A D | eq_set.t | 20 ok( eq_set([1, 2, [3]], [[3], 1, 2]) ); 21 ok( eq_set([1,2,[3]], [1,[3],2]) ); 25 ok( eq_set( [$ref, "$ref", "$ref", $ref], 32 ok( eq_set( [\1, \2, \3], [\2, \3, \1] ) );
|
H A D | no_plan.t | 18 ok !eval { $tb->plan(tests => undef) }; 22 ok !eval { $tb->plan(tests => 0) }; 30 ok $tb->plan(no_plan => 1);
|
/macosx-10.9.5/Security-55471.14.18/sec/SOSCircle/Regressions/ |
H A D | sc-40-circle.c | 38 ok(NULL != circle, "Circle creation"); 40 ok(0 == SOSCircleCountPeers(circle), "Zero peers"); 51 ok(parameters, "No parameters!"); 52 ok(error == NULL, "Error: (%@)", error); 62 ok(SOSCircleRequestAdmission(circle, user_privkey, peer_a_full_info, NULL)); 63 ok(SOSCircleRequestAdmission(circle, user_privkey, peer_a_full_info, NULL)); 64 ok(SOSCircleRequestAdmission(circle, user_privkey, peer_a_full_info, NULL)); 66 ok(SOSCircleAcceptRequest(circle, user_privkey, peer_a_full_info, SOSFullPeerInfoGetPeerInfo(peer_a_full_info), NULL)); 68 ok(!SOSCircleRequestAdmission(circle, user_privkey, peer_a_full_info, NULL)); 69 ok(SOSCircleRequestAdmissio [all...] |
H A D | sc-41-cloudcircle.c | 16 static const int kSOSCCTestCount = 6; // # of "ok"s in "tests" below 23 ok(SOSCCSetUserCredentials(CFSTR("foo1"), cfpassword, &error), "Added Creds (%@)", error); 27 ok(SOSCCThisDeviceIsInCircle(&error) == kSOSCCCircleAbsent, "Circle Absent (%@)", error); 29 ok(SOSCCResetToOffering(&error), "SOSCCOfferPotentialCircle (%@)", error); 32 ok(SOSCCThisDeviceIsInCircle(&error) == kSOSCCInCircle, "Circle Absent (%@)", error); 34 ok(SOSCCRemoveThisDeviceFromCircle(&error), "Leaving (%@)", error); 37 ok(SOSCCThisDeviceIsInCircle(&error) == kSOSCCCircleAbsent, "Circle Absent (%@)", error);
|
/macosx-10.9.5/CPANInternal-140/Log-Log4perl/t/ |
H A D | 001Level.t | 18 ok(1); # If we made it this far, we're ok. 22 ok(Log::Log4perl::Level::to_level($_)); 27 ok(Log::Log4perl::Level::to_level($_)); 32 ok(Log::Log4perl::Level::to_level($_)); 35 # ok, now let's check to make sure the relative order is correct. 37 ok(Log::Log4perl::Level::isGreaterOrEqual($TRACE, $DEBUG)); 38 ok(Log::Log4perl::Level::isGreaterOrEqual($DEBUG, $INFO)); 39 ok(Log::Log4perl::Level::isGreaterOrEqual($INFO, $WARN)); 40 ok(Lo [all...] |
H A D | 025CustLevels.t | 19 ok(1); # If we made it this far, we're ok. 28 ok(Log::Log4perl::Logger::create_custom_level("TEST$_", "INFO"), 0); 34 ok(!defined eval { Log::Log4perl::Logger::create_custom_level("TEST15", "INFO") }); 60 ok(Log::Log4perl::Logger::create_custom_level("BTREE$_", $level), 0); 89 ok(!defined eval { Log::Log4perl::Logger::create_custom_level("NOTIFY", "WARN"); }); 106 ok($data, $result1); 120 ok($data, "$result1$result2"); 132 ok($data, "$result1$result2$result3"); 144 ok( [all...] |
/macosx-10.9.5/CPANInternal-140/Log-Log4perl-1.40/t/ |
H A D | 001Level.t | 25 ok(1); # If we made it this far, we're ok. 29 ok(Log::Log4perl::Level::to_level($_)); 34 ok(Log::Log4perl::Level::to_level($_)); 39 ok(Log::Log4perl::Level::to_level($_)); 42 # ok, now let's check to make sure the relative order is correct. 44 ok(Log::Log4perl::Level::isGreaterOrEqual($TRACE, $DEBUG)); 45 ok(Log::Log4perl::Level::isGreaterOrEqual($DEBUG, $INFO)); 46 ok(Log::Log4perl::Level::isGreaterOrEqual($INFO, $WARN)); 47 ok(Lo [all...] |
H A D | 025CustLevels.t | 26 ok(1); # If we made it this far, we're ok. 35 ok(Log::Log4perl::Logger::create_custom_level("TEST$_", "INFO"), 0); 41 ok(!defined eval { Log::Log4perl::Logger::create_custom_level("TEST15", "INFO") }); 67 ok(Log::Log4perl::Logger::create_custom_level("BTREE$_", $level), 0); 96 ok(!defined eval { Log::Log4perl::Logger::create_custom_level("NOTIFY", "WARN"); }); 113 ok($data, $result1); 127 ok($data, "$result1$result2"); 139 ok($data, "$result1$result2$result3"); 151 ok( [all...] |
/macosx-10.9.5/CPANInternal-140/Task-Weaken/t/ |
H A D | 02_weaken.t | 20 ok( defined(&weaken), '->import(weaken) worked' ); 21 ok( defined(&isweak), '->import(isweak) worked' ); 44 ok( ref($y) and ref($z)); 46 ok( ref($y) and ref($z)); 48 ok( not (defined($y) and defined($z)) ); 50 ok( not (defined($y) and defined($z)) ); 55 ok( ref($y) ); 57 ok( not defined $y ); 64 ok( ref($y) ); 66 ok( [all...] |
/macosx-10.9.5/CPANInternal-140/XML-LibXML/t/ |
H A D | 19encoding.t | 35 ok(1); 41 # ok there is the UTF16 test still missing 62 ok( decodeFromUTF8( 'iso-8859-1' ,$elemlat1->toString()), 64 ok( $elemlat1->toString(0,1), "<$tstr_iso_latin1/>"); 67 ok( $elemlat2->toString(0,1), "<�l/>"); 71 ok( decodeFromUTF8( 'iso-8859-1' ,$elemlat1->string_value()), 73 ok( $elemlat1->string_value(1), $tstr_iso_latin1); 75 ok( $dom_latin1->toString(), $domstrlat1 ); 95 ok( decodeFromUTF8( 'EUC-JP' , $elemjp->nodeName()), 97 ok( decodeFromUTF [all...] |
/macosx-10.9.5/CPANInternal-140/DateTime-Format-Builder-0.80/t/ |
H A D | basic.t | 13 ok(( $@ and $@ =~ /takes no param/), "Too many parameters exception" ); 16 ok( !$@, "Created object" ); 20 ok(( $@ and $@ =~ /No parser/), "No parser exception" );
|
/macosx-10.9.5/CPANInternal-140/IO-Socket-SSL/t/ |
H A D | core.t | 67 print "not ok\n"; 70 &ok("Server Initialization"); 73 &ok("Server Fileno Check"); 92 &ok("Client non-SSL connection"); 107 my ($ok, $ctx_store, $cert, $error) = @_; 108 unless ($ok && $ctx_store && $cert && !$error) 109 { print("not ok #client failure\n") && exit; } 111 &ok("Client Verify-sub Check"); 116 $client || (print("not ok #client failure\n") && exit); 117 &ok("Clien [all...] |
H A D | sessions.t | 50 print "not ok # Server init\n"; 53 &ok("Server initialization"); 74 print "not ok \# Context init\n"; 77 &ok("Context init"); 84 &ok("Superficial Cache Addition Test"); 89 &ok("Superficial Cache Addition Test 2"); 96 &ok("Cache Keys Check 1"); 101 &ok("Cache Keys Check 2"); 107 &ok("Cache Head Check"); 115 &ok("Cach [all...] |
/macosx-10.9.5/CPANInternal-140/Pod-WSDL/t/ |
H A D | 01AUTOLOAD01basic.t | 20 ok($foo->bar eq 'blah', '"_bar" retrievable with "bar".'); 22 ok($foo->bar eq 'bloerch', '"_bar" settable with "bar".'); 28 ok($@, 'Using method not equivalent to any attribute croaks');
|
/macosx-10.9.5/CPANInternal-140/Pod-WSDL-0.061/t/ |
H A D | 01AUTOLOAD01basic.t | 20 ok($foo->bar eq 'blah', '"_bar" retrievable with "bar".'); 22 ok($foo->bar eq 'bloerch', '"_bar" settable with "bar".'); 28 ok($@, 'Using method not equivalent to any attribute croaks');
|
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/Builder/ |
H A D | Builder.t | 18 $Test->ok( 1, 'compiled and new()' ); 19 $Test->ok( $default_lvl == 1, 'level()' ); 28 print "ok $test_num - current_test() set\n"; 30 $Test->ok( 1, 'counter still good' );
|
H A D | output.t | 32 $Test->ok( defined $out ); 94 $tb->ok(1, "ok"); 95 $tb->ok(1, "ok\n"); 96 $tb->ok(1, "ok, like\nok"); 102 ok 1 - ok 103 ok [all...] |
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/Tester/ |
H A D | tbt_05faildiag.t | 8 test_out("not ok 1 - one"); 10 ok(0,"one"); 12 test_out("not ok 2 - two"); 15 ok(0,"two"); 20 test_out("not ok 1 - one"); 21 ok(0,"one");
|
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/subtest/ |
H A D | die.t | 16 $tb->ok(1); 18 $Test->ok( !eval { 26 $Test->ok( !$tb->parent, "the parent object is restored after a die" );
|
/macosx-10.9.5/ruby-104/ruby/ext/io/console/ |
H A D | extconf.rb | 3 ok = true 13 ok = false 18 if ok
|
/macosx-10.9.5/CPANInternal-140/Perl-Ldap/t/ |
H A D | 57url.t | 13 ok($ldap, "client"); 17 ok(!$mesg->code, "bind: " . $mesg->code . ": " . $mesg->error); 19 ok(ldif_populate($ldap, "data/50-in.ldif"), "data/50-in.ldif"); 22 ok(!$mesg->code, "search: " . $mesg->code . ": " . $mesg->error); 28 ok($ldap, "$url client"); 31 ok(!$mesg->code, "search: " . $mesg->code . ": " . $mesg->error);
|
/macosx-10.9.5/CPANInternal-140/YAML-Syck/t/ |
H A D | TestYAML.pm | 14 *::ok = *ok; 15 *::is = *ok;
|
/macosx-10.9.5/CPANInternal-140/Class-Trigger-0.14/inc/Test/ |
H A D | More.pm | 26 our @EXPORT = qw(ok use_ok require_ok 84 sub ok ($;$) { subroutine 88 return $tb->ok( $test, $name ); 139 my $ok = $tb->ok( 0, "->can(...)" ); 141 return $ok; 145 my $ok = $tb->ok( 0, "$class->can(...)" ); 147 return $ok; 158 my $ok [all...] |