/macosx-10.9.5/CPANInternal-140/Apache2-SOAP/t/soap/ |
H A D | convert.t | 19 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 D | convert.t | 19 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 D | npn.t | 34 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 D | signal-readline.t | 33 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 D | is_fh.t | 17 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 D | 40leap-years.t | 12 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 D | 05-JSON-Syck.t | 13 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 D | 05-JSON-Syck.t | 13 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 D | 11WSDL01basic.t | 14 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 D | 05Doc01basic.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 _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 D | 04Type01basic.t | 14 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 D | 11WSDL01basic.t | 14 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 D | 05Doc01basic.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 _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 D | main.c | 11 if ( ok() )
|
/macosx-10.9.5/ruby-104/ruby/test/-ext-/win32/ |
H A D | test_fd_setsize.rb | 9 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 D | db-3.2.t | 34 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 D | join.t | 35 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 D | destroy.t | 23 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 D | subdb.t | 26 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 D | txn.t | 23 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 D | 56ipc.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"); 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 D | tbt_01basic.t | 6 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 D | extra_one.t | 34 ok(1); 35 ok(1); 36 ok(1); 41 ok 1 42 ok 2 43 ok 3
|
H A D | plan_bad.t | 16 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 D | SmallTest.pm | 10 @EXPORT = qw( ok is_eq is_num ); 16 sub ok subroutine 18 $Test->ok(@_);
|