Add lunit suite

2017-04-10 16:52:58 +02:00 · 2017-04-10 16:52:58 +02:00 · a7aa7bc3ca
commit a7aa7bc3ca
parent b17d044bb5
3 changed files with 939 additions and 0 deletions
--- a/128
+++ b/128
@ -0,0 +1,128 @@
+#! /bin/sh
+
+#   This file is part of lunit 0.5.
+#
+#   For Details about lunit look at: http://www.mroth.net/lunit/
+#
+#   Author: Michael Roth <mroth@nessie.de>
+#
+#   Copyright (c) 2004-2009 Michael Roth <mroth@nessie.de>
+#
+#   Permission is hereby granted, free of charge, to any person
+#   obtaining a copy of this software and associated documentation
+#   files (the "Software"), to deal in the Software without restriction,
+#   including without limitation the rights to use, copy, modify, merge,
+#   publish, distribute, sublicense, and/or sell copies of the Software,
+#   and to permit persons to whom the Software is furnished to do so,
+#   subject to the following conditions:
+#
+#   The above copyright notice and this permission notice shall be
+#   included in all copies or substantial portions of the Software.
+#
+#   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+#   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+#   IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+#   CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+#   TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+#   SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+
+if test $# = 0 ; then
+  echo "$0: Usage Error. Try $0 --help" >&2
+  exit 1
+fi
+
+if [ `uname` = "Darwin" ]; then 
+  scriptname="$(readlink -n "$0")"
+else
+  scriptname="$(readlink -n -f "$0")"
+fi
+interpreter="lua"
+options=""
+
+while true ; do
+  case "$1" in
+    -h|--help)
+      cat <<EOT
+lunit 0.5
+Copyright (c) 2004-2009 Michael Roth <mroth@nessie.de>
+This program comes WITHOUT WARRANTY OF ANY KIND.
+
+Usage: lunit [OPTIONS] [--] scripts
+
+Options:
+
+  -i, --interpreter LUA       Complete path of the lua binary to use.
+  -p, --path PATH             Sets the LUA_PATH environment for the tests.
+      --cpath CPATH           Sets the LUA_CPATH environment for the tests.
+  -r, --runner RUNNER         Testrunner to use, defaults to 'lunit-console'.
+  -t, --test PATTERN          Which tests to run, may contain * or ? wildcards.
+      --loadonly              Only load the tests.
+      --dontforce             Do not force to load $scriptname*.lua.
+  -h, --help                  Print this help screen.
+      --version               Print lunit version.
+
+Please report bugs to <mroth@nessie.de>.
+EOT
+      exit ;;
+
+    --version)
+      echo "lunit 0.5 Copyright 2004-2009 Michael Roth <mroth@nessie.de>"
+      exit ;;
+
+    -i|--interpreter)
+      interpreter="$2"
+      shift 2 ;;
+
+    -p|--path)
+      LUA_PATH="$2"
+      export LUA_PATH
+      shift 2 ;;
+
+    --cpath)
+      LUA_CPATH="$2"
+      export LUA_CPATH
+      shift 2 ;;
+
+    --loadonly)
+      options="$options $1"
+      shift 1 ;;
+
+    --dontforce)
+      scriptname=""
+      shift 1 ;;
+
+    -r|--runner|-t|--test)
+      options="$options $1 $2"
+      shift 2 ;;
+
+    --)
+      break ;;
+
+    -*)
+      echo "$0: Invalid option: $1" >&2
+      exit 1 ;;
+
+    *)
+      break ;;
+  esac
+done
+
+
+exec "$interpreter" - "$scriptname" $options "$@" <<EOT
+  local scriptname = ...
+  local argv = { select(2,...) }
+  if scriptname ~= "" then
+    local function force(name)
+      pcall( function() loadfile(name)() end )
+    end
+    force( scriptname..".lua" )
+    force( scriptname.."-console.lua" )
+  end
+  require "lunit"
+  local stats = lunit.main(argv)
+  if stats.errors > 0 or stats.failed > 0 then
+    os.exit(1)
+  end
+EOT