From a693d752bc302c2742a3ffbeebe3323663ebec8c Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Thu, 18 May 1995 18:20:57 +0000
Subject: Oops.  Test $tr, not `tr' from PATH.

---
 tests/tr/build-script | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'tests/tr')

diff --git a/tests/tr/build-script b/tests/tr/build-script
index 5ede91975..5c7016bbf 100755
--- a/tests/tr/build-script
+++ b/tests/tr/build-script
@@ -1,12 +1,12 @@
 #!/p/bin/perl -w
 
 $tr = '../tr +io 5';
-$tr = './tr';
 $tr = 'tr';
+$tr = './tr';
 $test = 0;
 $| = 1;
 
-print ":\nerrors=0\n";
+print "#! /bin/sh\necho 'testing with tr=$tr'\ntr=$tr\nerrors=0\n";
 $expected = '';
 $s1 = '';
 $input = '';
@@ -34,7 +34,7 @@ while (<>)
     close(EXP);
     $arg2 = ($s2 ? " '$s2'" : '');
     $err_output = "t$test_name.err";
-    $cmd = "$tr $flags \'$s1\'$arg2 < $in > $out 2> $err_output";
+    $cmd = "\$tr $flags \'$s1\'$arg2 < $in > $out 2> $err_output";
     print <<EOF ;
 $cmd
 code=\$?
-- 
cgit v1.2.3-70-g09d2