/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | caller.t | 32 sub foo { @c = caller(0) } subroutine 33 my $fooref = delete $::{foo};
|
H A D | write.t | 76 $foo 78 $foo 80 $foo 93 $foo = 'when in the course of human events it becomes necessary'; 123 $foo 132 $foo = 'when in the course of human events it becomes necessary'; 164 $foo 175 $foo = 'when in the course of human events it becomes necessary'; 237 $foo 242 $foo [all...] |
H A D | attrs.t | 60 eval 'my $x : switch(10,foo(7,3)) : expensive;'; 61 like $@, qr/^Invalid SCALAR attributes: ["']?switch\(10,foo\(7,3\)\) : expensive["']? at/; 68 eval 'my $x : switch(10,foo();'; 88 sub X::foo { 1 } 89 *Y::bar = \&X::foo; 90 *Y::bar = \&X::foo; # second time for -w 91 eval 'package Z; sub Y::bar : foo'; 144 eval 'our ${""} : foo = 1'; 146 eval 'my $$foo : bar = 1';
|
H A D | chop.t | 12 $c = do foo(); 19 sub foo { subroutine 23 @foo = ("hi \n","there\n","!\n"); 24 @bar = @foo; 28 $foo = "\n"; 29 chop($foo,@foo); 30 is (join('',$foo,@foo), 'hi there!'); 32 $_ = "foo\ [all...] |
H A D | eval.t | 14 eval "\$foo\n = # this is a comment\n'ok 3';"; 15 print $foo,"\n"; 17 eval "\$foo\n = # this is a comment\n'ok 4\n';"; 18 print $foo; 21 $foo =;'; # this tests for a call through yyerror() 24 print eval '$foo = /'; # this tests for a call through fatal() 31 $foo = 5; 32 $fact = 'if ($foo <= 1) {1;} else {push(@x,$foo--); (eval $fact) * pop(@x);}'; 36 $foo 224 foo: print "not ok 41\\n"; label [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
H A D | switchd.t | 24 sub foo { subroutine 29 Foo::foo(3);
|
H A D | fresh_perl.t | 69 $foo=undef; $foo->go; 75 "foo"; 106 $_="foo"; 109 foo 132 $_="foo"; 138 print scalar ("foo","bar") 169 bless ['foo'] 199 package foo; 220 print STDOUT "foo [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
H A D | first.t | 32 my $foo = first { $_->[1] le "e" and "e" le $_->[2] } 34 print "not " unless $foo->[0] eq 'd';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | hidden.t | 8 is( $q->hidden( 'hidden_name', 'foo' ), 9 qq(<input type="hidden" name="hidden_name" value="foo" />), 12 is( $q->hidden( -name => 'hidden_name', -default =>'foo' ), 13 qq(<input type="hidden" name="hidden_name" value="foo" />), 16 is( $q->hidden( 'hidden_name', qw(foo bar baz fie) ), 17 qq(<input type="hidden" name="hidden_name" value="foo" /><input type="hidden" name="hidden_name" value="bar" /><input type="hidden" name="hidden_name" value="baz" /><input type="hidden" name="hidden_name" value="fie" />), 21 -Values =>[qw/foo bar baz fie/], 23 qq(<input type="hidden" name="hidden_name" value="foo" title="hidden_field" /><input type="hidden" name="hidden_name" value="bar" title="hidden_field" /><input type="hidden" name="hidden_name" value="baz" title="hidden_field" /><input type="hidden" name="hidden_name" value="fie" title="hidden_field" />), 27 -default =>[qw/foo bar baz fie/], 29 qq(<input type="hidden" name="hidden_name" value="foo" titl [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/FileCache/t/ |
H A D | 01open.t | 5 @files = qw(foo bar baz quux Foo_Bar);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/ |
H A D | gol-compat.t | 14 @ARGV = qw(-Foo -baR --foo bar); 19 print "ok 1\n" if NGetOpt ("foo", "Foo=s");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/bignum/t/ |
H A D | option_l.t | 18 my $rc = eval ('bignum->import( "l" => "foo" );'); 20 $rc = eval ('bignum->import( "lib" => "foo" );'); 23 $rc = eval ('bignum->import( "foo" => "bar" );'); 24 ok ($@ =~ /^Unknown option foo/i,1); # should die
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | inplace.t | 12 `.\\perl -le "print 'foo'" > .a`; 13 `.\\perl -le "print 'foo'" > .b`; 14 `.\\perl -le "print 'foo'" > .c`; 18 `perl -le "print 'foo'" > .a`; 19 `perl -le "print 'foo'" > .b`; 20 `perl -le "print 'foo'" > .c`; 24 `$^X -le "print 'foo'" > .a`; 25 `$^X -le "print 'foo'" > .b`; 26 `$^X -le "print 'foo'" > .c`; 30 `MCR []perl. -le "print 'foo'" > [all...] |
H A D | iprefix.t | 12 `.\\perl -le "print 'foo'" > .a`; 13 `.\\perl -le "print 'foo'" > .b`; 14 `.\\perl -le "print 'foo'" > .c`; 18 `perl -le "print 'foo'" > .a`; 19 `perl -le "print 'foo'" > .b`; 20 `perl -le "print 'foo'" > .c`; 24 `MCR []perl. -le "print 'foo'" > ./.a`; 25 `MCR []perl. -le "print 'foo'" > ./.b`; 26 `MCR []perl. -le "print 'foo'" > ./.c`; 30 `$^X -le "print 'foo'" > [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/t/ |
H A D | overload.t | 23 sub new { bless { foo => "bar" }, shift }
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | safeuniversal.t | 32 sub Foo::foo {} 36 (bless[],"Foo")->can("foo"); 40 is( (bless[],"Foo")->can("foo"), \&Foo::foo, "... but not outside" );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | dclone.t | 59 $foo = FOO->make; 60 print "not " unless defined($r = $foo->dclone); 63 print "not " unless &dump($foo) eq &dump($r);
|
H A D | store.t | 64 $foo = FOO->make; 65 print "not " unless $foo->store('store'); 74 print "not " unless defined nstore_fd($foo, ::OUT); 88 print "not " unless &dump($foo) eq &dump($r); 100 print "not " unless &dump($foo) eq &dump($r);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | NEXT.pm | 265 if ($AUTOLOAD =~ /foo|bar/) { 291 sub foo { print "called A::foo\n"; shift->NEXT::foo() } 294 sub foo { print "called B::foo\n"; shift->NEXT::foo() } 297 sub foo { print "called C::foo\n"; shift->NEXT::foo() } [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/ |
H A D | Std.t | 15 @ARGV = qw(-xo -f foo -y file); 20 is( $opt_f, 'foo', q/option -f is 'foo'/ ); 59 @ARGV = qw(--help --file foo --foo --nobar --num=5 -- file); 66 'foo!' => \$FOO, 73 ok( $HELP && $FOO && !$BAR && $FILE eq 'foo' && $NO == 5, 'options set' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/ |
H A D | Util.t | 25 my %hash = (foo => 42, bar => 23, locked => 'yep'); 79 my %hash = ( foo => 42, locked => 23 ); 107 lock_keys(%hash, qw(foo bar)); 109 $hash{foo} = 42; 122 my %hash = (foo => 42, bar => undef, baz => 0); 123 lock_keys(%hash, qw(foo bar baz up down)); 125 is_deeply( \%hash, { foo => 42, bar => undef, baz => 0 } ); 136 my %hash = (foo => 42, bar => undef); 137 eval { lock_keys(%hash, qw(foo baz)); }; 144 my %hash = (foo [all...] |
/osnet-11/usr/src/lib/libmtmalloc/tests/ |
H A D | general.c | 63 be_thread(void * foo) argument
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | parser.t | 39 eval 'undef foo'; 55 eval q{ qq(foo$) }; 86 $c =~ s/${a}{/foo/; 87 is($c, 'foo', "interpolation, s/...//"); 88 $c =~ s/foo/${a}{/; 101 my %data = ( foo => "\n" ); 104 $data{foo}); 111 1 { foo => 'bar' } 141 eval q{ *foo{CODE} ? 1 : 0 };
|
H A D | require.t | 142 $foo = eval q{require bleah}; delete $INC{"bleah.pm"}; ++$::i; 143 @foo = eval q{require bleah}; delete $INC{"bleah.pm"}; ++$::i; 146 $foo = eval {require bleah}; delete $INC{"bleah.pm"}; ++$::i; 147 @foo = eval {require bleah}; delete $INC{"bleah.pm"}; ++$::i;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | is_deeply.t | 80 is_deeply('foo', 'bar', 'plain strings'); 84 # got: 'foo' 143 is_deeply({ foo => undef }, {}, 'hashes of undefs', 'hashes of undefs' ); 148 # \$got->{foo} = undef 149 # \$expected->{foo} = Does not exist 193 # $a2 = { foo => \$a3 }; 194 # $b2 = { foo => \$b3 }; 197 my $foo = { 204 that => { up => "down", left => "right", foo => 42 }, 208 is_deeply( $foo, [all...] |