/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | 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("\ [all...] |
H A D | 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(l [all...] |
H A D | repeat.t | 13 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 D | 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( [all...] |
H A D | 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');
|
H A D | qq.t | 11 # 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 D | 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('o [all...] |
H A D | index.t | 11 $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 D | pow.t | 29 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 D | method.t | 26 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 D | utfhash.t | 25 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 D | caller.t | 20 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 D | or.t | 40 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 D | bop.t | 15 # 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 D | 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_h [all...] |
H A D | 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_h [all...] |
H A D | 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_h [all...] |
H A D | request.t | 31 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 D | popup_menu.t | 8 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 D | digest.t | 14 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 D | 42_offset.t | 34 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 D | integer.t | 18 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 D | sprintf.t | 17 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 D | InputObjects.t | 21 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 D | asmdata.t | 20 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' );
|