lunit

   1 #! /bin/sh
   2
   3 #   This file is part of lunit 0.4.
   4 #
   5 #   For Details about lunit look at: http://www.mroth.net/lunit/
   6 #
   7 #   Author: Michael Roth <mroth@nessie.de>
   8 #
   9 #   Copyright (c) 2004-2009 Michael Roth <mroth@nessie.de>
  10 #
  11 #   Permission is hereby granted, free of charge, to any person
  12 #   obtaining a copy of this software and associated documentation
  13 #   files (the "Software"), to deal in the Software without restriction,
  14 #   including without limitation the rights to use, copy, modify, merge,
  15 #   publish, distribute, sublicense, and/or sell copies of the Software,
  16 #   and to permit persons to whom the Software is furnished to do so,
  17 #   subject to the following conditions:
  18 #
  19 #   The above copyright notice and this permission notice shall be
  20 #   included in all copies or substantial portions of the Software.
  21 #
  22 #   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  23 #   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  24 #   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  25 #   IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  26 #   CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  27 #   TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  28 #   SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  29
  30
  31 if test $# = 0 ; then
  32   echo "$0: Usage Error. Try $0 --help" >&2
  33   exit 1
  34 fi
  35
  36 scriptname="$(readlink -n -f "$0")"
  37 interpreter="lua"
  38 options=""
  39
  40 while true ; do
  41   case "$1" in
  42     -h|--help)
  43       cat <<EOT
  44 lunit 0.4
  45 Copyright (c) 2004-2008 Michael Roth <mroth@nessie.de>
  46 This program comes WITHOUT WARRANTY OF ANY KIND.
  47
  48 Usage: lunit [OPTIONS] [--] scripts
  49
  50 Options:
  51
  52   -i, --interpreter LUA       Complete path of the lua binary to use.
  53   -p, --path PATH             Sets the LUA_PATH environment for the tests.
  54       --cpath CPATH           Sets the LUA_CPATH environment for the tests.
  55   -r, --runner RUNNER         Testrunner to use, defaults to 'lunit-console'.
  56   -t, --test PATTERN          Which tests to run, may contain * or ? wildcards.
  57       --loadonly              Only load the tests.
  58       --dontforce             Do not force to load $scriptname*.lua.
  59   -h, --help                  Print this help screen.
  60       --version               Print lunit version.
  61
  62 Please report bugs to <mroth@nessie.de>.
  63 EOT
  64       exit ;;
  65
  66     --version)
  67       echo "lunit 0.4pre Copyright 2004-2008 Michael Roth <mroth@nessie.de>"       # FIXME
  68       exit ;;
  69
  70     -i|--interpreter)
  71       interpreter="$2"
  72       shift 2 ;;
  73
  74     -p|--path)
  75       LUA_PATH="$2"
  76       export LUA_PATH
  77       shift 2 ;;
  78
  79     --cpath)
  80       LUA_CPATH="$2"
  81       export LUA_CPATH
  82       shift 2 ;;
  83
  84     --loadonly)
  85       options="$options $1"
  86       shift 1 ;;
  87
  88     --dontforce)
  89       scriptname=""
  90       shift 1 ;;
  91
  92     -r|--runner|-t|--test)
  93       options="$options $1 $2"
  94       shift 2 ;;
  95
  96     --)
  97       break ;;
  98
  99     -*)
 100       echo "$0: Invalid option: $1" >&2
 101       exit 1 ;;
 102
 103     *)
 104       break ;;
 105   esac
 106 done
 107
 108
 109 exec "$interpreter" - "$scriptname" $options "$@" <<EOT
 110   local scriptname = ...
 111   local argv = { select(2,...) }
 112   if scriptname ~= "" then
 113     local function force(name)
 114       pcall( function() loadfile(name)() end )
 115     end
 116     force( scriptname..".lua" )
 117     force( scriptname.."-console.lua" )
 118   end
 119   require "lunit"
 120   local stats = lunit.main(argv)
 121   if stats.errors > 0 or stats.failed > 0 then
 122     os.exit(1)
 123   end
 124 EOT