diff options
Diffstat (limited to 'triehash/tests/framework.sh')
-rw-r--r-- | triehash/tests/framework.sh | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/triehash/tests/framework.sh b/triehash/tests/framework.sh deleted file mode 100644 index 51d4580a6..000000000 --- a/triehash/tests/framework.sh +++ /dev/null @@ -1,84 +0,0 @@ -#!/bin/sh -# Simple integration test framework - -set -e - - -cleanup() { - rm -f test.output test.c test.h test.tree -} - -dumpone() { - if [ -e "$@" ]; then - echo "Content of $@:" - cat "$@" | sed "s#^#\t#g" - fi - -} - -dump() { - dumpone test.output - dumpone test.c - dumpone test.h - dumpone test.tree - return 1 -} - -testsuccess() { - [ "$INNER" ] || cleanup - [ "$INNER" ] || echo "Testing success of $@" - if ! "$@" > test.output 2>&1; then - echo "ERROR: Running $@ failed with error $?, messages were:" >&2 - dump - return 1 - fi -} - -testfailure() { - [ "$INNER" ] || cleanup - [ "$INNER" ] || echo "Testing failure of $@" - if "$@" > test.output 2>&1; then - echo "ERROR: Running $@ unexpectedly succeeded, messages were:" >&2 - dump - return 1 - fi -} - -testfileequal() { - [ "$INNER" ] || echo "Testing output of $2" - printf "%b\n" "$1" > expected - if ! diff -u "expected" "$2" > test.diff; then - echo "ERROR: Differences between expected output and and $2:" >&2 - cat test.diff | sed "s#^#\t#g" - dump - return 1 - fi -} - -testgrep() { - [ "$INNER" ] || echo "Testing grep $@" - INNER=1 testsuccess grep "$@" - unset INNER -} - -testsuccessequal() { - expect="$1" - shift - cleanup - echo "Testing success and output of $@" - INNER=1 testsuccess "$@" - INNER=1 testfileequal "$expect" test.output - unset INNER -} - - -WORDS="Word-_0 -Word = 42 -VeryLongWord -Label ~ Word2 -= -9" - -triehash() { - printf "%b\n" "$WORDS" | perl -MDevel::Cover=-summary,0,-silent,1 $(dirname $(dirname $(readlink -f $0)))/triehash.pl "$@" || return $? - return $? -} |