Searched refs:is (Results 101 - 125 of 775) sorted by relevance

1234567891011>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dopenpid.t57 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 Dpipe.t140 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 Dargv.t24 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 Dchomp.t32 # * 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 Dinteger.t81 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 Dpush.t22 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 Dautoescape.t10 is (button(-name => 'test<'), '<input type="button" name="test&lt;" value="test&lt;" />', "autoEscape defaults to On");
17 is($before, "test&lt;", "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&lt;" value="test&lt;" />', "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 Dhidden.t8 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 Dnetrc.t95 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 Davhv.t45 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 Dtiehandle.t82 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 Dvia.t34 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 DAPItest.pm42 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 DCarp.pm26 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 Dsigtrap.t30 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 DBenchmark.t40 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 DInstalled.t69 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 Dprereq_print.t38 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 Drel2abs2rel.t59 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 Dtext-options.t8 # 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 Dstrcmp.s24 * 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 Dswitches.t34 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 Duse.t114 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 Dcheck-permissions.sh39 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 Dtaint.t40 is($@, "", 'open with untainted data');
43 is( $buffer, "#!", ' read' );
51 is( $buffer[1], "./", ' read' );

Completed in 73 milliseconds

1234567891011>>