| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | my.t | 7 sub foo { subroutine
24 print &foo("ok 1\n","ok 2\n");
30 sub foo2 { subroutine
45 print &foo2("ok 11\n","ok 12\n");
|
| H A D | my_stash.t | 3 package Foo; package
14 use constant MyClass => 'Foo::Bar::Biz::Baz';
17 package Foo::Bar::Biz::Baz; package
21 for (qw(Foo Foo:: MyClass __PACKAGE__)) {
27 use constant NoClass => 'Nope::Foo::Bar::Biz::Baz';
|
| H A D | nothr5005.t | 24 sub foo { local(@_) = ('p', 'q', 'r'); } subroutine
29 print "not " unless join('',foo('a', 'b', 'c')) eq 'pqr';
|
| H A D | override.t | 16 BEGIN { package Foo; *main::getlogin = sub { "kilroy"; } }
31 require Foo;
32 is( $r, "Foo.pm" );
34 require Foo::Bar;
35 is( $r, join($dirsep, "Foo", "Bar.pm") );
37 require 'Foo';
38 is( $r, "Foo" );
46 eval "use Foo";
47 is( $r, "Foo.pm" );
49 eval "use Foo
89 sub foo { "ok" } subroutine
95 sub foo { [ "ok" ] } subroutine
[all...] |
| H A D | pack.t | 51 my $foo = pack($format,@ary);
52 my @ary2 = unpack($format,$foo);
63 like($foo, qr/def/);
83 my $foo;
85 sysread BIN, $foo, 8192;
88 $sum = unpack("%32b*", $foo);
89 my $longway = unpack("b*", $foo);
240 is(unpack("p",pack("p","foo")), "foo");
246 sub foo { m subroutine
[all...] |
| H A D | pat.t | 98 $foo = '[^ab]*';
99 'cde' =~ /$foo/;
103 $foo = '[^ab]*';
104 'cde' =~ /$foo/;
216 print $' eq "fooabcbar" ? "ok 58\n" : "not ok 58\n" if $x;
242 $_ = 'foobar1 bar2 foobar3 barfoobar5 foobar6';
243 @out = /(?<!foo)bar./g;
455 'foot'
[all...] |
| H A D | quotemeta.t | 50 $a = "foo|bar";
|
| H A D | range.t | 14 @foo = (1,2,3,4,5,6,7,8,9);
15 @foo[2..4] = ('c','d','e');
17 print join(':',@foo[$foo[0]..5]) eq '2:c:d:e:6' ? "ok 2\n" : "not ok 2\n";
117 @foo=(); push @foo, $_ for undef..2;
118 print join(":", @foo) eq '0:1:2' ? "ok 29\n" : "not ok 29\n";
120 @foo=(); push @foo, $_ for -2..undef;
121 print join(":", @foo) e
[all...] |
| H A D | re_tests | 407 ((foo)|(bar))* foobar y $1-$2-$3 bar-foo-bar
428 (?:(f)(o)(o)|(b)(a)(r))* foobar y $1:$2:$3:$4:$5:$6 f:o:o:b:a:r
485 foo\w*\d{4}baz foobar1234baz y $& foobar1234baz
593 [[:foo:]] - c - POSIX class [:foo:] unknown
594 [[:^foo
[all...] |
| H A D | read.t | 8 open(FOO,'op/read.t') || open(FOO,'t/op/read.t') || open(FOO,':op:read.t') || die "Can't open op.read";
9 seek(FOO,4,0);
10 $got = read(FOO,$buf,4);
15 seek (FOO,0,2) || seek(FOO,20000,0);
16 $got = read(FOO,$buf,4);
|
| H A D | ref.t | 15 $foo = "ok 2\n";
17 local(*foo) = *bar;
18 print $foo;
20 print $foo;
23 $foo = "ok 4\n";
25 local(*foo) = 'baz';
26 print $foo;
28 print $foo;
30 $foo = "ok 6\n";
32 local(*foo);
194 sub foo { print $_[1] } subroutine
[all...] |
| H A D | regmesg.t | 29 '/[[=foo=]]/' => 'POSIX syntax [= =] is reserved for future extensions in regex; marked by {#} in m/[[=foo=]{#}]/',
|
| H A D | repeat.t | 132 my $x= [("foo") x 2];
133 is( join('', @$x), 'foofoo', 'list repeat in anon array ref broken [ID 20011113.110]' );
|
| H A D | reverse.t | 13 $_ = "foobar";
18 my @a = ("foo", "bar");
|
| H A D | runlevel.t | 71 my $foo;
72 return bless \$foo;
91 my $foo;
92 eval('die("foo\n")');
94 return bless \$foo;
113 my $foo;
114 return bless \$foo;
134 eval('die("foooo\n")');
163 sub foo {
167 @a = sort foo
[all...] |
| H A D | sort.t | 258 package Foo; package
|
| H A D | splice.t | 43 my $foo;
46 $foo = splice @a, 1, 2;
47 print "not " unless $foo eq 'blue';
51 $foo = shift @a;
52 print "not " unless $foo eq 'red';
|
| H A D | split.t | 33 $_ = join(':',split(/ */,"foo bar bie\tdoll"));
36 $_ = join(':', 'foo', split(/ /,'a b c'), 'bar');
37 is($_, "foo:a:b::c:bar");
53 if ($^O eq 'MSWin32') { $foo = `.\\perl -Dt -e "(\$a,\$b) = split;" 2>&1` }
54 elsif ($^O eq 'NetWare') { $foo = `perl -Dt -e "(\$a,\$b) = split;" 2>&1` }
55 elsif ($^O eq 'VMS') { $foo = `./perl "-Dt" -e "(\$a,\$b) = split;" 2>&1` }
56 elsif ($^O eq 'MacOS'){ $foo = `$^X "-Dt" -e "(\$a,\$b) = split;"` }
57 else { $foo = `./perl -Dt -e '(\$a,\$b) = split;' 2>&1` }
58 ok($foo =~ /DEBUGGING/ || $foo
[all...] |
| H A D | sprintf.t | 381 >%v02x< >"foo\012"< >66.6f.6f.0a<
|
| H A D | stat.t | 46 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
47 close FOO;
49 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
51 my($nlink, $mtime, $ctime) = (stat(FOO))[$NLINK, $MTIME, $CTIME];
71 print FOO "Now is the time for all good men to come to.\n";
72 close(FOO);
355 open(FOO,$statfile);
357 eval { -T FOO; };
362 ok(-T FOO, ' -T');
363 ok(! -B FOO, ' !
[all...] |
| H A D | sub_lval.t | 427 foobar() = 12;
439 sub hlv : lvalue { $hash{"foo"} }
448 $hash{"foo"} = "not ok 52\n";
450 print $hash{foo};
460 @array2 = qw(foo bar);
461 %hash2 = qw(foo bar);
|
| H A D | subst.t | 12 $x = 'foo';
19 ok( $_ eq 'foo', ":$_: eq :foo:" );
23 ok( $_ eq '$x foo', ":$_: eq :\$x foo:" );
234 ok( exp_vars('foo $(DIR)/yyy bar',0) eq 'foo $(UNDEFINEDNAME)/xxx/yyy bar' );
250 $_="foobbarfoobbar";
251 $snum = s/(?<!r)foobbar/foobar/
[all...] |
| H A D | subst_amp.t | 13 $foo = '<>' . ('<x><>' x 20) ;
14 print ($_ eq $foo ? "ok 1\n" : "not ok 1\n#'$_'\n#'$foo'\n");
|
| H A D | substr.t | 224 $txt = "Foo";
238 substr($s, 0, 1) = 'Foo';
239 ok 113, substr($s,0,7) eq "FooRRAY" && !($w-=2);
263 substr($a, 0, length($a), "foo");
264 ok 122, $a eq "foo" && !$w;
268 ok 123, $@ && $@ =~ /Can't modify substr/ && $a eq "foo";
616 my $foo = "a";
617 sub bar: lvalue { substr $foo, 0 }
620 $foo = '123456789';
|
| H A D | taint.t | 221 my $foo = $TAINT;
222 test 12, tainted $foo;
225 die "Taint checks don't seem to be enabled" unless tainted $foo;
227 $foo = "foo";
228 test 13, not tainted $foo;
230 taint_these($foo);
231 test 14, tainted $foo;
240 ($foo) = $foo
[all...] |