Searched refs:is (Results 1 - 25 of 775) sorted by relevance

1234567891011>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dquotemeta.t18 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("\
[all...]
H A Dlc.t14 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(l
[all...]
H A Drepeat.t13 is('-' x 5, '-----', 'compile time x');
14 is('-' x 1, '-', ' x 1');
15 is('-' x 0, '', ' x 0');
16 is('-' x -1, '', ' x -1');
17 is('-' x undef, '', ' x undef');
19 is('ab' x 3, 'ababab', ' more than one char');
24 is($a x 5, '-----', 'run time x');
25 is($a x 1, '-', ' x 1');
26 is($a x 0, '', ' x 0');
27 is(
[all...]
H A Dlocalref.t9 { 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(
[all...]
H A Dsub.t13 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');
H A Dqq.t11 # This is() function is written to avoid ""
13 sub is { subroutine
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 ("\xx
[all...]
H A Dver.t17 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('o
[all...]
H A Dindex.t11 $foo = 'Now is the time for all good men to come to the aid of their country.';
14 is($first, "Now is ");
17 is($last, "their country.");
20 is($last, "No");
23 is($last, "No");
26 is($last, ".");
29 is($last, ".");
31 is(index("ababa","a",-1), 0);
32 is(inde
[all...]
H A Dpow.t29 is((-3)**0, 1, "negative ** 0 = 1");
30 is((-3)**1, -3, "negative ** 1 = self");
31 is((-3)**2, 9, "negative ** 2 = positive");
32 is((-3)**3, -27, "(negative int) ** (odd power) is negative");
35 is(3**0, 1, "positive ** 0 = 1");
36 is(3**1, 3, "positive ** 1 = self");
37 is(3**2, 9, "positive ** 2 = positive");
38 is(3**3, 27, "(positive int) ** (odd power) is positiv
[all...]
H A Dmethod.t26 is(Pack->method("a","b","c"), "method,a,b,c");
27 is(Pack->$mname("a","b","c"), "method,a,b,c");
28 is(method Pack ("a","b","c"), "method,a,b,c");
29 is((method Pack "a","b","c"), "method,a,b,c");
31 is(Pack->method(), "method");
32 is(Pack->$mname(), "method");
33 is(method Pack (), "method");
34 is(Pack->method, "method");
35 is(Pack->$mname, "method");
36 is(metho
[all...]
H A Dutfhash.t25 is($hash8{"\x{00ff}"},0xFF);
26 is($hash8{"\x{007f}"},0x7F);
27 is($hash8{"\xff"},0xFF);
28 is($hash8{"\x7f"},0x7F);
29 is($hashu{"\x{00ff}"},0xFF);
30 is($hashu{"\x{007f}"},0x7F);
31 is($hashu{"\xff"},0xFF);
32 is($hashu{"\x7f"},0x7F);
39 is($hash8{$a},ord($a));
40 is(
[all...]
H A Dcaller.t20 is( $c[3], "(eval)", "subroutine name in an eval {}" );
24 is( $c[3], "(eval)", "subroutine name in an eval ''" );
28 is( $c[3], "main::__ANON__", "anonymous subroutine name" );
35 is( $c[3], "(unknown)", "unknown subroutine name" );
44 is( $c[3], "main::callf", "subroutine name" );
50 is( $c[3], "(eval)", "subroutine name in an eval {}" );
54 is( $c[3], "(eval)", "subroutine name in an eval ''" );
58 is( $c[3], "main::__ANON__", "anonymous subroutine name" );
64 is( $c[3], "(unknown)", "unknown subroutine name" );
H A Dor.t40 is($c, $a_str);
41 is($c+0, $a_num); # force numeric context.
47 is($c, $a_str);
48 is($c+0, $a_num); # force numeric context.
53 is($c, 3);
58 is($c, 3, 'Single FETCH on tied scalar');
61 is($c, 2, ' $tied = $var');
67 is($c, 1, ' $tied || $var');
H A Dbop.t15 # down where the failure is, and supply your new names as a patch.
50 is (("AAAAA" & "zzzzz"), ($Aaz x 5));
51 is (("AAAAA" | "zzzzz"), ($Aoz x 5));
52 is (("AAAAA" ^ "zzzzz"), ($Axz x 5));
59 is (($foo & $bar), ($Aaz x 75 ));
61 is (($foo | $bar), ($Aoz x 75 . $zap));
63 is (($foo ^ $bar), ($Axz x 75 . $zap));
66 is ("ok \xFF\xFF\n" & "ok 19\n", "ok 19\n");
67 is ("ok 20\n" | "ok \0\0\n", "ok 20\n");
68 is ("
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
H A Dstart_end_asterisk.t13 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_h
[all...]
H A Dstart_end_end.t13 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_h
[all...]
H A Dstart_end_start.t13 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_h
[all...]
H A Drequest.t31 is $q->request_method => 'GET',"CGI::request_method()";
32 is $q->query_string => 'game=chess;game=checkers;weather=dull',"CGI::query_string()";
33 is $q->param(), 2,"CGI::param()";
34 is join(' ',sort $q->param()), 'game weather',"CGI::param()";
35 is $q->param('game'), 'chess',"CGI::param()";
36 is $q->param('weather'), 'dull',"CGI::param()";
37 is join(' ',$q->param('game')), 'chess checkers',"CGI::param()";
39 is $q->param(-name=>'foo'), 'bar','CGI::param() get';
40 is $q->query_string, 'game=chess;game=checkers;weather=dull;foo=bar',"CGI::query_string() redux";
41 is
[all...]
H A Dpopup_menu.t8 is ( $q->popup_menu(-name=>"foo", - values=>[0,1], -default=>0),
15 is(
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Digest/t/
H A Ddigest.t14 is $@, "rt#50663";
15 is $d->digest, "ooo";
18 is $d->digest, "ooo";
22 is $d->digest, "24";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/
H A D42_offset.t34 is (ref($o), 'Tie::File');
36 is ($o->offset(0), 0, 'first one always there');
37 is ($o->offset(1), undef, 'no offsets yet');
40 is ($o->offset(0), 0, 'first is ok');
41 is ($o->offset(1), 8, 'and second ok');
42 is ($o->offset(2), undef, 'third undef');
45 is ($o->offset(0), 0, 'first is ok');
46 is (
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dinteger.t18 is($z, 9, "plus");
21 is($z, -1, "minus");
24 is($z, 20, "times");
27 is($z, 0, "divide");
30 is($z, 0, "modulo");
32 is($x, 4.5, "scalar still floating point");
38 is(++$x, 5.5, "++ still floating point");
46 is($z + 1, -2147483648, "left shift");
49 is($z + 1, -9223372036854775808, "left shift");
53 is(~
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/
H A Dsprintf.t17 is($s, $a, "%s a");
22 is($s, $b, "%s b");
27 is($s, $a.$b, "%s%s a b");
32 is($s, $b.$a, "%s%s b a");
37 is($s, $b.$b, "%s%s b b");
42 is($s, $a.$b, "%sb a");
47 is($s, $b.$a, "b%s a");
52 is($s, $b.$a, "%sa b");
57 is($s, $a.$b, "a%s b");
62 is(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/
H A DInputObjects.t21 is( $p_is->name, '(unknown)', 'Pod::InputSource->name()' );
22 is( $p_is->name( 'test' ), 'test', 'set Pod::InputSource->name( test )' );
23 is( $p_is->filename, 'test', 'Pod::InputSource->filename() alias' );
25 is( $p_is->handle, \*FH, 'Pod::InputSource->handle()' );
27 is( $p_is->was_cutting(), 0, 'Pod::InputSource->was_cutting()' );
28 is( $p_is->was_cutting( 1 ), 1, 'set Pod::InputSource->was_cutting( 1 )' );
33 my $p_p2 = Pod::Paragraph->new( 'test - This is the test suite' );
37 is( $p_p1->cmd_name(), 'head2', 'Pod::Paragraph->cmd_name()' );
38 is( $p_p1->cmd_name( 'head1' ), 'head1',
43 is(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Dasmdata.t20 is( (grep { ref eq 'ARRAY' } @data), @data, '%insn_data contains arrays' );
26 is( ref $data->[1], 'CODE', ' PUT code ref' );
29 is( $insn_name[$data->[0]], $opname, '@insn_name maps correctly' );
34 is( grep(/OP$/, @optype), @optype, '@optype is all /OP$/' );
39 is( $specialsv_name[0], 'Nullsv', 'Nullsv come first in @special_sv_name' );
44 is( grep(!ref, @specialsv_name), @specialsv_name, ' contains all strings' );

Completed in 74 milliseconds

1234567891011>>