Searched refs:ok (Results 76 - 100 of 1802) sorted by relevance

1234567891011>>

/macosx-10.9.5/CPANInternal-140/Pod-WSDL/t/
H A D04Attr01basic.t11 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 D01AUTOLOAD02forbiddenmethods.t36 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 D06Fault01basic.t11 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 D09Attr01basic.t17 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 D04Attr01basic.t11 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 D01AUTOLOAD02forbiddenmethods.t36 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 D06Fault01basic.t11 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 D09Attr01basic.t17 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 Dexpr_param.inc30 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 Dtest.t26 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 Ddone_testing_plan_mismatch.t26 $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 Dfork_with_new_stdout.t27 $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 Dparse_lemon.tcl25 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 Dcds.t34 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 Dfilter.t35 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 D27-xmlparserlite.t30 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 D27-xmlparserlite.t25 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 D27-xmlparserlite.t25 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 DSecOCSPCache.c67 __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 D002Logger.t19 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 D002Logger.t26 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 D0load.t7 ok(IO::KQueue->new(), "Check we can create a new kqueue")
/macosx-10.9.5/CPANInternal-140/IO-KQueue-0.34/t/
H A D0load.t7 ok(IO::KQueue->new(), "Check we can create a new kqueue")
/macosx-10.9.5/CPANInternal-140/Perl-Ldap/t/
H A D50populate.t11 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 D52modify.t11 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");

Completed in 299 milliseconds

1234567891011>>