| /sfw/usr/src/cmd/perl510/perl-5.10.0/t/op/ |
| negate.t | 16 is(- 10, -10, "Simple numeric negation to negative");
17 is(- -10, 10, "Simple numeric negation to positive");
18 is(-"10", -10, "Negation of a positive string to negative");
19 is(-"10.0", -10, "Negation of a positive decimal sting to negative");
20 is(-"10foo", -10, "Negation of a numeric-lead string returns negation of numeric");
21 is(-"-10", "+10", 'Negation of string starting with "-" returns a string starting with "+" - numeric');
22 is(-"-10.0", "+10.0", 'Negation of string starting with "-" returns a string starting with "+" - decimal');
23 is(-"-10foo", "+10foo", 'Negation of string starting with "-" returns a string starting with "+" - non-numeric');
24 is(-"xyz", "-xyz", 'Negation of a negative string adds "-" to the front');
25 is(-"-xyz", "+xyz", "Negation of a negative string to positive")
[all...] |
| chr.t | 15 is(chr(ord("A")), "A");
17 is(chr( 0), "\x00");
18 is(chr(127), "\x7F");
19 is(chr(128), "\x80");
20 is(chr(255), "\xFF");
22 is(chr(-0.1), "\x{FFFD}"); # The U+FFFD Unicode replacement character.
23 is(chr(-1 ), "\x{FFFD}");
24 is(chr(-2 ), "\x{FFFD}");
25 is(chr(-3.0), "\x{FFFD}");
28 is(chr(-0.1), "\x00")
[all...] |
| quotemeta.t | 18 is(length($_), 158, "quotemeta string");
20 is(tr/\\//cd, 104, "tr count non-backslashed");
27 is(length($_), 129, "quotemeta string");
29 is(tr/\\//cd, 95, "tr count non-backslashed");
32 is(length(quotemeta ""), 0, "quotemeta empty string");
34 is("aA\UbB\LcC\EdD", "aABBccdD", 'aA\UbB\LcC\EdD');
35 is("aA\LbB\UcC\EdD", "aAbbCCdD", 'aA\LbB\UcC\EdD');
36 is("\L\upERL", "Perl", '\L\upERL');
37 is("\u\LpERL", "Perl", '\u\LpERL');
38 is("\U\lPerl", "pERL", '\U\lPerl')
[all...] |
| repeat.t | 13 is('-' x 5, '-----', 'compile time x');
14 is('-' x 3.1, '---', 'compile time 3.1');
15 is('-' x 3.9, '---', 'compile time 3.9');
16 is('-' x 1, '-', ' x 1');
17 is('-' x 0, '', ' x 0');
18 is('-' x -1, '', ' x -1');
19 is('-' x undef, '', ' x undef');
20 is('-' x "foo", '', ' x "foo"');
21 is('-' x "3rd", '---', ' x "3rd"');
23 is('ab' x 3, 'ababab', ' more than one char')
[all...] |
| lc.t | 14 is("\Q$a\E." , "HELLO\\.\\*\\ world.", '\Q\E HELLO.* world');
15 is("\u$a" , "HELLO\.\* world", '\u');
16 is("\l$a" , "hELLO\.\* world", '\l');
17 is("\U$a" , "HELLO\.\* WORLD", '\U');
18 is("\L$a" , "hello\.\* world", '\L');
20 is(quotemeta($a) , "HELLO\\.\\*\\ world", 'quotemeta');
21 is(ucfirst($a) , "HELLO\.\* world", 'ucfirst');
22 is(lcfirst($a) , "hELLO\.\* world", 'lcfirst');
23 is(uc($a) , "HELLO\.\* WORLD", 'uc');
24 is(lc($a) , "hello\.\* world", 'lc')
[all...] |
| qq.t | 11 # This is() function is written to avoid ""
13 sub is {
23 # test is so broken that it's not helping
38 is ("\x53", chr 83);
39 is ("\x4EE", chr (78) . 'E');
40 is ("\x4i", chr (4) . 'i'); # This will warn
41 is ("\xh", chr (0) . 'h'); # This will warn
42 is ("\xx", chr (0) . 'x'); # This will warn
43 is ("\xx9", chr (0) . 'x9'); # This will warn. \x9 is tab in EBCDIC too
[all...] |
| sub.t | 13 is(empty_sub,undef,"Is empty");
14 is(empty_sub(1,2,3),undef,"Is still empty");
16 is(scalar(@test), 0, 'Didnt return anything');
18 is(scalar(@test), 0, 'Didnt return anything');
|
| index.t | 12 my $foo = 'Now is the time for all good men to come to the aid of their country.';
15 is($first, "Now is ");
18 is($last, "their country.");
21 is($last, "No");
24 is($last, "No");
27 is($last, ".");
30 is($last, ".");
32 is(index("ababa","a",-1), 0);
33 is(index("ababa","a",0), 0)
[all...] |
| ver.t | 17 is( $@, '', "use v5.5.640; $@");
23 is('ok ',v111.107.32,'ASCII printing characters');
27 is('ok',$h{v111.107},'ASCII hash keys');
30 is('ok ',v150.146.64,'EBCDIC printing characters');
34 is('ok',$h{v150.146},'EBCDIC hash keys');
40 is('ok',$x,'poetry optimization');
49 is($x, 'MNO','poetry optimization with dots');
51 is(v1.20.300.4000, "\x{1}\x{14}\x{12c}\x{fa0}",'compare embedded \x{} string');
56 is( $@, '', "use 5.5.640; $@");
67 is('ok',$h{ok },'hash keys w/o v')
[all...] |
| localref.t | 9 { local $aa; $aa = 2; is($aa,2); }
10 is($aa,1);
11 { local ${aa}; $aa = 3; is($aa,3); }
12 is($aa,1);
13 { local ${"aa"}; $aa = 4; is($aa,4); }
14 is($aa,1);
16 { local ${$x}; $aa = 5; is($aa,5); undef $x; is($aa,5); }
17 is($aa,1);
19 { local ${$x x2};$aa = 6; is($aa,6); undef $x; is($aa,6);
[all...] |
| reg_nc_tie.t | 27 is($+{a}, "h", "FETCH");
28 is($+{b}, "l", "FETCH");
29 is($-{a}[0], "h", "FETCH");
30 is($-{a}[1], "a", "FETCH");
49 is(join('|', sort keys %+), "a|b|e", "FIRSTKEY/NEXTKEY");
52 is(scalar(%+), 3, "SCALAR");
53 is(scalar(%-), 3, "SCALAR");
|
| /sfw/usr/src/cmd/perl510/perl-5.10.0/ext/POSIX/t/ |
| math.t | 12 is(acos(1), 0, "Basic acos(1) test");
13 is(asin(0), 0, "Basic asin(0) test");
14 is(atan(0), 0, "Basic atan(0) test");
15 is(cosh(0), 1, "Basic cosh(0) test");
16 is(floor(1.23441242), 1, "Basic floor(1.23441242) test");
17 is(fmod(3.5, 2.0), 1.5, "Basic fmod(3.5, 2.0) test");
18 is(join(" ", frexp(1)), "0.5 1", "Basic frexp(1) test");
19 is(ldexp(0,1), 0, "Basic ldexp(0,1) test");
20 is(log10(1), 0, "Basic log10(1) test");
21 is(log10(10), 1, "Basic log10(10) test")
[all...] |
| /sfw/usr/src/cmd/perl510/perl-5.10.0/lib/CGI/t/ |
| start_end_asterisk.t | 13 is(start_h1(), "<h1>", "start_h1"); # TEST
14 is(start_h1({class => 'hello'}), "<h1 class=\"hello\">", "start_h1 with param"); # TEST
15 is(end_h1(), "</h1>", "end_h1"); # TEST
17 is(start_h2(), "<h2>", "start_h2"); # TEST
18 is(start_h2({class => 'hello'}), "<h2 class=\"hello\">", "start_h2 with param"); # TEST
19 is(end_h2(), "</h2>", "end_h2"); # TEST
21 is(start_h3(), "<h3>", "start_h3"); # TEST
22 is(start_h3({class => 'hello'}), "<h3 class=\"hello\">", "start_h3 with param"); # TEST
23 is(end_h3(), "</h3>", "end_h3"); # TEST
25 is(start_h4(), "<h4>", "start_h4"); # TES
[all...] |
| start_end_end.t | 13 is(start_h1(), "<h1>", "start_h1"); # TEST
14 is(start_h1({class => 'hello'}), "<h1 class=\"hello\">", "start_h1 with param"); # TEST
15 is(end_h1(), "</h1>", "end_h1"); # TEST
17 is(start_h2(), "<h2>", "start_h2"); # TEST
18 is(start_h2({class => 'hello'}), "<h2 class=\"hello\">", "start_h2 with param"); # TEST
19 is(end_h2(), "</h2>", "end_h2"); # TEST
21 is(start_h3(), "<h3>", "start_h3"); # TEST
22 is(start_h3({class => 'hello'}), "<h3 class=\"hello\">", "start_h3 with param"); # TEST
23 is(end_h3(), "</h3>", "end_h3"); # TEST
25 is(start_h4(), "<h4>", "start_h4"); # TES
[all...] |
| start_end_start.t | 13 is(start_h1(), "<h1>", "start_h1"); # TEST
14 is(start_h1({class => 'hello'}), "<h1 class=\"hello\">", "start_h1 with param"); # TEST
15 is(end_h1(), "</h1>", "end_h1"); # TEST
17 is(start_h2(), "<h2>", "start_h2"); # TEST
18 is(start_h2({class => 'hello'}), "<h2 class=\"hello\">", "start_h2 with param"); # TEST
19 is(end_h2(), "</h2>", "end_h2"); # TEST
21 is(start_h3(), "<h3>", "start_h3"); # TEST
22 is(start_h3({class => 'hello'}), "<h3 class=\"hello\">", "start_h3 with param"); # TEST
23 is(end_h3(), "</h3>", "end_h3"); # TEST
25 is(start_h4(), "<h4>", "start_h4"); # TES
[all...] |
| /sfw/usr/src/cmd/perl510/perl-5.10.0/lib/File/ |
| Basename.t | 18 is( fileparse_set_fstype(), 'Unix', 'get fstype' );
22 is($base, 'draft');
23 is($path, '/virgil/aeneid/');
24 is($type, '.book7');
26 is(basename('/arma/virumque.cano'), 'virumque.cano');
27 is(dirname ('/arma/virumque.cano'), '/arma');
28 is(dirname('arma/'), '.');
34 is(fileparse_set_fstype('VMS'), 'Unix', 'set fstype to VMS');
38 is($base, 'draft');
39 is($path, 'virgil:[aeneid]')
[all...] |
| /sfw/usr/src/cmd/wireshark/wireshark-1.2.3/tools/pidl/tests/ |
| util.pl | 15 is(undef, has_property({}, "foo"));
16 is(undef, has_property({PROPERTIES => {}}, "foo"));
17 is("data", has_property({PROPERTIES => {foo => "data"}}, "foo"));
18 is(undef, has_property({PROPERTIES => {foo => undef}}, "foo"));
30 is("\"bla\"", make_str("bla"));
31 is("\"bla\"", make_str("\"bla\""));
32 is("\"\"bla\"\"", make_str("\"\"bla\"\""));
33 is("\"bla\"\"", make_str("bla\""));
34 is("\"foo\"bar\"", make_str("foo\"bar"));
36 is("bla", unmake_str("\"bla\""))
[all...] |
| typelist.pl | 15 is("foo", expandAlias("foo"));
16 is("uint32", expandAlias("DWORD"));
17 is("int32", expandAlias("int"));
18 is("", expandAlias(""));
19 is("int32", expandAlias("int32"));
21 is("uint32_t", mapScalarType("uint32"));
22 is("void", mapScalarType("void"));
23 is("uint64_t", mapScalarType("hyper"));
28 is(undef, getType("bloebla"));
36 is(0, typeIs("someUnknownType", "ENUM"))
[all...] |
| /sfw/usr/src/lib/jdtcore/plugins/org.eclipse.jface/src/org/eclipse/jface/action/ |
| ExternalActionManager.properties | 5 # which accompanies this distribution, and is available at
12 undefinedCommand.WarningMessage = The command ("{0}") is undefined
|
| /sfw/usr/src/cmd/perl510/perl-5.10.0/lib/Test/Simple/t/ |
| tbt_04line_num.t | 6 is(line_num(),6,"normal line num");
7 is(line_num(-1),6,"line number minus one");
8 is(line_num(+2),10,"line number plus two");
|
| /sfw/usr/src/cmd/perl510/perl-5.10.0/t/comp/ |
| fold.t | 16 # illegal expressions are reported at runtime, if the expression is reached,
23 is ($a, 3);
24 is ($@, "");
28 is ($a, 3);
29 is ($@, "");
33 is ($b, 4);
34 is ($@, "");
37 is ($a, 5);
38 is ($@, "");
47 is($c, 0, "premature warn/die: $c")
[all...] |
| /sfw/usr/src/cmd/perl510/perl-5.10.0/lib/bignum/t/ |
| bii_e_pi.t | 19 is (e, "2", 'e');
20 is (PI, "3", 'PI');
22 is (bexp(1,10), "2", 'e');
23 is (bexp(3,10), "20", 'e');
24 is (bpi(10), "3", 'PI');
|
| /sfw/usr/src/lib/memcached/memcached-1.4.1/t/ |
| incrdecr.t | 14 is(scalar <$sock>, "STORED\r\n", "stored text");
16 is(scalar <$sock>, "9223372036854775808\r\n", "bug21 incr 1");
18 is(scalar <$sock>, "9223372036854775809\r\n", "bug21 incr 2");
20 is(scalar <$sock>, "9223372036854775808\r\n", "bug21 decr");
23 is(scalar <$sock>, "STORED\r\n", "stored num");
27 is(scalar <$sock>, "2\r\n", "+ 1 = 2");
31 is(scalar <$sock>, "10\r\n", "+ 8 = 10");
35 is(scalar <$sock>, "9\r\n", "- 1 = 9");
38 is(scalar <$sock>, "0\r\n", "- 9 = 0");
41 is(scalar <$sock>, "0\r\n", "- 5 = 0")
[all...] |
| issue_61.t | 13 is (scalar <$sock>, "STORED\r\n", "stored foobar");
14 is (scalar <$sock>, "STORED\r\n", "stored foobar");
15 is (scalar <$sock>, "STORED\r\n", "stored foobar");
16 is (scalar <$sock>, "STORED\r\n", "stored foobar");
17 is (scalar <$sock>, "STORED\r\n", "stored foobar");
18 is (scalar <$sock>, "STORED\r\n", "stored foobar");
20 is ($stats->{"conn_yields"}, "5", "Got a decent number of yields");
|
| /sfw/usr/src/cmd/perl510/perl-5.10.0/lib/Unicode/ |
| UCD.t | 29 is($charinfo->{code}, '0041', 'LATIN CAPITAL LETTER A');
30 is($charinfo->{name}, 'LATIN CAPITAL LETTER A');
31 is($charinfo->{category}, 'Lu');
32 is($charinfo->{combining}, '0');
33 is($charinfo->{bidi}, 'L');
34 is($charinfo->{decomposition}, '');
35 is($charinfo->{decimal}, '');
36 is($charinfo->{digit}, '');
37 is($charinfo->{numeric}, '');
38 is($charinfo->{mirrored}, 'N')
[all...] |
