Added links to snippets to devel-test directory

[omk.git] / tests / functions.sh

diff --git a/tests/functions.sh b/tests/functions.sh
index 3d7da511fd3cebca06c8c41df387270637fe1020..6962ed26818a71a350533dd136398c445706e77d 100644 (file)
--- a/tests/functions.sh
+++ b/tests/functions.sh
@@ -1,2 +1,42 @@
 # -*-sh-*-
 
+# Exit on first error
+set -e
+
+findup() {
+    local arg="$1"
+    if test -z "$arg"; then return 1; fi
+
+    local wd=$PWD
+    while ! test -f "$arg"; do
+       cd ..
+       if test "$PWD" = "/"; then
+           cd $wd
+           exit 1
+       fi
+    done
+    
+    echo $PWD/$arg
+    cd $wd
+}
+
+error() {
+    echo $1 > _error
+    exit 1
+}
+
+canttest() {
+    [ -f _canttest ] || echo $1 > _canttest
+    exit 1
+}
+
+if [ -z "$OMK_TESTSROOT" ]; then
+    # We are not called by tester.py - probably, a single test was
+    # executed by hand.
+
+    tester=$(findup tester.py)
+    python $tester                     # Run tester in the current
+                                       # directory
+    exit
+fi
+