Lines Matching refs:str
186 my ($str, $tests) = @_;
190 $str =~ s/(\.\/)?\$\($t\)/\$(TEST_D)\/$tests->{$t}/g;
193 return $str;
198 my ($str, $fakes) = @_;
200 my @t = split(/\s+/, $str);
201 $str = '';
204 $str .= ' ' if $str ne '';
207 $str .= $fakes->{$t};
212 $str .= '$(TEST_D)/' . $t;
216 $str .= $t;
220 return $str;
225 my ($str) = @_;
228 $str =~ s/^(\s+@?)/$1cd \$(TEST_D) && /;
229 return $str;
232 my @t = split("\n", $str);
233 $str = '';
249 $str .= "\t$t\n";
252 return $str;