/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
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 | closure.t | 27 sub foo { $i = shift if @_; $i } subroutine 30 test { foo == 1 }; 31 foo(2); 32 test { foo == 2 }; 35 my $foo = sub {$i = shift if @_; $i }; 37 test {&$foo() == 2 }; 38 &$foo(3); 39 test {&$foo() == 3 }; 41 test { foo == 3 and $i == 3}; 51 $foo [all...] |
H A D | local.t | 5 sub foo { subroutine 20 print &foo("ok 1\n","ok 2\n"); 58 local($a[1]) = 'foo'; 60 print +($a[1] eq 'foo') ? "" : "not ", "ok 24\n"; 77 local($h{'a'}) = 'foo'; 79 print +($h{'a'} eq 'foo') ? "" : "not ", "ok 30\n"; 118 local($a[1]) = 'foo'; 120 print +($a[1] eq 'foo') ? "" : "not ", "ok 37\n"; 143 local($h{'a'}) = 'foo'; 147 print +($h{'a'} eq 'foo') [all...] |
H A D | method.t | 164 sub foo { "foo" } subroutine 168 is(A2->foo(), "foo"); 169 is(do { eval 'A2::foo()'; $@ ? 1 : 0}, 1); 170 is(A2->foo(), "foo"); 178 # is(do { use Config; eval 'Config->foo()'; 179 # $@ =~ /^\QCan't locate object method "foo" via package "Config" at/ ? 1 : $@}, 1); 180 # is(do { use Config; eval '$d = bless {}, "Config"; $d->foo()'; [all...] |
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 | 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...] |
H A D | goto.t | 15 $foo = 1; 17 $foo = 2; 20 $foo = 0; 23 $foo = 4; 28 $foo = 3; 31 print "#1\t:$foo: == 2\n"; 32 if ($foo == 2) {print "ok 1\n";} else {print "not ok 1\n";} 36 print "#2\t:$foo: == 4\n"; 37 if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";} 40 $CMD = qq[$PERL -e "goto foo;" 45 sub foo { subroutine [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);
|
/osnet-11/usr/src/cmd/sendmail/libsm/ |
H A D | t-string.c | 27 char foo[4]; local 41 foo[3] = 1; 42 n = sm_snprintf(foo, sizeof(foo), "foobar%dbaz", 42); 44 r = "foo"; 45 SM_TEST(strcmp(foo, r) == 0);
|
/osnet-11/usr/src/lib/libmtmalloc/tests/ |
H A D | general.c | 63 be_thread(void * foo) argument
|
H A D | dirtymem.c | 50 struct a_struct *foo, *leak; local 54 foo = (struct a_struct *)malloc(sizeof (struct_o_death)); 56 free(foo); 57 foo->a = 4; 69 foo = malloc(sizeof (struct_o_death));
|
H A D | exhaust.c | 84 be_thread(void *foo) argument
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
H A D | terse.t | 21 sub foo {} subroutine 24 eval{ $sub = B::Terse::compile('', 'foo') }; 68 my $foo = $a + $b; 74 my $boo = split('', $foo); 82 $foo = "a string"; 85 $foo =~ s/(a)/$1/;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/ |
H A D | subval.t | 38 if (&foo1(0) eq '0') {print "ok 1\n";} else {print "not ok 1 $foo\n";} 57 my($foo); 60 $foo = 1; 63 $foo = &fib($arg-1) + &fib($arg-2); 66 $foo; 72 $foo = $i + 12; 74 print "ok $foo\n"; 77 print "not ok $foo\n"; 110 package foo; package 111 &main'somesub(28, 'foo', __FILE_ [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | AutoLoader.t | 25 open(FOO, '>', File::Spec->catfile( $fulldir, 'foo.al' )) 26 or die "Can't open foo file: $!"; 29 sub foo { shift; shift || "foo" } subroutine 76 sub foo; 82 my $foo = new Foo; 84 my $result = $foo->can( 'foo' ); 86 is( $foo->foo, 'fo [all...] |
H A D | DB.t | 49 is( DB->skippkg('foo'), 1, 'DB->skippkg() should push args' ); 52 package foo; package 82 is( DB::_clientname('foo=A(1)'), 'foo', 163 %DB::sub = ( foo => 'foo:23-45' , bar => 'ba:r:7-890' ); 166 my @subs = DB->subs( 'foo', 'boo', 'bar' ); 168 my @expected = ( [ 'foo', 23, 45 ], [ 'ba:r', 7, 890 ] ); 196 local @DB::dbline = ( 'foo' ); 197 is( DB->lines->[0], 'foo', 'D [all...] |
H A D | Exporter.t | 183 @EXPORT_OK = qw (foo); 185 sub foo {"foo"}; subroutine 190 Moving::Target->import (foo); 192 ::ok (foo eq "foo", "imported foo before EXPORT_OK changed");
|
/osnet-11/usr/src/lib/libuvfs/common/ |
H A D | door.c | 192 libuvfs_worker_thread_prep(void *foo) argument
|
H A D | fs.c | 137 libuvfs_fs_construct(void *vfs, void *foo, int bar) argument 154 libuvfs_fs_destroy(void *vfs, void *foo) argument
|
H A D | name.c | 548 libuvfs_fid_info_construct(void *vdir, void *foo, int bar) argument 564 libuvfs_fid_info_destroy(void *vdir, void *foo) argument
|
/osnet-11/usr/src/lib/libsasl/lib/ |
H A D | saslutil.c | 460 unsigned int *foo = (unsigned int *)rpool->pool; local 461 srandom(*foo);
|
/osnet-11/usr/src/lib/libnsl/netselect/ |
H A D | netselect.c | 950 free_entry(void *foo) argument 952 if (foo) 953 free(foo);
|
/osnet-11/usr/src/lib/libshell/common/sh/ |
H A D | nvtype.c | 1408 Fields_t foo[]= variable 1572 tp = nv_mkstruct("stat_t", sizeof(struct stat), foo);
|
/osnet-11/usr/src/grub/grub2/grub-core/lib/libgcrypt/cipher/ |
H A D | cipher.c | 149 PROPERLY_ALIGNED_TYPE foo; member in union:__anon497
|