Searched refs:ok (Results 26 - 50 of 1802) sorted by relevance

1234567891011>>

/macosx-10.9.5/BerkeleyDB-21/db/perl/BerkeleyDB/t/
H A Dhash.t26 ok 1, $@ =~ /unknown key value\(s\) Stupid/ ;
29 ok 2, $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/ ;
32 ok 3, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
35 ok 4, $@ =~ /^Txn not of type BerkeleyDB::Txn/ ;
39 ok 5, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
47 ok 6, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
53 ok 7, $db->db_put("some key", "some value") == 0 ;
54 ok 8, $db->status() == 0 ;
55 ok 9, $db->db_get("some key", $value) == 0 ;
56 ok 1
[all...]
H A Dqueue.t31 ok $@ =~ /unknown key value\(s\) Stupid/ ;
34 ok $@ =~ /unknown key value\(s\) / ;
37 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
40 ok $@ =~ /^Txn not of type BerkeleyDB::Txn/ ;
44 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
54 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
62 ok $db->db_put(1, "some value") == 0 ;
63 ok $db->status() == 0 ;
64 ok $db->db_get(1, $value) == 0 ;
65 ok
[all...]
H A Dbtree.t24 ok 1, $@ =~ /unknown key value\(s\) Stupid/ ;
27 ok 2, $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/
31 ok 3, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
34 ok 4, $@ =~ /^Txn not of type BerkeleyDB::Txn/ ;
38 ok 5, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
46 ok 6, my $db = new BerkeleyDB::Btree -Filename => $Dfile,
52 ok 7, $db->db_put("some key", "some value") == 0 ;
53 ok 8, $db->status() == 0 ;
54 ok 9, $db->db_get("some key", $value) == 0 ;
55 ok 1
[all...]
H A Dstrict.t22 ok 1, my $lexD = new LexDir($home);
23 ok 2, my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
27 ok 3, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
31 ok 4, $db1->db_close() == 0 ;
34 ok 5, $status == 0 ;
35 ok 6, $@ eq "" ;
45 ok 7, my $lexD = new LexDir($home);
46 ok 8, my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
50 ok 9, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
55 ok 1
[all...]
/macosx-10.9.5/CPANInternal-140/Template-Toolkit/t/
H A Dcontext.t53 ok( $context );
54 ok( $context eq $tt->context() );
55 ok( $context->trim() );
56 ok( ! $context->eval_perl() );
58 ok( $context = $ttperl->service->context() );
59 ok( $context->trim() );
60 ok( $context->eval_perl() );
70 ok( $template );
71 ok( UNIVERSAL::isa($template, 'Template::Document') );
75 ok(
[all...]
/macosx-10.9.5/CPANInternal-140/Template-Toolkit-2.24/t/
H A Dcontext.t53 ok( $context );
54 ok( $context eq $tt->context() );
55 ok( $context->trim() );
56 ok( ! $context->eval_perl() );
58 ok( $context = $ttperl->service->context() );
59 ok( $context->trim() );
60 ok( $context->eval_perl() );
70 ok( $template );
71 ok( UNIVERSAL::isa($template, 'Template::Document') );
75 ok(
[all...]
/macosx-10.9.5/CPANInternal-140/Data-Dump/t/
H A Dquote-unicode.t11 use Test qw(plan ok);
17 ok(dump("\x{FF}"), qq("\\xFF"));
18 ok(dump("\xFF\x{FFF}"), qq("\\xFF\\x{FFF}"));
19 ok(dump(join("", map chr($_), 400 .. 500)), qq("\\x{190}\\x{191}\\x{192}\\x{193}\\x{194}\\x{195}\\x{196}\\x{197}\\x{198}\\x{199}\\x{19A}\\x{19B}\\x{19C}\\x{19D}\\x{19E}\\x{19F}\\x{1A0}\\x{1A1}\\x{1A2}\\x{1A3}\\x{1A4}\\x{1A5}\\x{1A6}\\x{1A7}\\x{1A8}\\x{1A9}\\x{1AA}\\x{1AB}\\x{1AC}\\x{1AD}\\x{1AE}\\x{1AF}\\x{1B0}\\x{1B1}\\x{1B2}\\x{1B3}\\x{1B4}\\x{1B5}\\x{1B6}\\x{1B7}\\x{1B8}\\x{1B9}\\x{1BA}\\x{1BB}\\x{1BC}\\x{1BD}\\x{1BE}\\x{1BF}\\x{1C0}\\x{1C1}\\x{1C2}\\x{1C3}\\x{1C4}\\x{1C5}\\x{1C6}\\x{1C7}\\x{1C8}\\x{1C9}\\x{1CA}\\x{1CB}\\x{1CC}\\x{1CD}\\x{1CE}\\x{1CF}\\x{1D0}\\x{1D1}\\x{1D2}\\x{1D3}\\x{1D4}\\x{1D5}\\x{1D6}\\x{1D7}\\x{1D8}\\x{1D9}\\x{1DA}\\x{1DB}\\x{1DC}\\x{1DD}\\x{1DE}\\x{1DF}\\x{1E0}\\x{1E1}\\x{1E2}\\x{1E3}\\x{1E4}\\x{1E5}\\x{1E6}\\x{1E7}\\x{1E8}\\x{1E9}\\x{1EA}\\x{1EB}\\x{1EC}\\x{1ED}\\x{1EE}\\x{1EF}\\x{1F0}\\x{1F1}\\x{1F2}\\x{1F3}\\x{1F4}"));
20 ok(dump("\x{1_00FF}"), qq("\\x{100FF}"));
21 ok(dump("\x{FFF}\x{1_00FF}" x 30), qq(("\\x{FFF}\\x{100FF}" x 30)));
H A Dhash.t11 ok(dump({}), "{}");
12 ok(dump({ a => 1}), "{ a => 1 }");
13 ok(dump({ 1 => 1}), "{ 1 => 1 }");
14 ok(dump({strict => 1, shift => 2, abc => 3, -f => 4 }),
16 ok(dump({supercalifragilisticexpialidocious => 1, a => 2}),
18 ok(dump({supercalifragilisticexpialidocious => 1, a => 2, b => $DOTS})."\n", <<EOT);
25 ok(dump({aa => 1, B => 2}), "{ aa => 1, B => 2 }");
26 ok(dump({a => 1, bar => $DOTS, baz => $DOTS, foo => 2 })."\n", <<EOT);
34 ok(dump({a => 1, "b-z" => 2}), qq({ "a" => 1, "b-z" => 2 }));
H A Dquote.t4 use Test qw(plan ok skip);
11 ok(dump(""), qq(""));
12 ok(dump("\n"), qq("\\n"));
13 ok(dump("\0\1\x1F\0" . 3), qq("\\0\\1\\37\\x003"));
14 ok(dump("xx" x 30), qq(("x" x 60)));
15 ok(dump("xy" x 30), qq(("xy" x 30)));
16 ok(dump("\0" x 1024), qq(("\\0" x 1024)));
17 ok(dump("\$" x 1024), qq(("\\\$" x 1024)));
18 ok(dump("\n" x (1024 * 1024)), qq(("\\n" x 1048576)));
19 ok(dum
[all...]
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/Builder/
H A Dis_passing.t20 ok $tb->is_passing, "a fresh TB object is passing";
22 $tb->ok(1);
23 ok $tb->is_passing, " still passing after a test";
25 $tb->ok(0);
26 ok !$tb->is_passing, " not passing after a failing test";
28 $tb->ok(1);
29 ok !$tb->is_passing, " a passing test doesn't resurrect it";
32 ok !$tb->is_passing, " a successful plan doesn't help either";
40 $tb->ok(1);
41 ok
[all...]
H A Dmaybe_regex.t20 ok(defined $r, 'qr// detected');
21 ok(('foo' =~ /$r/), 'qr// good match');
22 ok(('bar' !~ /$r/), 'qr// bad match');
29 ok( defined $re, "blessed regex detected" );
30 ok( ('foo' =~ /$re/), 'blessed qr/foo/ good match' );
31 ok( ('bar' !~ /$re/), 'blessed qr/foo/ bad math' );
36 ok(defined $r, '"//" detected');
37 ok(('bar' =~ m/$r/), '"//" good match');
38 ok(('foo' !~ m/$r/), '"//" bad match');
43 ok(!define
[all...]
/macosx-10.9.5/CPANInternal-140/Test-Simple/t/
H A Drequire_ok.t19 ok( $INC{'Symbol.pm'}, "require_ok MODULE" );
22 ok( $INC{'Class/Struct.pm'}, "require_ok FILE" );
26 ok !Test::More::_is_module_name('foo:bar');
27 ok !Test::More::_is_module_name('foo/bar.thing');
28 ok !Test::More::_is_module_name('Foo::Bar::');
29 ok Test::More::_is_module_name('V');
/macosx-10.9.5/CPANInternal-140/Class-Unload-0.07/t/
H A D01-unload.t11 ok( Class::Inspector->loaded( $class ), "$class loaded" );
17 ok( Class::Unload->unload( 'MyClass' ), 'Unloading MyClass' );
18 ok( ! Class::Inspector->loaded( 'MyClass' ), 'MyClass is not loaded' );
19 ok( ! exists(${'MyClass::'}{'::ISA::CACHE::'}), 'Stash cruft deleted' );
20 ok( Class::Inspector->loaded( 'MyClass::Sub' ), 'MyClass::Sub is still loaded' );
22 ok( Class::Unload->unload( 'MyClass::Sub' ), 'Unloading MyClass::Sub' );
23 ok( ! Class::Inspector->loaded( 'MyClass::Sub' ), 'MyClass::Sub is not loaded');
25 ok( Class::Unload->unload( 'MyClass::Sub::Sub' ), 'Unloading MyClass::Sub::Sub' );
26 ok( ! Class::Inspector->loaded( 'MyClass::Sub::Sub' ), 'MyClass::Sub::Sub is not loaded');
28 ok( ! Clas
[all...]
/macosx-10.9.5/ruby-104/ruby/test/-ext-/funcall/
H A Dtest_passing_block.rb12 ok = nil
13 Relay.with_funcall2("feature#4504") {|arg| ok = arg || true}
14 assert_nil(ok)
18 ok = nil
19 Relay.with_funcall_passing_block("feature#4504") {|arg| ok = arg || true}
20 assert_equal("feature#4504", ok)
/macosx-10.9.5/CPANInternal-140/Context-Preserve/t/
H A D00-load.t6 use ok 'Context::Preserve';
/macosx-10.9.5/CPANInternal-140/Data-Dump-1.21/t/
H A Dhash.t11 ok(dump({}), "{}");
12 ok(dump({ a => 1}), "{ a => 1 }");
13 ok(dump({ 1 => 1}), "{ 1 => 1 }");
14 ok(dump({strict => 1, shift => 2, abc => 3, -f => 4 }),
16 ok(dump({supercalifragilisticexpialidocious => 1, a => 2}),
18 ok(dump({supercalifragilisticexpialidocious => 1, a => 2, b => $DOTS})."\n", <<EOT);
25 ok(dump({aa => 1, B => 2}), "{ aa => 1, B => 2 }");
26 ok(dump({a => 1, bar => $DOTS, baz => $DOTS, foo => 2 })."\n", <<EOT);
34 ok(dump({a => 1, "b-z" => 2}), qq({ "a" => 1, "b-z" => 2 }));
H A Dquote.t4 use Test qw(plan ok skip);
11 ok(dump(""), qq(""));
12 ok(dump("\n"), qq("\\n"));
13 ok(dump("\0\1\x1F\0" . 3), qq("\\0\\1\\37\\x003"));
14 ok(dump("xx" x 30), qq(("x" x 60)));
15 ok(dump("xy" x 30), qq(("xy" x 30)));
16 ok(dump("\0" x 1024), qq(("\\0" x 1024)));
17 ok(dump("\$" x 1024), qq(("\\\$" x 1024)));
18 ok(dump("\n" x (1024 * 1024)), qq(("\\n" x 1048576)));
19 ok(dum
[all...]
H A Dvstring.t16 ok(dump(v10), q{v10});
17 ok(dump(v5.10.1), q{v5.10.1});
18 ok(dump(5.10.1), q{v5.10.1});
19 ok(dump(500.400.300.200.100), q{v500.400.300.200.100});
21 ok(dump(\5.10.1), q{\v5.10.1});
22 ok(dump(\v10), q{\v10});
23 ok(dump(\\v10), q{\\\\v10});
24 ok(dump([v10, v20, v30]), q{[v10, v20, v30]});
25 ok(dump({ version => v6.0.0 }), q({ version => v6.0.0 }));
/macosx-10.9.5/CPANInternal-140/IPC-Signal/t/
H A Dsignal.t17 sub ok { subroutine
20 print "ok $n\n";
23 print "not ok $n\n";
28 ok 1, @Sig_name == 0, "name predefined: @Sig_name";
29 ok 2, keys %Sig_num == 0, 'num predefined';
30 ok 3, sig_num('HUP') == 1, sig_num 'HUP';
31 ok 4, sig_name(1) eq 'HUP', sig_name 1;
32 ok 5, keys %Sig_num >= @Sig_name, keys(%Sig_num) . ' < ' . @Sig_name;
33 ok 6, $Sig_num{HUP} == 1, $Sig_num{HUP};
34 ok
[all...]
/macosx-10.9.5/CPANInternal-140/IPC-Signal-1.00/t/
H A Dsignal.t17 sub ok { subroutine
20 print "ok $n\n";
23 print "not ok $n\n";
28 ok 1, @Sig_name == 0, "name predefined: @Sig_name";
29 ok 2, keys %Sig_num == 0, 'num predefined';
30 ok 3, sig_num('HUP') == 1, sig_num 'HUP';
31 ok 4, sig_name(1) eq 'HUP', sig_name 1;
32 ok 5, keys %Sig_num >= @Sig_name, keys(%Sig_num) . ' < ' . @Sig_name;
33 ok 6, $Sig_num{HUP} == 1, $Sig_num{HUP};
34 ok
[all...]
/macosx-10.9.5/CPANInternal-140/Perl-Ldap/t/
H A D53schema.t11 ok($ldap, "client");
14 ok($schema, "schema");
17 ok($ob, 'objectClass');
19 ok($ob->{syntax} eq '1.3.6.1.4.1.1466.115.121.1.38', 'syntax');
H A D54dse.t11 ok($ldap, "client");
14 ok($dse, "dse");
20 ok($dse->supported_extension(@extn), 'supported_extension');
22 ok(!$dse->supported_extension('foobar'), 'extension foobar');
/macosx-10.9.5/CPANInternal-140/XML-LibXML-Common/
H A Dtest.pl17 ok(1); # If we made it this far, we're ok.
24 # ok( ELEMENT_NODE, 1 );
25 ok( XML_ELEMENT_NODE, 1 );
29 ok( decodeFromUTF8('iso-8859-1',
35 ok( decodeFromUTF8( 'UTF-8' ,
42 ok( length($u16), 2*length(TEST_STRING_UTF));
46 ok( length($u16be), 2*length(TEST_STRING_UTF));
50 ok( length($u16le), 2*length(TEST_STRING_UTF));
56 ok( lengt
[all...]
/macosx-10.9.5/tcl-102/tcl_ext/tcllib/tcllib/modules/page/
H A Dparse_peg.tcl27 upvar #0 ::grammar::me::tcl::ok ok
34 variable ok
45 if {!$ok} {
51 return $ok
306 variable ok
308 if {$ok} ias_push
325 if {$ok} ias_push
341 variable ok
347 if {$ok} {ict_match_toke
[all...]
/macosx-10.9.5/CPANInternal-140/Class-Singleton-1.03/
H A Dtest.pl13 print "not ok 1\n" unless $loaded;
19 print "ok 1\n";
30 sub ok { subroutine
31 return join('', @_ ? (" ", @_, "\n") : (), "ok ", ++$loaded, "\n");
35 return join('', @_ ? (" ", @_, "\n") : (), "not ok ", ++$loaded, "\n");
106 defined($s1) ? ok($s1) : not_ok('<undef>');
112 (defined($s2) ? ok($s2) : not_ok('<undef>'));
116 ? ok('Class::Singleton instances are identical')
127 defined($s3) ? ok($s3) : not_ok('<undef>');
133 defined($s4) ? ok(
[all...]

Completed in 138 milliseconds

1234567891011>>