/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | openpid.t | 57 is( $from_pid1, 'first process', 'message from first process' ); 60 is( $kill_cnt, 1, 'first process killed' ) || 65 is( $from_pid2, 'second process', 'message from second process' ); 68 is( $kill_cnt, 2, 'killing procs 2 & 3' ) || 79 is( $reap_pid, $pid4, 'fourth process reaped' );
|
H A D | pipe.t | 140 is($!, '', ' errno'); 146 # check that status for the correct process is collected 155 is( close FH, '', 'close failure for... umm, something' ); 156 is( $?, 13*256, ' status' ); 157 is( $!, '', ' errno'); 160 is( $?, 37*256, 'status correct after wait' ); 161 is( $wait, $zombie, ' wait pid' ); 162 is( $!, '', ' errno'); 174 # check that status is unaffected by implicit close 181 is( [all...] |
H A D | argv.t | 24 is($x, "1a line\n2a line\n", '<> from two files'); 32 is($x, "a line\nfoo\n", ' from a file and STDIN'); 38 is($x, "foo\n", ' from just STDIN'); 45 is($., 3, '$. counts <>'); 49 is($y, "1a line\n2a line\n3a line\n", '<> from @ARGV'); 81 is( <>, "ok 6\n" ); 100 is( <F>, undef ); 105 is( <F>, undef ); 106 is( <F>, undef ); 110 is( < [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/ |
H A D | chomp.t | 32 # * pack('C*') is expected to return bytes even if ${^ENCODING} is true. 72 is (chomp ($string), $return); 73 is ($string, $expect); # "$enc \$/=$rs $start $end" 80 is ($got, 0); 81 is (ref($_), "ARRAY", "chomp ref (no modify)"); 86 is ($got, 1);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | integer.t | 81 is ($@, '', 'Should be no error dcloning'); 82 ok (1, "dlcone is only 1 process, not 2"); 89 is ($@, '', 'Should be no error freezing'); 91 is ($@, '', 'Should be no error thawing'); 98 is ($@, '', 'Should be no error nfreezing'); 100 is ($@, '', 'Should be no error thawing'); 107 is ($@, '', 'Should be no error storing'); 109 is ($@, '', 'Should be no error retrieving'); 116 is ($@, '', 'Should be no error storing'); 118 is ( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | push.t | 22 is(time - $time, 2, 'slept for a while' ); 27 is( $q->push_delay(.5), .5, 'set a delay' ); 44 is( ($$out =~ s/next page//g), 2, 'next_page callback called appropriately' ); 45 is( ($$out =~ s/last page//g), 1, 'last_page callback called appropriately' ); 52 # use our own counter, as $COUNTER in CGI::Push is now off 68 is( $$out =~ s/arduk//g, 1, 'found text from next_page()' );
|
H A D | autoescape.t | 10 is (button(-name => 'test<'), '<input type="button" name="test<" value="test<" />', "autoEscape defaults to On"); 17 is($before, "test<", "reality check escapeHTML"); 19 is ($before, $after, "passing undef to autoEscape doesn't break escapeHTML"); 20 is (button(-name => 'test<'), '<input type="button" name="test<" value="test<" />', "turning off autoescape actually works"); 22 is (button(-name => 'test<'), '<input type="button" name="test<" value="test<" />', "autoescape turns back on"); 27 is ($before, $after, "passing 0 to autoEscape doesn't break escapeHTML"); 32 is(textfield( 42 is(password_field( 54 is(textarea( 67 is(popup_men [all...] |
H A D | hidden.t | 8 is( $q->hidden( 'hidden_name', 'foo' ), 12 is( $q->hidden( -name => 'hidden_name', -default =>'foo' ), 16 is( $q->hidden( 'hidden_name', qw(foo bar baz fie) ), 20 is( $q->hidden( -name=>'hidden_name', 26 is( $q->hidden( -name=>'hidden_name', 32 is( $q->hidden( -name=>'hidden_name',
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/ |
H A D | netrc.t | 95 is( Net::Netrc::_readrc(), 1, '_readrc() should succeed now' ); 97 # on 'foo', the login is 'nigol' 98 is( Net::Netrc->lookup('foo')->{login}, 'nigol', 101 # on 'foo' with login 'l2', the password is 'p2' 102 is( Net::Netrc->lookup('foo', 'l2')->{password}, 'p2', 105 # the default password is 'p3', as later declarations have priority 106 is( Net::Netrc->lookup()->{password}, 'p3', 110 is( Net::Netrc->lookup('default', 'baz')->{password}, 'p3', 114 is( Net::Netrc->lookup('abadname')->{login}, 'baz', 120 is( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | avhv.t | 45 is ($#keys, 2); 46 is ($#values, 2); 57 is ($i, 3); 65 is ($a->{'abc'}, 'ABC'); 73 is ($a->{'abc'}, 'ABC'); 82 is ($a->{'abc'}, 'ABC'); 88 is ($slice, 'xABCx'); 107 is ($_[0], 'a'); 112 is ($a->[1], 'b'); 114 # check if exists() is behavin [all...] |
H A D | tiehandle.t | 82 is(ref($ob), 'Implement'); 83 is(tied(*$fh), $ob); 87 is($r, 1); 91 is($r, 2); 96 is($ln, $text); 107 is($ch, "a"); 113 is($r, 3); 114 is($buf, "abc"); 121 is($r, 3); 122 is( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
H A D | via.t | 34 is($a, $b, 'compare original data with filtered version'); 53 is($fd2,$fd,"Wrong fd number after failed open"); 57 is($data,"Hello\n","File clobbered by failed open"); 68 is( $warnings, "", "don't warn about unknown package" ); 73 is( $warnings, "", "don't warn about unknown package" ); 80 is( $obj, 'Foo', 'search for package Foo' ); 82 is( $obj, 'PerlIO::via::Bar', 'search for package PerlIO::via::Bar' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/APItest/ |
H A D | APItest.pm | 42 This module can be used to check that the perl C API is behaving 46 This module is not meant to be installed. 56 Test that a double-precision floating point number is formatted 61 Output is sent to STDOUT. 65 Test that a C<long double> is formatted correctly by 66 C<printf>. Takes no arguments - the test value is hard-wired 71 Output is sent to STDOUT. 75 Determine whether a C<long double> is supported by Perl. This should 82 Test that an C<NV> is formatted correctly by 87 Output is sen [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | Carp.pm | 26 cluck "This is how we got here!"; 34 they act like die() or warn(), but with a message which is more 36 cluck, confess, and longmess that context is a summary of every 39 your module was called. There is no guarantee that that is where 40 the error was, but it is a good educated guess. 42 Here is a more complete description of how shortmess works. What 43 it does is search the call-stack for a function call stack where 45 call is marked safe, it then gives up and gives a full stack 47 looking potential suspect is guilt [all...] |
H A D | sigtrap.t | 30 is( $SIG{AFAKE}, \&sigtrap::handler_traceback, 'install normal handler' ); 33 is( $SIG{AFAKE}, \&sigtrap::handler_die, 'install the die handler' ); 34 is( $SIG{FAKE2}, \&sigtrap::handler_traceback, 'install traceback handler' ); 39 is( (grep { ref $_ } @SIG{@normal}), @normal, 'check normal-signals set' ); 44 is( (grep { ref $_ } @SIG{@error}), @error, 'check error-signals set' ); 49 is( (grep { ref $_ } @SIG{@old}), @old, 'check old-interface-signals set' ); 53 is( $SIG{FAKE3}, $handler, 'install custom handler' ); 57 is( $SIG{FAKE}, 'IGNORE', 'respect existing handler set to IGNORE' ); 63 is( $SIG{FAKE}, \&sigtrap::handler_traceback, 'should set default handler' );
|
H A D | Benchmark.t | 40 is ($foo, 5, "benchmarked code was run 5 times"); 43 is ($bar, 5, "benchmarked code was run 5 times"); 53 # The default is three. 75 ok ($actual < $delta, "is $in_onesec within $delta of estimate ($estimate)"); 76 print "# $in_onesec is between " . ($delta / 2) . 101 is ($auto, $default, 'timestr ($diff, "auto") matches timestr ($diff)'); 110 is (timestr ($diff, 'none'), '', "none supresses output"); 119 pass ('"auto" is "noc"'); 121 is ($auto, $all, '"auto" isn\'t "noc", so should be eq to "all"'); 137 is ( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
H A D | Installed.t | 69 is( $ei->_is_type('bar', 'doc'), 0, 120 is( $realei->{Perl}{version}, $Config{version}, 125 is( $realei->{FakeMod}{version}, '1.1.1', 131 is( join(' ', $ei->modules()), 'abc def ghi', 135 is( $ei->modules, 3, 'modules() in scalar context' ); 152 like( $@, qr/badmod is not installed/,'files() should croak given bad modname'); 161 is( scalar @files, 1, '... should find doc file under given dir' ); 162 is( (grep { /foo$/ } @files), 1, '... checking file name' ); 167 is( scalar @files, $mandirs, '... should find all doc files with no dir' ); 171 is( scala [all...] |
H A D | prereq_print.t | 38 is( $?, 0, ' exited normally' ); 45 ::is( $@, '', ' without error' ); 51 is( $?, 0, ' exited normally' ); 59 #is( $?, 0, ' exited normally' ); 65 #is( $?, 0, ' exited normally' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/ |
H A D | rel2abs2rel.t | 59 is( sayok($perl), "ok\n", "`$perl rel2abs2rel$$.pl` works" ); 62 is( sayok($perl), "ok\n", "`$perl rel2abs2rel$$.pl` works" ); 65 is( sayok($perl), "ok\n", "canonpath(rel2abs($^X)) = $perl" ); 68 is( sayok($perl), "ok\n", "safe_rel(abs2rel(canonpath(rel2abs($^X)))) = $perl" ); 71 is( sayok($perl), "ok\n", "safe_rel(canonpath($^X)) = $perl" );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/ |
H A D | text-options.t | 8 # This program is free software; you may redistribute it and/or modify it 72 # This is used to test specific features or problems with Pod::Text. The 119 This is some body text that is long enough to be a paragraph that wraps, 122 This is some verbatim text. 128 This is a test of an indented paragraph. 130 This is another indented paragraph. 135 This is some body text that is long enough to be a paragraph that 138 This is som [all...] |
/osnet-11/usr/src/lib/libc/sparc/gen/ |
H A D | strcmp.s | 24 * Use is subject to license terms. 53 ! This strcmp implementation first determines whether s1 is aligned. 54 ! If it is not, it attempts to align it and then checks the 55 ! alignment of the destination string. If it is possible to 57 ! a different compare for non-aligned strings is used. 59 ! degree to which a string is mis-aligned. 111 bne .wordsdiffer ! yup, find the byte that is different 144 bne .wordsdiffer ! yup, find the byte that is different 170 bne .wordsdiffer ! yup, find the byte that is different 216 ! we know byte 1 is equa [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
H A D | switches.t | 34 is( $r, "<foo\0><bar\0><baz\0>", "-0" ); 41 is( $r, "foo\nbar\nbaz\n", "-0 after a -l" ); 48 is( $r, "foo\0bar\0baz\0", "-0 before a -l" ); 55 is( $r, "<foox><barx><bazx>", "-0 with octal number" ); 62 is( $r, 'abc-def--/ghi-jkl-mno--/pq-/', '-00 (paragraph mode)' ); 69 is( $r, 'abc-def--ghi-jkl-mno--pq-/', '-0777 (slurp mode)' ); 75 is( $r, "(\066)[\066]", '$/ set at compile-time' ); 98 # in which the output is given 117 is( $r, 'fooxbarx', '-l with octal number' ); 126 is( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | use.t | 114 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) { 124 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) { 135 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) { 145 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) { 156 unless ($@ =~ /lib v100\.105 required--this is only v35\.36/) { 166 unless ($@ =~ /lib version 100\.105 required--this is only version 35\.036/) {
|
/osnet-11/usr/src/cmd/sendmail/cf/sh/ |
H A D | check-permissions.sh | 39 echo $2: $1 is group and world writable 42 echo $2: $1 is world writable 45 echo $2: $1 is group writable 98 # Check .forward files as well. If the argument "ALL" is given, do it for 99 # everyone. If no argument to the script is given, just do it for the current
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/ |
H A D | taint.t | 40 is($@, "", 'open with untainted data'); 43 is( $buffer, "#!", ' read' ); 51 is( $buffer[1], "./", ' read' );
|