/macosx-10.9.5/CPANInternal-140/Pod-WSDL/t/ |
H A D | 04Attr01basic.t | 11 ok(defined $@, 'new dies, if it does not get a string'); 17 ok(defined $@, 'new dies, if it does not get a string beginning with _ATTR'); 23 ok(defined $@, 'new dies, if array/scalar type is not specified'); 27 ok($a1->name eq 'myAttr', 'Read name correctly from input'); 28 ok($a1->type eq 'string', 'Read type correctly from input'); 29 ok($a1->array == 0, 'Read scalar type correctly from input'); 30 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input'); 32 ok($a1->nillable == undef, 'Read _NEEDED correctly from input'); 36 ok($a1->name eq 'myAttr', 'Handles whitespace before _ATTR correctly.'); 39 ok( [all...] |
H A D | 01AUTOLOAD02forbiddenmethods.t | 36 ok($@, 'Both forbidden: Using getter croaks'); 39 ok($@, 'Both forbidden: Using setter croaks'); 42 ok($@ == undef, 'Setter forbidden: Using getter does not croak'); 45 ok($@, 'Setter forbidden: Using setter croaks'); 48 ok($@, 'Getter forbidden: Using getter croaks'); 51 ok($@ == undef, 'Getter forbidden: Using setter does not croak'); 54 ok($@ == undef, 'Nothing forbidden: Using getter does not croak'); 57 ok($@ == undef, 'Nothing forbidden: Using setter does not croak'); 60 ok($@ == undef, 'Calling accessors from within package does not croak');
|
H A D | 06Fault01basic.t | 11 ok(defined $@, 'new dies, if it does not get a string'); 17 ok(defined $@, 'new dies, if it does not get a string beginning with _FAULT'); 23 ok(defined $@, 'new dies, if array/scalar type is not specified'); 27 ok($a1->wsdlName eq 'MyFault', 'Read wsdl name correctly from input'); 28 ok($a1->type eq 'My::Fault', 'Read type correctly from input'); 29 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input'); 32 ok($a1->wsdlName eq 'MyFault', 'Handles whitespace before _FAULT correctly.'); 35 ok($a1->descr eq '', 'No description is handled correctly'); 43 ok($@ == undef, 'Renaming fault is forbidden.');
|
H A D | 09Attr01basic.t | 17 ok(defined $@, 'new dies, if it does not get a name parameter'); 21 ok ($a1->name eq 'my::foo', 'Red name argument correctly'); 22 ok ($a1->wsdlName eq 'MyFoo', 'Made wsdl name correctly'); 23 ok ($a1->array == 1, 'Red array argument correctly'); 24 ok ($a1->descr eq 'blah ...', 'Red descr argument correctly'); 25 ok (@{$a1->attrs} == 6, 'Seem to parse pod correctly'); 26 ok (($a1->attrs)->[0]->name eq '_ID', '... yes'); 27 ok (($a1->attrs)->[0]->type eq 'string', '... yes'); 28 ok (($a1->attrs)->[3]->descr eq 'Additional information', '... indeed'); 32 ok ( [all...] |
/macosx-10.9.5/CPANInternal-140/Pod-WSDL-0.061/t/ |
H A D | 04Attr01basic.t | 11 ok(defined $@, 'new dies, if it does not get a string'); 17 ok(defined $@, 'new dies, if it does not get a string beginning with _ATTR'); 23 ok(defined $@, 'new dies, if array/scalar type is not specified'); 27 ok($a1->name eq 'myAttr', 'Read name correctly from input'); 28 ok($a1->type eq 'string', 'Read type correctly from input'); 29 ok($a1->array == 0, 'Read scalar type correctly from input'); 30 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input'); 32 ok($a1->nillable == undef, 'Read _NEEDED correctly from input'); 36 ok($a1->name eq 'myAttr', 'Handles whitespace before _ATTR correctly.'); 39 ok( [all...] |
H A D | 01AUTOLOAD02forbiddenmethods.t | 36 ok($@, 'Both forbidden: Using getter croaks'); 39 ok($@, 'Both forbidden: Using setter croaks'); 42 ok($@ == undef, 'Setter forbidden: Using getter does not croak'); 45 ok($@, 'Setter forbidden: Using setter croaks'); 48 ok($@, 'Getter forbidden: Using getter croaks'); 51 ok($@ == undef, 'Getter forbidden: Using setter does not croak'); 54 ok($@ == undef, 'Nothing forbidden: Using getter does not croak'); 57 ok($@ == undef, 'Nothing forbidden: Using setter does not croak'); 60 ok($@ == undef, 'Calling accessors from within package does not croak');
|
H A D | 06Fault01basic.t | 11 ok(defined $@, 'new dies, if it does not get a string'); 17 ok(defined $@, 'new dies, if it does not get a string beginning with _FAULT'); 23 ok(defined $@, 'new dies, if array/scalar type is not specified'); 27 ok($a1->wsdlName eq 'MyFault', 'Read wsdl name correctly from input'); 28 ok($a1->type eq 'My::Fault', 'Read type correctly from input'); 29 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input'); 32 ok($a1->wsdlName eq 'MyFault', 'Handles whitespace before _FAULT correctly.'); 35 ok($a1->descr eq '', 'No description is handled correctly'); 43 ok($@ == undef, 'Renaming fault is forbidden.');
|
H A D | 09Attr01basic.t | 17 ok(defined $@, 'new dies, if it does not get a name parameter'); 21 ok ($a1->name eq 'my::foo', 'Red name argument correctly'); 22 ok ($a1->wsdlName eq 'MyFoo', 'Made wsdl name correctly'); 23 ok ($a1->array == 1, 'Red array argument correctly'); 24 ok ($a1->descr eq 'blah ...', 'Red descr argument correctly'); 25 ok (@{$a1->attrs} == 6, 'Seem to parse pod correctly'); 26 ok (($a1->attrs)->[0]->name eq '_ID', '... yes'); 27 ok (($a1->attrs)->[0]->type eq 'string', '... yes'); 28 ok (($a1->attrs)->[3]->descr eq 'Additional information', '... indeed'); 32 ok ( [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/modules/pt/include/example/ |
H A D | expr_param.inc | 30 ok! value_leaf AddOp 36 ok! ast_value_push 50 ok! test_char "-" 53 ok! jump oknoast_4 60 ok! test_char "+" 63 ok! jump oknoast_4 96 ok! value_leaf Digit 102 ok! ast_value_push 124 ok! test_char "0" 127 ok! jum [all...] |
/macosx-10.9.5/CPANInternal-140/Readonly-XS/t/ |
H A D | test.t | 26 ok defined &is_sv_readonly, 'is_sv_readonly loaded'; 27 ok defined &make_sv_readonly, 'make_sv_readonly loaded'; 30 ok is_sv_readonly("hello"), 'constant string is readonly'; 31 ok is_sv_readonly(7), 'constant number is readonly'; 33 ok is_sv_readonly($x), 'constant typeglob thingy is readonly'; 35 ok !is_sv_readonly($y), 'inconstant variable is not readonly'; 39 ok is_sv_readonly($y), 'status changed to readonly';
|
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/Builder/ |
H A D | done_testing_plan_mismatch.t | 26 $tb->ok(1); 27 $tb->ok(1); 28 $tb->ok(1); 39 ok 1 40 ok 2 41 ok 3 42 not ok 4 - planned to run 3 but done_testing() expects 2
|
H A D | fork_with_new_stdout.t | 27 $b->ok((<$pipe> =~ /FROM CHILD: ok 1/), "ok 1 from child"); 28 $b->ok((<$pipe> =~ /FROM CHILD: 1\.\.1/), "1..1 from child"); 39 $b->ok(1); 46 ok 1 48 ok 1 49 ok 2 52 ok 1 53 ok [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/modules/page/ |
H A D | parse_lemon.tcl | 25 upvar #0 ::grammar::me::tcl::ok ok 32 variable ok 43 if {!$ok} { 51 return $ok 574 variable ok 580 if {$ok} {ict_match_token :} 583 if {!$ok} {icl_rewind $pos ; return} 587 if {$ok} {ict_match_token :} 590 if {!$ok} {icl_rewin [all...] |
/macosx-10.9.5/BerkeleyDB-21/db/perl/BerkeleyDB/t/ |
H A D | cds.t | 34 ok 1, my $lexD = new LexDir($home) ; 36 ok 2, my $env = new BerkeleyDB::Env -Flags => DB_CREATE|DB_INIT_MPOOL, 39 ok 3, my $db = new BerkeleyDB::Btree -Filename => $Dfile, 43 ok 4, ! $env->cds_enabled() ; 44 ok 5, ! $db->cds_enabled() ; 47 ok 6, $@ =~ /CDS not enabled for this database/; 57 ok 7, my $lexD = new LexDir($home) ; 59 ok 8, my $env = new BerkeleyDB::Env -Flags => DB_INIT_CDB|DB_CREATE|DB_INIT_MPOOL, 62 ok 9, my $db = new BerkeleyDB::Btree -Filename => $Dfile, 66 ok 1 [all...] |
H A D | filter.t | 35 ok 1, $db = tie %h, 'BerkeleyDB::Hash', 48 ok 2, checkOutput( "", "fred", "", "joe") ; 51 ok 3, $h{"fred"} eq "joe"; 53 ok 4, checkOutput( "", "fred", "joe", "") ; 56 ok 5, $db->FIRSTKEY() eq "fred" ; 58 ok 6, checkOutput( "fred", "", "", "") ; 73 ok 7, checkOutput( "", "fred", "", "Jxe") ; 76 ok 8, $h{"Fred"} eq "[Jxe]"; 79 ok 9, checkOutput( "", "fred", "[Jxe]", "") ; 82 ok 1 [all...] |
/macosx-10.9.5/CPANInternal-140/SOAP-Lite-0.69/t/ |
H A D | 27-xmlparserlite.t | 30 ok(1 => 1); 31 ok($s == 1); 32 ok($c == 1); 33 ok($e == 1); 45 ok(1 => 1); 46 ok($s == 3); 47 ok($c == 4); 48 ok($e == 3); 49 ok($foo{id} eq 'me'); 50 ok(define [all...] |
/macosx-10.9.5/CPANInternal-140/SOAP-Lite-0.715/t/ |
H A D | 27-xmlparserlite.t | 25 ok(1 => 1); 33 ok($s == 1); 34 ok($c == 1); 35 ok($e == 1); 47 ok(1 => 1); 48 ok($s == 3); 49 ok($c == 4); 50 ok($e == 3); 51 ok($foo{id} eq 'me'); 52 ok(define [all...] |
/macosx-10.9.5/CPANInternal-140/SOAP-Lite_new/t/ |
H A D | 27-xmlparserlite.t | 25 ok(1 => 1); 33 ok($s == 1); 34 ok($c == 1); 35 ok($e == 1); 47 ok(1 => 1); 48 ok($s == 3); 49 ok($c == 4); 50 ok($e == 3); 51 ok($foo{id} eq 'me'); 52 ok(define [all...] |
/macosx-10.9.5/Security-55471.14.18/sec/securityd/ |
H A D | SecOCSPCache.c | 67 __block bool ok; 68 ok = (SecDbExec(dbconn, CFSTR("PRAGMA auto_vacuum = FULL"), error) && 71 if (ok && !SecDbWithSQL(dbconn, selectHashAlgorithmSQL /* expireSQL */, &localError, NULL) && CFErrorGetCode(localError) == SQLITE_ERROR) { 73 ok &= SecDbTransaction(dbconn, kSecDbExclusiveTransactionType, error, ^(bool *commit) { 74 ok = SecDbExec(dbconn, 97 *commit = ok; 101 if (!ok) 103 return ok; 167 __block bool ok = true; 168 ok [all...] |
/macosx-10.9.5/CPANInternal-140/Log-Log4perl/t/ |
H A D | 002Logger.t | 19 ok(1); # If we made it this far, we're ok. 33 ok($log1 == $log2, "Log1 same as Log2"); 34 ok($log4 == $log5, "Log4 same as Log5"); 35 ok($log6 == $log7, "Log6 same as Log7"); 36 ok($log1 == $log8, "Log1 same as Log8"); 37 ok($log3 == $log9, "log3 same as Log9"); 40 ok($log1 != $log3, "Log1 not Log3"); 41 ok($log3 != $log4, "Log3 not Log4"); 42 ok( [all...] |
/macosx-10.9.5/CPANInternal-140/Log-Log4perl-1.40/t/ |
H A D | 002Logger.t | 26 ok(1); # If we made it this far, we're ok. 47 ok($log1 == $log2, "Log1 same as Log2"); 48 ok($log4 == $log5, "Log4 same as Log5"); 49 ok($log6 == $log7, "Log6 same as Log7"); 50 ok($log1 == $log8, "Log1 same as Log8"); 51 ok($log3 == $log9, "log3 same as Log9"); 54 ok($log1 != $log3, "Log1 not Log3"); 55 ok($log3 != $log4, "Log3 not Log4"); 56 ok( [all...] |
/macosx-10.9.5/CPANInternal-140/IO-KQueue/t/ |
H A D | 0load.t | 7 ok(IO::KQueue->new(), "Check we can create a new kqueue")
|
/macosx-10.9.5/CPANInternal-140/IO-KQueue-0.34/t/ |
H A D | 0load.t | 7 ok(IO::KQueue->new(), "Check we can create a new kqueue")
|
/macosx-10.9.5/CPANInternal-140/Perl-Ldap/t/ |
H A D | 50populate.t | 11 ok($ldap, "client"); 15 ok(!$mesg->code, "bind: " . $mesg->code . ": " . $mesg->error); 17 ok(ldif_populate($ldap, "data/50-in.ldif"), "data/50-in.ldif"); 21 ok(!$mesg->code, "search: " . $mesg->code . ": " . $mesg->error);
|
H A D | 52modify.t | 11 ok($ldap, "client"); 15 ok(!$mesg->code, "bind: " . $mesg->code . ": " . $mesg->error); 17 ok(ldif_populate($ldap, "data/52-in.ldif"), "data/52-in.ldif"); 20 ok(ldif_populate($ldap, "data/52-mod.ldif", 'modify'), "data/52-mod.ldif");
|