summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2006-08-08 22:22:47 +0000
committerPaul Eggert <eggert@cs.ucla.edu>2006-08-08 22:22:47 +0000
commit73742c2566e6f8d56b3b132026ad477b9924e774 (patch)
tree823ee8f3472c0901cdcc6d662a110efc4b7ea1ae /tests
parentf2f8ea1001b4e29bba94b47f72d21f758e596288 (diff)
downloadcoreutils-73742c2566e6f8d56b3b132026ad477b9924e774.tar.xz
New file, introduced for shuf, sort -R, and/or shred.
Diffstat (limited to 'tests')
-rwxr-xr-xtests/misc/shuf37
1 files changed, 37 insertions, 0 deletions
diff --git a/tests/misc/shuf b/tests/misc/shuf
new file mode 100755
index 000000000..17dea5045
--- /dev/null
+++ b/tests/misc/shuf
@@ -0,0 +1,37 @@
+#!/bin/sh
+# Ensure that shuf randomizes its input.
+
+if test "$VERBOSE" = yes; then
+ set -x
+ shuf --version
+fi
+
+pwd=`pwd`
+t0=`echo "$0"|sed 's,.*/,,'`.tmp; tmp=$t0/$$
+trap 'status=$?; cd $pwd; chmod -R u+rwx $t0; rm -rf $t0 && exit $status' 0
+trap '(exit $?); exit $?' 1 2 13 15
+
+framework_failure=0
+mkdir -p $tmp || framework_failure=1
+cd $tmp || framework_failure=1
+seq 100 > in || framework_failure=1
+
+if test $framework_failure = 1; then
+ echo "$0: failure in testing framework" 1>&2
+ (exit 1); exit 1
+fi
+
+fail=0
+
+shuf in >out || fail=1
+
+# Fail if the input is the same as the output.
+# This is a probabilistic test :-)
+# However, the odds of failure are very low: 1 in 100! (~ 1 in 10^158)
+cmp in out > /dev/null && { fail=1; echo "not random?" 1>&2; }
+
+# Fail if the sorted output is not the same as the input.
+sort -n out > out1
+cmp in out1 || { fail=1; echo "not a permutation" 1>&2; }
+
+(exit $fail); exit $fail