From 15ded8c8216a0473b93802ab20a3cd57ba195fb4 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Fri, 7 Dec 2018 06:32:51 +0000
Subject: [PATCH] Several new unit tests

---
 unit-tests/eval-integer.sh      | 12 ++++++++++++
 unit-tests/eval-quote-sexpr.sh  | 12 ++++++++++++
 unit-tests/eval-quote-symbol.sh | 12 ++++++++++++
 unit-tests/eval-real.sh         | 17 +++++++++++++++++
 unit-tests/eval-string.sh       | 12 ++++++++++++
 5 files changed, 65 insertions(+)
 create mode 100644 unit-tests/eval-integer.sh
 create mode 100644 unit-tests/eval-quote-sexpr.sh
 create mode 100644 unit-tests/eval-quote-symbol.sh
 create mode 100644 unit-tests/eval-real.sh
 create mode 100644 unit-tests/eval-string.sh

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