/macosx-10.9.5/BerkeleyDB-21/db/perl/BerkeleyDB/t/ |
H A D | hash.t | 26 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 D | queue.t | 31 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 D | btree.t | 24 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 D | strict.t | 22 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 D | context.t | 53 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 D | context.t | 53 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 D | quote-unicode.t | 11 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 D | hash.t | 11 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 D | quote.t | 4 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 D | is_passing.t | 20 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 D | maybe_regex.t | 20 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 D | require_ok.t | 19 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 D | 01-unload.t | 11 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 D | test_passing_block.rb | 12 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 D | 00-load.t | 6 use ok 'Context::Preserve';
|
/macosx-10.9.5/CPANInternal-140/Data-Dump-1.21/t/ |
H A D | hash.t | 11 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 D | quote.t | 4 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 D | vstring.t | 16 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 D | signal.t | 17 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 D | signal.t | 17 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 D | 53schema.t | 11 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 D | 54dse.t | 11 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 D | test.pl | 17 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 D | parse_peg.tcl | 27 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 D | test.pl | 13 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...] |