Several new unit tests

unit-tests/eval-integer.sh

@@ -0,0 +1,12 @@
+#!/bin/bash
+
+expected='5'
+actual=`echo "(eval 5)" | target/psse 2> /dev/null | head -2 | tail -1`
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+else
+    echo "Fail: expected '${expected}', got '${actual}'"
+    exit 1
+fi

unit-tests/eval-quote-sexpr.sh

@@ -0,0 +1,12 @@
+#!/bin/bash
+
+expected='5'
+actual=`echo "(eval '(add 2 3))" | target/psse 2> /dev/null | head -2 | tail -1`
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+else
+    echo "Fail: expected '${expected}', got '${actual}'"
+    exit 1
+fi

unit-tests/eval-quote-symbol.sh

@@ -0,0 +1,12 @@
+#!/bin/bash
+
+expected='(Special form)'
+actual=`echo "(eval 'cond)" | target/psse 2> /dev/null | head -2 | tail -1`
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+else
+    echo "Fail: expected '${expected}', got '${actual}'"
+    exit 1
+fi

unit-tests/eval-real.sh

@@ -0,0 +1,17 @@
+#!/bin/bash
+
+# for this test, trailing zeros can be ignored
+expected='5.05'
+actual=`echo "(eval 5.05)" |\
+  target/psse 2> /dev/null |\
+  sed 's/0*$//' |\
+  head -2 |\
+  tail -1`
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+else
+    echo "Fail: expected '${expected}', got '${actual}'"
+    exit 1
+fi

unit-tests/eval-string.sh

@@ -0,0 +1,12 @@
+#!/bin/bash
+
+expected='"5"'
+actual=`echo '(eval "5")' | target/psse 2> /dev/null | head -2 | tail -1`
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+else
+    echo "Fail: expected '${expected}', got '${actual}'"
+    exit 1
+fi