klisp

commit 3bd353ef9eedff9c6ad5614d036db34f2629bf57
parent 5dbb785c88a1d106ffa8e5649a41fec153535cb4
Author: Oto Havle <havleoto@gmail.com>
Date:   Mon, 12 Dec 2011 23:48:58 +0100

updated test-interpreter.sh, KLISP_INIT must not be empty string

Diffstat:
M
src/tests/test-interpreter.sh
 | 
28
+++++++++++++++++++++++++++-

1 file changed, 27 insertions(+), 1 deletion(-)
diff --git a/src/tests/test-interpreter.sh b/src/tests/test-interpreter.sh
@@ -112,6 +112,20 @@ check_oe()
     check_helper "$expected_stdout" "$expected_stderr" 0 "$o" "$e" "$s" "$*"
 }
 
+check_oes()
+{
+    expected_stdout="$1"
+    expected_stderr="$2"
+    expected_exitstatus="$3"
+    shift
+    shift
+    shift
+    o=`"$@" 2> $TMPERR`
+    s=$?
+    e=`cat $TMPERR`
+    check_helper "$expected_stdout" "$expected_stderr" "$expected_exitstatus" "$o" "$e" "$s" "$*"
+}
+
 report()
 {
     echo "Tests Passed: $npass"
@@ -143,6 +157,8 @@ check_oi '2' '(display (+ 1 1))' $KLISP -
 # option: -e
 
 check_o 'abcdef' $KLISP '-e (display "abc")' '-e' '(display "def")'
+check_oes '' '/.*No object found in string.*/' 1 $KLISP -e ''
+check_oes '' '/.*More than one object found in string.*/' 1 $KLISP -e '1 1'
 
 # option: -i
 # The interpreter always show name and version
@@ -180,7 +196,17 @@ check_os '' 1 $KLISP -e '(exit 1)' -e '(exit 0)'
 
 export KLISP_INIT='(display "init...")'
 check_o 'init...main' $KLISP -e '(display "main")'
-export KLISP_INIT=
+
+# it is an error to put empty string in KLISP_INIT,
+# even with interactive mode
+
+export KLISP_INIT=''
+check_oes '' '/.*No object found in string.*/' 1 $KLISP
+check_oes '' '/.*No object found in string.*/' 1 $KLISP -i
+
+# cleanup after tests with KLISP_INIT
+
+unset KLISP_INIT
 
 # other environment variables