Searched refs:foo (Results 1 - 25 of 237) sorted by relevance

12345678910

/osnet-11/usr/src/grub/grub2/tests/
H A Dgrub_script_while1.in4 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 Dgrub_script_vars1.in19 var=foo
27 foo=foo
28 echo "" $foo
30 echo $bar $foo
33 echo $bar $foo
H A Dgrub_cmd_echo.in21 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 Dgrub_script_echo1.in28 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 Dgrub_script_for1.in10 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 Dpat.t11 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 Ddelete.t7 $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 Dcontext.t7 sub foo { subroutine
16 $a=foo;
17 @a=foo;
18 foo;
H A Dvec.t7 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 Drange.t14 @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 Dauto.t45 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 Darray.t12 # @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 Dundef.t36 $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 DInternals.t12 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 Delsif.t5 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 Dfor.t25 $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 Ddblfree.c41 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 Dwideload.c42 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 Dfailwide.c43 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 D04twoarg.t11 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 Dcrash.cgi6 foo bar baz;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dhints.t13 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 Dbproto.t15 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 Dgol-linkage.t14 @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 Dprint.t14 my $foo = 'STDOUT';
15 print $foo "ok 1\n";
20 open(foo,">-");
21 print foo "ok 6\n";
51 print NONEXISTENT "foo";

Completed in 89 milliseconds

12345678910