Lines Matching full:foo*
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/g;
252 ok( $_ eq "foobarfoobbar" && $snum == 1 );
254 $_="foobbarfoobbar";
255 $snum = s/(?<!ar)(foobbar)/foobar/g;
256 ok( $_ eq "foobarfoobbar" && $snum == 1 );
258 $_="foobbarfoobbar";
259 $snum = s/(?<!ar)foobbar/foobar/g;
260 ok( $_ eq "foobarfoobbar" && $snum == 1 );
262 eval 's{foo} # this is a comment, not a delimiter
279 $foo = ' $@%#lowercase $@%# lowercase UPPERCASE$@%#UPPERCASE' .
300 ok( $_ eq $foo );
309 $foo = '<>' . ('<x><>' x 20) ;
310 ok( $_ eq $foo && $snum == 41 );