Searched refs:ok (Results 101 - 125 of 1802) sorted by relevance

1234567891011>>

/macosx-10.9.5/CPANInternal-140/Apache2-SOAP/t/soap/
H A Dconvert.t19 ok t_cmp(defined $soap, 1, "$soap");
24 ok t_cmp($@, "");
25 ok t_cmp($out->fault, undef);
27 ok t_cmp(defined $results, 1);
28 ok t_cmp(ref($results), 'HASH');
29 ok t_cmp($results->{results}, lc($string));
33 ok t_cmp($@, "");
34 ok t_cmp($out->fault, undef);
36 ok t_cmp(defined $results, 1);
37 ok t_cm
[all...]
/macosx-10.9.5/CPANInternal-140/Apache2-SOAP-0.73/t/soap/
H A Dconvert.t19 ok t_cmp(defined $soap, 1, "$soap");
24 ok t_cmp($@, "");
25 ok t_cmp($out->fault, undef);
27 ok t_cmp(defined $results, 1);
28 ok t_cmp(ref($results), 'HASH');
29 ok t_cmp($results->{results}, lc($string));
33 ok t_cmp($@, "");
34 ok t_cmp($out->fault, undef);
36 ok t_cmp(defined $results, 1);
37 ok t_cm
[all...]
/macosx-10.9.5/CPANInternal-140/IO-Socket-SSL/t/
H A Dnpn.t34 ok(0,$!);
37 ok(1,"Server Initialization at $addr");
55 ok(0, "connect failed: ".IO::Socket::SSL->errstr() );
58 ok(1,"client connected" );
60 ok($proto eq 'two',"negotiated $proto");
66 ok(0,"accept failed: ".$server->errstr() );
70 ok(1,"Server accepted" );
72 ok($proto eq 'two',"negotiated $proto");
76 sub ok {
77 my $ok
[all...]
H A Dsignal-readline.t33 print "not ok\n", exit if !$server;
34 ok("Server Initialization");
40 $SIG{HUP} = sub { ok("got hup") };
45 ok( "client ssl connect" );
49 ok("got line");
55 ok("accept");
59 ok("wrote foo");
63 ok("send hup");
67 ok("wrote bar\\n");
70 ok("wai
[all...]
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/Builder/
H A Dis_fh.t17 ok( !Test::Builder->is_fh("foo"), 'string is not a filehandle' );
18 ok( !Test::Builder->is_fh(''), 'empty string' );
19 ok( !Test::Builder->is_fh(undef), 'undef' );
21 ok( open(FILE, '>foo') );
24 ok( Test::Builder->is_fh(*FILE) );
25 ok( Test::Builder->is_fh(\*FILE) );
26 ok( Test::Builder->is_fh(*FILE{IO}) );
29 ok( Test::Builder->is_fh(*OUT) );
30 ok( Test::Builder->is_fh(\*OUT) );
35 ok( Tes
[all...]
/macosx-10.9.5/CPANInternal-140/DateTime/t/
H A D40leap-years.t12 ok( DateTime->_is_leap_year($y), "$y is a leap year" );
17 ok( ! DateTime->_is_leap_year($y), "$y is not a leap year" );
/macosx-10.9.5/CPANInternal-140/JSON-Any/t/
H A D05-JSON-Syck.t13 ok( JSON::Any->new->objToJson( { foo => 1 } ) );
14 ok( JSON::Any->new->jsonToObj('{ "foo" : 1 }') );
/macosx-10.9.5/CPANInternal-140/JSON-Any-1.29/t/
H A D05-JSON-Syck.t13 ok( JSON::Any->new->objToJson( { foo => 1 } ) );
14 ok( JSON::Any->new->jsonToObj('{ "foo" : 1 }') );
/macosx-10.9.5/CPANInternal-140/Pod-WSDL/t/
H A D11WSDL01basic.t14 ok($@ =~ /I need a location/, 'new dies, if it does not get a location');
20 ok($@ =~ /I need a file or module name or a filehandle, died/, 'new dies, if it does not get a source');
27 ok($p->writer->{_pretty}, 'Received pretty argument correctly');
28 ok($p->writer->{_withDocumentation}, 'Received withDocumentation argument correctly');
29 ok($p->location eq 'http://localhost/My/Server', 'Received location argument correctly');
30 ok($p->{_source} eq 'My::Server', 'Received source argument correctly');
31 ok($p->{_baseName} eq 'MyServer', 'Generated base name argument correctly');
34 ok($p->location eq 'http://localhost/My/Other/Server', 'Setting location works');
36 ok($p->namespaces->{'xmlns:impl'} eq 'http://localhost/My/Server', 'Generated xmlns:impl namespace correctly');
37 ok(
[all...]
H A D05Doc01basic.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 _DOC');
21 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input');
24 ok($a1->descr eq 'blah blah ...', 'Handles whitespace before _DOC correctly.');
27 ok($a1->descr eq '', 'No description is handled correctly');
30 ok($a1->descr eq 'more blah', 'Setting description works');
H A D04Type01basic.t14 ok(defined $@, 'new Type dies, if it does not get a name');
21 ok($t1->name eq 'foo', 'Read name argument correctly from input');
22 ok($t1->array == 1, 'Read array argument correctly from input');
23 ok($t1->descr eq 'a description', 'Read descr argument correctly from input');
24 ok((ref $t1->writer eq 'Pod::WSDL::Writer'), 'Read writer argument correctly from input');
27 ok($t1->array == 0, 'Setting array member works');
38 ok(defined $@, 'Type does not allow getting of writer');
41 ok(defined $@, 'Type does not allow setting of name');
44 ok(defined $@, 'Type does not allow setting of descr');
47 ok(define
[all...]
/macosx-10.9.5/CPANInternal-140/Pod-WSDL-0.061/t/
H A D11WSDL01basic.t14 ok($@ =~ /I need a location/, 'new dies, if it does not get a location');
20 ok($@ =~ /I need a file or module name or a filehandle, died/, 'new dies, if it does not get a source');
27 ok($p->writer->{_pretty}, 'Received pretty argument correctly');
28 ok($p->writer->{_withDocumentation}, 'Received withDocumentation argument correctly');
29 ok($p->location eq 'http://localhost/My/Server', 'Received location argument correctly');
30 ok($p->{_source} eq 'My::Server', 'Received source argument correctly');
31 ok($p->{_baseName} eq 'MyServer', 'Generated base name argument correctly');
34 ok($p->location eq 'http://localhost/My/Other/Server', 'Setting location works');
36 ok($p->namespaces->{'xmlns:impl'} eq 'http://localhost/My/Server', 'Generated xmlns:impl namespace correctly');
37 ok(
[all...]
H A D05Doc01basic.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 _DOC');
21 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input');
24 ok($a1->descr eq 'blah blah ...', 'Handles whitespace before _DOC correctly.');
27 ok($a1->descr eq '', 'No description is handled correctly');
30 ok($a1->descr eq 'more blah', 'Setting description works');
/macosx-10.9.5/dyld-239.4/unit-tests/test-cases/upward-dylib-init-order/
H A Dmain.c11 if ( ok() )
/macosx-10.9.5/ruby-104/ruby/test/-ext-/win32/
H A Dtest_fd_setsize.rb9 assert_in_out_err([], <<-INPUT, %w(:ok), [], bug6532)
12 p :ok
18 assert_in_out_err([], <<-INPUT, %w(:ok), [], bug6532)
20 p :ok if Bug::Win32.test_fdset
/macosx-10.9.5/BerkeleyDB-21/db/perl/BerkeleyDB/t/
H A Ddb-3.2.t34 ok 1, 1 ;
41 ok 2, my $lexD = new LexDir($home) ;
42 ok 3, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
53 ok 4, my $lexD = new LexDir($home) ;
54 ok 5, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
56 ok 6, ! $env->set_flags(DB_NOMMAP, 1);
H A Djoin.t35 ok 1, my $db1 = tie %hash1, 'BerkeleyDB::Hash',
43 ok 2, $@ =~ /Usage: \$db->BerkeleyDB::db_join\Q([cursors], flags=0)/;
47 ok 3, $@ =~ /db_join: No cursors in parameter list/;
51 ok 4, $@ =~ /db_join: first parameter is not an array reference/;
54 ok 5, $@ =~ /db_join: first parameter is not an array reference/;
60 ok 6, $@ =~ /db_join: first parameter is not an array reference/;
76 ok 7, ! -d $home;
77 ok 8, my $lexD = new LexDir($home);
78 ok 9, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
82 ok 1
[all...]
H A Ddestroy.t23 ok 1, my $lexD = new LexDir($home) ;
24 ok 2, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
27 ok 3, my $txn = $env->txn_begin() ;
28 ok 4, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
33 ok 5, $txn->txn_commit() == 0 ;
34 ok 6, $txn = $env->txn_begin() ;
48 ok 7, $ret == 0 ;
52 ok 8, my $cursor = $db1->db_cursor() ;
59 ok 9, $count == 3 ;
63 ok 1
[all...]
H A Dsubdb.t26 ok my $db = new BerkeleyDB::Unknown -Filename => $file ,
30 ok my $cursor = $db->db_cursor() ;
38 ok $status == DB_NOTFOUND;
52 ok $@ =~ /unknown key value\(s\) Stupid/ ;
55 ok $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/ ;
58 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
61 ok $@ =~ /^Must specify a filename/ ;
65 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
76 ok my $db = new BerkeleyDB::Hash -Filename => $Dfile,
88 ok addDat
[all...]
H A Dtxn.t23 ok 1, my $lexD = new LexDir($home);
24 ok 2, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
27 ok 3, $@ =~ /^BerkeleyDB Aborting: Transaction Manager not enabled at/ ;
30 ok 4, $@ =~ /^BerkeleyDB Aborting: Transaction Manager not enabled at/ ;
43 ok 5, my $lexD = new LexDir($home);
44 ok 6, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
47 ok 7, my $txn = $env->txn_begin() ;
48 ok 8, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
54 ok 9, $txn->txn_commit() == 0 ;
55 ok 1
[all...]
/macosx-10.9.5/CPANInternal-140/Perl-Ldap/t/
H A D56ipc.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");
20 ok(!$mesg->code, "search: " . $mesg->code . ": " . $mesg->error);
25 ok($ldap, "ipc client");
28 ok(!$mesg->code, "search: " . $mesg->code . ": " . $mesg->error);
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/Tester/
H A Dtbt_01basic.t6 ok(1,"This is a basic test");
8 test_out("ok 1 - tested");
9 ok(1,"tested");
12 test_out("ok 1 - tested");
13 ok(1,"tested");
16 ok(1,"test unrelated to Test::Builder::Tester");
18 test_out("ok 1 - one");
19 test_out("ok 2 - two");
20 ok(1,"one");
21 ok(
[all...]
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/
H A Dextra_one.t34 ok(1);
35 ok(1);
36 ok(1);
41 ok 1
42 ok 2
43 ok 3
H A Dplan_bad.t16 ok !eval { $tb->plan( tests => 'no_plan' ); };
21 ok !eval { $tb->plan( tests => @foo ) };
24 ok !eval { $tb->plan( tests => 9.99 ) };
28 ok !eval { $tb->plan( tests => -1 ) };
32 ok !eval { $tb->plan( tests => '' ) };
36 ok !eval { $tb->plan( 'wibble' ) };
/macosx-10.9.5/CPANInternal-140/Test-Tester/t/
H A DSmallTest.pm10 @EXPORT = qw( ok is_eq is_num );
16 sub ok subroutine
18 $Test->ok(@_);

Completed in 103 milliseconds

1234567891011>>