diff --git a/unit-tests/eval-integer.sh b/unit-tests/eval-integer.sh new file mode 100644 index 0000000..addc133 --- /dev/null +++ b/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 diff --git a/unit-tests/eval-quote-sexpr.sh b/unit-tests/eval-quote-sexpr.sh new file mode 100644 index 0000000..eea16ec --- /dev/null +++ b/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 diff --git a/unit-tests/eval-quote-symbol.sh b/unit-tests/eval-quote-symbol.sh new file mode 100644 index 0000000..5eca83d --- /dev/null +++ b/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 diff --git a/unit-tests/eval-real.sh b/unit-tests/eval-real.sh new file mode 100644 index 0000000..39de72f --- /dev/null +++ b/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 diff --git a/unit-tests/eval-string.sh b/unit-tests/eval-string.sh new file mode 100644 index 0000000..4b8dc8e --- /dev/null +++ b/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