Searched refs:ok (Results 1 - 25 of 1556) sorted by relevance

1234567891011>>

/macosx-10.10/CPANInternal-159.1/Text-LevenshteinXS-0.03/
H A Dtest.pl6 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/CPANInternal-159.1/Data-Dump-1.21/t/
H A Dfiltered.t4 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 Ddump.t4 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 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 }));
H A Dquote-unicode.t11 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/ruby-106/ruby/test/uri/
H A Dtest_mailto.rb20 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/CPANInternal-159.1/Sub-Identify-0.04/t/
H A D02errors.t6 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/BerkeleyDB-21/db/perl/BerkeleyDB/t/
H A Dunknown.t24 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 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...]
H A Ddb-3.3.t30 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 Drecno.t25 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 Ddb-3.0.t30 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/CPANInternal-159.1/Crypt-OpenSSL-Bignum-0.04/
H A Dtest.pl28 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/CPANInternal-159.1/Template-Toolkit-2.25/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.10/ruby-106/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.10/dyld-353.2.1/unit-tests/test-cases/upward-dylib-init-order/
H A Dcommon.h7 extern bool ok();
/macosx-10.10/CPANInternal-159.1/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.10/tcl-105/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.10/CPAN-56/Modules/Test-use-ok-0.11/
H A DMakefile1 NAME = Test-use-ok
/macosx-10.10/CPANInternal-159.1/Readonly-XS-1.05/t/
H A Dtest.t26 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';

Completed in 159 milliseconds

1234567891011>>