From f741491272812ce20764eef0bcb1917beda3f309 Mon Sep 17 00:00:00 2001 From: Julian Andres Klode Date: Mon, 11 Mar 2019 10:46:40 +0100 Subject: Use system-provided triehash --- triehash/tests/framework.sh | 84 --------------------------------------------- 1 file changed, 84 deletions(-) delete mode 100644 triehash/tests/framework.sh (limited to 'triehash/tests/framework.sh') 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 $? -} -- cgit v1.2.3