| /netvirt/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| 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...] |
| 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...] |
| 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($a x -3, '', ' x -3')
[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...] |
| 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');
|
| 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 ("\xx9", chr (0) . 'x9'); # This will warn. \x9 is tab in EBCDIC too
[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...] |
| 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(index("ababa","a",0), 0)
[all...] |
| 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 positive")
[all...] |
| 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(method Pack, "method")
[all...] |
| 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($hashu{$a},ord($a))
[all...] |
| 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" );
|
| 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');
|
| 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 ("o\000 \0001\000" ^ "\000k\0002\000\n", "ok 21\n")
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
| 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 ($o->offset(1), 8, 'and second ok')
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| 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(~0, -1, "signed instead of unsigned")
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/ |
| 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( $p_p1->text(), 'NAME', 'Pod::Paragraph->text()' )
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/t/uni/ |
| 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($s, $a.$a, "a%s a")
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
| 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' );
|
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| bytes.t | 22 is( length $chr, 1 );
26 is( length $chr, 2, 'byte.pm in effect' );
29 is( length $chr, 1, ' score is lexical' );
|
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| is_deeply.t | 28 sub is ($$;$) { subroutine
81 is( $out, "not ok 1 - plain strings\n", 'plain strings' );
82 is( $err, <<ERR, ' right diagnostic' );
91 is( $out, "not ok 2 - different types\n", 'different types' );
101 is( $out, "not ok 3 - hashes with different values\n",
103 is( $err, <<ERR, ' right diagnostic' );
112 is( $out, "not ok 4 - hashes with different keys\n",
114 is( $err, <<ERR, ' right diagnostic' );
123 is( $out, "not ok 5 - arrays of different length\n",
125 is( $err, <<ERR, ' right diagnostic' )
[all...] |
| undef.t | 22 is( undef, undef, 'undef is undef');
23 is( $warnings, '', ' no warnings' );
26 is( $warnings, '', ' no warnings' );
31 like( undef, '/.*/', 'undef is like anything' );
32 is( $warnings, '', ' no warnings' );
35 is( $warnings, '', 'eq_array() no warnings' );
39 is( $warnings, '', 'eq_hash() no warnings' );
42 is( $warnings, '', 'eq_set() no warnings' );
47 is( $warnings, '', 'eq_hash() no warnings' )
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/Class/ |
| Struct.t | 46 is $obj->s(), 'foo';
50 is $obj->a(2), 'secundus';
53 is $obj->a(1), 5;
57 is $obj->h('x'), 10;
60 is $obj->h('r'), 8;
62 is $obj->c, undef;
66 is $obj->c->meth(), 42;
73 is $obj->s(), 'foo';
77 is $obj->a(2), 'secundus';
80 is $obj->a(1), 5
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
| our.t | 22 # if FIRSTKEY, see if NEXTKEY is also called
35 is(TieAll->calls, '', 'our $x has no runtime effect');
38 is(TieAll->calls, '', 'our ($x) has no runtime effect');
41 is(TieAll->calls, '', 'our %x has no runtime effect');
44 is(TieAll->calls, '', 'our (%x) has no runtime effect');
47 is(TieAll->calls, '', 'our @x has no runtime effect');
50 is(TieAll->calls, '', 'our (@x) has no runtime effect');
58 is($y, 2, 'our shouldnt be visible until introduced')
|
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| stat.t | 18 our @stat = stat "TEST"; # This is the function stat.
26 my $stat = File::stat::stat( "TEST" ); # This is the OO stat.
29 is( $stat->dev, $stat[0], "device number in position 0" );
31 # On OS/2 (fake) ino is not constant, it is incremented each time
33 skip('inode number is not constant on OS/2', 1) if $^O eq 'os2';
34 is( $stat->ino, $stat[1], "inode number in position 1" );
37 is( $stat->mode, $stat[2], "file mode in position 2" );
39 is( $stat->nlink, $stat[3], "number of links in position 3" );
41 is( $stat->uid, $stat[4], "owner uid in position 4" )
[all...] |
