/osnet-11/usr/src/grub/grub2/tests/ |
H A D | grub_script_while1.in | 4 foo="" 5 while test "$foo" != "1111"; do foo="${foo}1"; echo "$foo"; done 8 foo="" 9 while test "$foo" != "aaaa" 11 foo="${foo}a" 12 echo $foo [all...] |
H A D | grub_script_vars1.in | 19 var=foo 27 foo=foo 28 echo "" $foo 30 echo $bar $foo 33 echo $bar $foo
|
H A D | grub_cmd_echo.in | 21 echo foo 22 echo foo bar 24 echo -n foo 26 echo -e "foo\nbar" 28 echo -n -e "foo\nbar" 30 echo foo -n 31 echo foo -n -e 40 foo="*" 41 echo "$foo"
|
H A D | grub_script_echo1.in | 28 echo a $foo b 29 echo a ${foo} b 31 echo a "$foo" b 32 echo a "${foo}" b 46 foo=bar 47 echo $foo ${foo} 48 echo "$foo" "${foo}" 49 echo '$foo' ' [all...] |
H A D | grub_script_for1.in | 10 foo="1 2" 11 for x in ab${foo}cd; do echo $x; done 12 for x in "ab${foo}cd"; do echo $x; done 15 y=foo
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/ |
H A D | pat.t | 11 if (/^foo/) { print "not ok 2\n"; } else { print "ok 2\n";}
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | delete.t | 7 $foo{1} = 'a'; 8 $foo{2} = 'b'; 9 $foo{3} = 'c'; 10 $foo{4} = 'd'; 11 $foo{5} = 'e'; 13 $foo = delete $foo{2}; 15 if ($foo eq 'b') {print "ok 1\n";} else {print "not ok 1 $foo\n";} 16 unless (exists $foo{ [all...] |
H A D | context.t | 7 sub foo { subroutine 16 $a=foo; 17 @a=foo; 18 foo;
|
H A D | vec.t | 7 print vec($foo,0,1) == 0 ? "ok 1\n" : "not ok 1\n"; 8 print length($foo) == 0 ? "ok 2\n" : "not ok 2\n"; 9 vec($foo,0,1) = 1; 10 print length($foo) == 1 ? "ok 3\n" : "not ok 3\n"; 11 print unpack('C',$foo) == 1 ? "ok 4\n" : "not ok 4\n"; 12 print vec($foo,0,1) == 1 ? "ok 5\n" : "not ok 5\n"; 14 print vec($foo,20,1) == 0 ? "ok 6\n" : "not ok 6\n"; 15 vec($foo,20,1) = 1; 16 print vec($foo,20,1) == 1 ? "ok 7\n" : "not ok 7\n"; 17 print length($foo) [all...] |
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 | auto.t | 45 if (++($foo = '99') eq '100') {print "ok 31\n";} else {print "not ok 31\n";} 46 if (++($foo = 'a0') eq 'a1') {print "ok 32\n";} else {print "not ok 32\n";} 47 if (++($foo = 'Az') eq 'Ba') {print "ok 33\n";} else {print "not ok 33\n";} 48 if (++($foo = 'zz') eq 'aaa') {print "ok 34\n";} else {print "not ok 34\n";} 49 if (++($foo = 'A99') eq 'B00') {print "ok 35\n";} else {print "not ok 35\n";} 51 if (++($foo = 'zi') eq 'zj') {print "ok 36\n";} else {print "not ok 36\n";} 52 if (++($foo = 'zr') eq 'zs') {print "ok 37\n";} else {print "not ok 37\n";}
|
H A D | array.t | 12 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them 39 @foo = (); 40 $r = join(',', $#foo, @foo); 42 $foo[0] = '0'; 43 $r = join(',', $#foo, @foo); 45 $foo[2] = '2'; 46 $r = join(',', $#foo, @foo); 239 sub foo { "a" } subroutine [all...] |
H A D | undef.t | 36 $ary{'foo'} = 'hi'; 37 print defined($ary{'foo'}) ? "ok 10\n" : "not ok 10\n"; 39 undef $ary{'foo'}; 40 print defined($ary{'foo'}) ? "not ok 12\n" : "ok 12\n"; 53 sub foo { print "ok 19\n"; } subroutine 55 &foo || print "not ok 19\n"; 57 print defined &foo ? "ok 20\n" : "not ok 20\n"; 58 undef &foo; 59 print defined(&foo) ? "not ok 21\n" : "ok 21\n"; 69 tie my %foo, 'Ti [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | Internals.t | 12 my $foo; 13 my @foo; 14 my %foo; 16 ok( !Internals::SvREADONLY $foo ); 17 ok( Internals::SvREADONLY $foo, 1 ); 18 ok( Internals::SvREADONLY $foo ); 19 ok( !Internals::SvREADONLY $foo, 0 ); 20 ok( !Internals::SvREADONLY $foo ); 22 ok( !Internals::SvREADONLY @foo ); 23 ok( Internals::SvREADONLY @foo, [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/ |
H A D | elsif.t | 5 sub foo { subroutine 22 if (($x = &foo(1)) == 1) {print "ok 1\n";} else {print "not ok 1 '$x'\n";} 23 if (($x = &foo(2)) == 2) {print "ok 2\n";} else {print "not ok 2 '$x'\n";} 24 if (($x = &foo(3)) == 3) {print "ok 3\n";} else {print "not ok 3 '$x'\n";} 25 if (($x = &foo(4)) == 4) {print "ok 4\n";} else {print "not ok 4 '$x'\n";}
|
H A D | for.t | 25 $foo = 3210; 27 foreach $foo (@ary) { 28 $foo *= 2; 39 # this also tests that $foo was restored to 3210 after test 3 41 $foo .= $_; 43 if ($foo eq '3210abcde') {print "ok 5\n";} else {print "not ok 5 $foo\n";} 45 foreach $foo (("ok 6\n","ok 7\n")) { 46 print $foo; 49 sub foo { subroutine [all...] |
/osnet-11/usr/src/lib/libmtmalloc/tests/ |
H A D | dblfree.c | 41 char *foo; local 43 foo = malloc(10); 44 free(foo); 50 free(foo); 52 foo = malloc(10); 53 free(foo); 60 free(foo);
|
H A D | wideload.c | 42 char * foo; local 46 foo = malloc(0); /* prime the pump */ 48 foo = (char *)sbrk(0); 49 printf ("Before big malloc brk is %p request %d\n", foo, request); 50 foo = malloc(request + 100);
|
H A D | failwide.c | 43 char * foo; local 47 foo = malloc(request/2); /* prime the pump */ 49 foo = (char *)sbrk(0); 50 printf ("Before big malloc brk is %p request %d\n", foo, request); 51 foo = malloc(request + request/2);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/FileCache/t/ |
H A D | 04twoarg.t | 11 unlink('foo'); 17 cacheout '>', "foo"; 18 print foo "foo 4\n"; 19 cacheout '+>', "foo"; 20 print foo "foo 44\n"; 21 seek(foo, 0, 0); 22 print 'not ' unless <foo> eq "foo 4 [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/examples/ |
H A D | crash.cgi | 6 foo bar baz;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | hints.t | 13 print "not " if exists $^H{foo}; 14 print "ok 1 - \$^H{foo} doesn't exist initially\n"; 20 BEGIN { $^H |= 0x00020000; $^H{foo} = "a"; } 22 print "not " if $^H{foo} ne "a"; 23 print "ok 3 - \$^H{foo} is now 'a'\n"; 28 BEGIN { $^H |= 0x00020000; $^H{foo} = "b"; } 30 print "not " if $^H{foo} ne "b"; 31 print "ok 5 - \$^H{foo} is now 'b'\n"; 35 print "not " if $^H{foo} ne "a"; 36 print "ok 6 - \$H^{foo} restore [all...] |
H A D | bproto.t | 15 sub foo {} subroutine 31 q[ defined(&foo, $bar); 32 undef(&foo, $bar); 37 q[ scalar(&foo,$bar); 38 defined &foo, &foo, &foo; 39 undef &foo, $bar;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/ |
H A D | gol-linkage.t | 14 @ARGV = qw(-Foo -baR --foo bar); 17 print "ok 1\n" if GetOptions (\%lnk, "foo", "Foo=s"); 18 print ((defined $lnk{foo}) ? "" : "not ", "ok 2\n"); 19 print (($lnk{foo} == 1) ? "" : "not ", "ok 3\n"); 26 @ARGV = qw(-Foo -baR --foo bar); 29 my $foo; 30 print "ok 9\n" if GetOptions (\%lnk, "foo" => \$foo, "Foo=s"); 31 print ((defined $foo) ? "" : "not ", "ok 10\n"); 32 print (($foo [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | print.t | 14 my $foo = 'STDOUT'; 15 print $foo "ok 1\n"; 20 open(foo,">-"); 21 print foo "ok 6\n"; 51 print NONEXISTENT "foo";
|