summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>1995-07-27 14:43:01 +0000
committerJim Meyering <jim@meyering.net>1995-07-27 14:43:01 +0000
commit7e93c0f64b24e2aab9194ad73f513d112c201477 (patch)
tree9ab87595f97fc24f47c8416c733c1d07739c4aab /tests
parent1126d3b93e118d3af0966dd64ce5f787d8bb0a04 (diff)
downloadcoreutils-7e93c0f64b24e2aab9194ad73f513d112c201477.tar.xz
Initial revision
Diffstat (limited to 'tests')
-rw-r--r--tests/sort/.cvsignore3
-rw-r--r--tests/sort/Makefile19
-rw-r--r--tests/sort/TODO1
-rwxr-xr-xtests/sort/build-script64
-rwxr-xr-xtests/sort/main3
-rwxr-xr-xtests/sort/test.data.pl25
6 files changed, 115 insertions, 0 deletions
diff --git a/tests/sort/.cvsignore b/tests/sort/.cvsignore
new file mode 100644
index 000000000..ca18a4c8d
--- /dev/null
+++ b/tests/sort/.cvsignore
@@ -0,0 +1,3 @@
+t*.out
+t*.in
+t*.exp
diff --git a/tests/sort/Makefile b/tests/sort/Makefile
new file mode 100644
index 000000000..7fc8d30f6
--- /dev/null
+++ b/tests/sort/Makefile
@@ -0,0 +1,19 @@
+.PHONY: all
+all: sort-tests
+ ./sort-tests
+
+sort-tests: main build-script test.data.pl
+ ./main test.data.pl > $@.n
+ mv $@.n $@
+ chmod 755 $@
+
+.PHONY: distclean
+distclean:
+ rm -f t*.out
+
+.PHONY: clean
+clean: distclean
+
+.PHONY: realclean
+realclean: clean
+ rm -f sort-tests t*.in t*.exp t*.err
diff --git a/tests/sort/TODO b/tests/sort/TODO
new file mode 100644
index 000000000..e1cffb784
--- /dev/null
+++ b/tests/sort/TODO
@@ -0,0 +1 @@
+Integrate tests from the files `range-tests' and `failures'.
diff --git a/tests/sort/build-script b/tests/sort/build-script
new file mode 100755
index 000000000..230a3fad9
--- /dev/null
+++ b/tests/sort/build-script
@@ -0,0 +1,64 @@
+#!/p/bin/perl -w
+
+$sort = './sort';
+$test = 0;
+$| = 1;
+
+print "#! /bin/sh\nsort='$sort'\necho testing with sort=\$sort\nerrors=0\n";
+$expected = '';
+$input = '';
+$options = '';
+
+while (<>)
+ {
+ next if (/^\s*#/);
+
+ $test++;
+ chop;
+ $prog = '($test_name, $options,$input,$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";
+
+ 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);
+ $err_output = "t$test_name.err";
+ $cmd = "\$sort $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
+ 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
+test -s $err_output || rm -f $err_output
+EOF
+ }
+print <<EOF2 ;
+if test \$errors = 0 ; then
+ echo Passed all tests. 1>&2
+else
+ echo Failed \$errors tests. 1>&2
+fi
+EOF2
diff --git a/tests/sort/main b/tests/sort/main
new file mode 100755
index 000000000..dd2da71f4
--- /dev/null
+++ b/tests/sort/main
@@ -0,0 +1,3 @@
+:
+perl -pe 's/\\\n$//' "$@" \
+ | ./build-script
diff --git a/tests/sort/test.data.pl b/tests/sort/test.data.pl
new file mode 100755
index 000000000..9b3c57a1e
--- /dev/null
+++ b/tests/sort/test.data.pl
@@ -0,0 +1,25 @@
+#test options input expected-output return-code
+#
+("1a", '', "A\nB\nC\n", "A\nB\nC\n", 0);
+#
+("2a", '-c', "A\nB\nC\n", '', 0);
+("2b", '-c', "A\nC\nB\n", '', 1);
+# This should fail because there are duplicate keys
+("2c", '-cu', "A\nA\n", '', 1);
+("2d", '-cu', "A\nB\n", '', 0);
+("2e", '-cu', "A\nB\nB\n", '', 1);
+("2f", '-cu', "B\nA\nB\n", '', 1);
+#
+("3a", '-k1', "B\nA\n", "A\nB\n", 0);
+("3b", '-k1,1', "B\nA\n", "A\nB\n", 0);
+("3c", '-k1 -k2', "A b\nA a\n", "A a\nA b\n", 0);
+# FIXME: fail with a diagnostic when -k specifies field == 0
+("3d", '-k0', "", "", 1);
+# FIXME: fail with a diagnostic when -k specifies character == 0
+("3e", '-k1.0', "", "", 1);
+#
+("4a", '-nc', "2\n11\n", "", 0);
+("4b", '-n', "11\n2\n", "2\n11\n", 0);
+("4c", '-k1n', "11\n2\n", "2\n11\n", 0);
+("4d", '-k1', "11\n2\n", "11\n2\n", 0);
+("4e", '-k2', "ignored B\nz-ig A\n", "z-ig A\nignored B\n", 0);