standardizing...

diff --git a/tests/sort/build-script b/tests/sort/build-script
index 970dcf8c97b010359186001ab29ea4f6a7f779eb..5c2b2d4ba4f2e2f52dd31af487b0e507ffd5d677 100755 (executable)
--- a/tests/sort/build-script
+++ b/tests/sort/build-script
@@ -1,11 +1,11 @@
 #!/p/bin/perl -w
 
-$sort = './sort';
+$xx = './sort';
 $test = 0;
 $| = 1;
 
-print "#! /bin/sh\nsort='$sort'\necho testing with sort=\$sort\nerrors=0\n";
-print "$sort --version 2> /dev/null\n";
+print "#! /bin/sh\nxx='$xx'\necho testing with $xx=\$xx\nerrors=0\n";
+print "$xx --version 2> /dev/null\n";
 $expected = '';
 $input = '';
 $options = '';
@@ -35,12 +35,12 @@ while (<>)
     print EXP $expected;
     close(EXP);
     $err_output = "t$test_name.err";
-    $cmd = "\$sort $options $in > $out 2> $err_output";
+    $cmd = "\$xx $options $in > $out 2> $err_output";
     print <<EOF ;
 $cmd
 code=\$?
 if test \$code != $e_ret_code ; then
-  echo Test $test_name failed: sort return code \$code differs from expected value $e_ret_code 1>&2
+  echo Test $test_name failed: $xx return code \$code differs from expected value $e_ret_code 1>&2
   errors=`expr \$errors + 1`
 else
   cmp $out $exp_name

diff --git a/tests/tr/build-script b/tests/tr/build-script
index 4864c2b344ecf1cad134db7e0005f050a89faac1..6e55d8b0b8658074963b0ce4b4a28429859647e5 100755 (executable)
--- a/tests/tr/build-script
+++ b/tests/tr/build-script
@@ -1,13 +1,11 @@
 #!/p/bin/perl -w
 
-$tr = '../tr +io 5';
-$tr = 'tr';
-$tr = './tr';
+$xx = './tr';
 $test = 0;
 $| = 1;
 
-print "#! /bin/sh\ntr='$tr'\necho testing with tr=\$tr\nerrors=0\n";
-print "$tr --version 2> /dev/null\n";
+print "#! /bin/sh\nxx='$xx'\necho testing with $xx=\$xx\nerrors=0\n";
+print "$xx --version 2> /dev/null\n";
 $expected = '';
 $s1 = '';
 $input = '';
@@ -22,6 +20,11 @@ while (<>)
     chop;
     $prog = '($test_name, $input,$flags,$s1,$s2,$expected,$e_ret_code) = ' . $_ . ';';
     eval $prog;
+    if (defined ($seen{$test_name}))
+      {
+       die "$0: $.: duplicate test name \`$test_name'\n";
+      }
+    $seen{$test_name} = 1;
     $in = "t$test_name.in";
     $exp_name = 't' . $test_name . '.exp';
     $out = "t$test_name.out";
@@ -35,12 +38,12 @@ while (<>)
     close(EXP);
     $arg2 = ($s2 ? " '$s2'" : '');
     $err_output = "t$test_name.err";
-    $cmd = "\$tr $flags \'$s1\'$arg2 < $in > $out 2> $err_output";
+    $cmd = "\$xx $flags \'$s1\'$arg2 < $in > $out 2> $err_output";
     print <<EOF ;
 $cmd
 code=\$?
 if test \$code != $e_ret_code ; then
-  echo Test $test_name failed: tr return code \$code differs from expected value $e_ret_code 1>&2
+  echo Test $test_name failed: $xx return code \$code differs from expected value $e_ret_code 1>&2
   errors=`expr \$errors + 1`
 else
   cmp $out $exp_name

diff --git a/tests/tr/test.data.pl b/tests/tr/test.data.pl
index b5acbb3679996f384657b51e5295bb8e1dccbd92..3d804734ebd28023a1658bfbc50f30535c17387a 100755 (executable)
--- a/tests/tr/test.data.pl
+++ b/tests/tr/test.data.pl
@@ -61,7 +61,7 @@
 ("B", "",       '',  'a',"''",          "",                  1);
 ("C", "abcxyzABCXYZ", '', '[:lower:]', '[:upper:]', "ABCXYZABCXYZ", 0);
 ("D", "abcxyzABCXYZ", '', '[:upper:]', '[:lower:]', "abcxyzabcxyz", 0);
-
+#
 ("E", "a=c", '', 'a[=*2][=c=]', 'xyyz', "xyz", 0);
 ("F", ":1239", '', '[:*3][:digit:]', 'a-m', "cefgm", 0);
 ("G", "abc", '', 'a[b*512]c', '1[x*]2', "1x2", 0);