/macosx-10.10.1/CPANInternal-159.1/Text-LevenshteinXS-0.03/ |
H A D | test.pl | 6 ok(1);
7 if (distance("foo","four") == 2) {ok(1)} else {ok(0)}
8 if (distance("foo","foo") == 0) {ok(1)} else {ok(0)}
9 if (distance("foo","") == 3) {ok(1)} else {ok(0)}
10 if (distance("four","foo") == 2) {ok(1)} else {ok(0)}
11 if (distance("foo","bar") == 3) {ok( [all...] |
/macosx-10.10.1/CPANInternal-159.1/Data-Dump-1.21/t/ |
H A D | filtered.t | 4 use Test qw(plan ok); 9 ok(dumpf("foo", sub { return { dump => "x" }}), 'x'); 10 ok(dumpf("foo", sub { return { object => "x" }}), '"x"'); 11 ok(dumpf("foo", sub { return { comment => "x" }}), "# x\n\"foo\""); 12 ok(dumpf({}, sub { return { bless => "x"}}), "bless({}, \"x\")"); 13 ok(dumpf({a => 1, b => 2}, sub { return { hide_keys => ["b"] }}), "{ a => 1 }"); 14 ok(dumpf("foo", sub { return }), '"foo"'); 17 ok(dumpf("foo", sub { 20 ok($$obj, "foo"); 21 ok( [all...] |
H A D | dump.t | 4 use Test qw(plan ok); 9 ok(dump(), "()"); 10 ok(dump("abc"), qq("abc")); 11 ok(dump("1\n"), qq("1\\n")); 12 ok(dump(undef), "undef"); 13 ok(dump(0), "0"); 14 ok(dump(1234), "1234"); 15 ok(dump(12345), "12345"); 16 ok(dump(12345678), "12345678"); 17 ok(dum [all...] |
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 }));
|
H A D | quote-unicode.t | 11 use Test qw(plan ok skip); 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))); 27 ok(utf8::is_utf8($a)); 30 ok(utf8::is_utf8($a));
|
/macosx-10.10.1/ruby-106/ruby/test/uri/ |
H A D | test_mailto.rb | 20 ok = [] 25 ok << ["mailto:chris@example.com"] 26 ok[-1] << ["chris@example.com", nil] 27 ok[-1] << {:to => "chris@example.com"} 30 ok << ["mailto:infobot@example.com?subject=current-issue"] 31 ok[-1] << ["infobot@example.com", ["subject=current-issue"]] 32 ok[-1] << {:to => "infobot@example.com", 36 ok << ["mailto:infobot@example.com?body=send%20current-issue"] 37 ok[-1] << ["infobot@example.com", ["body=send%20current-issue"]] 38 ok[ [all...] |
/macosx-10.10.1/CPANInternal-159.1/Sub-Identify-0.04/t/ |
H A D | 02errors.t | 6 ok( !defined sub_name( undef ) ); 7 ok( !defined sub_name( "scalar" ) ); 8 ok( !defined sub_name( \"scalar ref" ) ); 9 ok( !defined sub_name( \@INC ) ); 11 ok( !defined stash_name( undef ) ); 12 ok( !defined stash_name( "scalar" ) ); 13 ok( !defined stash_name( \"scalar ref" ) ); 14 ok( !defined stash_name( \@INC ) );
|
/macosx-10.10.1/BerkeleyDB-21/db/perl/BerkeleyDB/t/ |
H A D | unknown.t | 24 ok 1, $@ =~ /unknown key value\(s\) Stupid/ ; 27 ok 2, $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/ ; 30 ok 3, $@ =~ /^Env not of type BerkeleyDB::Env/ ; 33 ok 4, $@ =~ /^Txn not of type BerkeleyDB::Txn/ ; 37 ok 5, $@ =~ /^Env not of type BerkeleyDB::Env/ ; 44 ok 6, writeFile($Dfile, "") ; 46 ok 7, ! (new BerkeleyDB::Unknown -Filename => $Dfile); 50 ok 8, ! (new BerkeleyDB::Unknown -Filename => $Dfile); 59 ok 9, my $db = new BerkeleyDB::Hash -Filename => $Dfile, 65 ok 1 [all...] |
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...] |
H A D | db-3.3.t | 30 ok 1, my $db = new BerkeleyDB::Hash -Filename => $Dfile, 44 ok 2, $ret == 0 ; 47 ok 3, countRecords($db) == 3 ; 51 ok 4, $db->truncate($count) == 0 ; 53 ok 5, $count == 3 ; 54 ok 6, countRecords($db) == 0 ; 78 ok 7, my $primary = new BerkeleyDB::Hash -Filename => $Dfile1, 82 ok 8, my $secondary = new BerkeleyDB::Hash -Filename => $Dfile2, 86 ok 9, $primary->associate($secondary, \&sec_key) == 0; 101 ok 1 [all...] |
H A D | recno.t | 25 ok 1, $@ =~ /unknown key value\(s\) Stupid/ ; 28 ok 2, $@ =~ /unknown key value\(s\) / ; 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::Recno -Filename => $Dfile, 52 ok 7, $db->db_put(1, "some value") == 0 ; 53 ok 8, $db->status() == 0 ; 54 ok 9, $db->db_get(1, $value) == 0 ; 55 ok 1 [all...] |
H A D | db-3.0.t | 30 ok 1, my $lexD = new LexDir($home) ; 32 ok 2, my $env = new BerkeleyDB::Env -Flags => DB_CREATE, @StdErrFile ; 33 ok 3, $env->set_mutexlocks(0) == 0 ; 45 ok 4, my $db = new BerkeleyDB::Hash -Filename => $Dfile, 62 ok 5, $ret == 0 ; 65 ok 6, my $cursor = $db->db_cursor() ; 69 ok 7, $cursor->c_get($k, $v, DB_SET) == 0 ; 70 ok 8, $v eq "house" ; 74 ok 9, $dup_cursor ; 78 ok 1 [all...] |
/macosx-10.10.1/CPANInternal-159.1/Crypt-OpenSSL-Bignum-0.04/ |
H A D | test.pl | 28 ok( $bn ); 29 ok( $bn->to_decimal() eq $decimal_string ); 33 ok( $bn ); 34 ok( $bn->to_hex() eq uc( $hex_string ) ); 35 ok( $bn->to_decimal() eq '127' ); 39 ok( $bn ); 40 ok( $bn->to_bin() eq $bin_string ); 41 ok( $bn->to_decimal() eq '512' ); 46 ok( $bn23->cmp($ bn25 ) == -1 ); 47 ok( [all...] |
/macosx-10.10.1/CPANInternal-159.1/Template-Toolkit-2.25/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.10.1/ruby-106/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.10.1/CPANInternal-159.1/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.10.1/dyld-353.2.1/unit-tests/test-cases/upward-dylib-init-order/ |
H A D | common.h | 7 extern bool ok();
|
/macosx-10.10.1/tcl-105/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.10.1/CPAN-56/Modules/Test-use-ok-0.11/ |
H A D | Makefile | 1 NAME = Test-use-ok
|
/macosx-10.10.1/CPANInternal-159.1/Readonly-XS-1.05/t/ |
H A D | test.t | 26 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';
|