From cb4c5aaf0a1884bcae21c7d31b70864e64bb55fa Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Mon, 7 Nov 1994 12:47:50 +0000 Subject: Initial revision --- tests/join/build-script | 59 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100755 tests/join/build-script (limited to 'tests/join/build-script') diff --git a/tests/join/build-script b/tests/join/build-script new file mode 100755 index 000000000..ab064d5cb --- /dev/null +++ b/tests/join/build-script @@ -0,0 +1,59 @@ +#!/p/bin/perl5.000 -w + +$tr = '../tr +io 5'; +$tr = 'tr'; +$test = 0; +$| = 1; + +print ":\nerrors=0\n"; +$expected = ''; +$s1 = ''; +$input = ''; +$flags = ''; +$s1 = ''; + +while (<>) + { + next if (/^\s*#/); + + $test++; + chop; + $prog = '($test_name, $input,$flags,$s1,$s2,$expected,$e_ret_code) = ' . $_ . ';'; + eval $prog; + $in = "t$test_name.in"; + $exp_name = 't' . $test_name . '.exp'; + $out = "t$test_name.out"; + + open(IN, ">$in") || die "Couldn't open $in for writing.\n"; + print IN $input; + close(IN); + open(EXP, ">$exp_name") + || die "Couldn't open $exp_name for writing.\n"; + print EXP $expected; + close(EXP); + $arg2 = ($s2 ? "'$s2'" : ''); + $cmd = "$tr $flags \'$s1\' $arg2 < $in > $out"; + print < /dev/null +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 + errors=`expr \$errors + 1` +else + cmp $out $exp_name + case \$? in + 0) if test "\$verbose" ; then echo passed $test_name; fi ;; # equal files + 1) echo Test $test_name failed: files $out and $exp_name differ 1>&2; + errors=`expr \$errors + 1` ;; + 2) echo Test $test_name may have failed. 1>&2; + echo The command \"cmp $out $exp_name\" failed. 1>&2 ; + errors=`expr \$errors + 1` ;; + esac +fi +EOF + } +print <&2 +fi +EOF2 -- cgit v1.2.3-70-g09d2