From 9fe35450df4f37777bc3b7656b5944e5005d8ea7 Mon Sep 17 00:00:00 2001
From: = <=>
Date: Sat, 9 May 2020 19:58:28 +0100
Subject: [PATCH] Begin simple testing script

---
 src/tests.sh | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100755 src/tests.sh

diff --git a/src/tests.sh b/src/tests.sh
new file mode 100755
index 0000000..861a6ee
--- /dev/null
+++ b/src/tests.sh
@@ -0,0 +1,45 @@
+#!/bin/bash
+PASSES=0
+FAILS=0
+
+pass() {
+        echo "$1 test PASSED"
+        ((PASSES++))
+}
+
+fail() {
+        echo "$1 test FAILED"
+        ((FAILS++))
+}
+
+check() {
+        local output=$(./pebblisp "$2")
+        if [ "$output" == "$3" ]; then
+                pass $1
+        else
+                fail $1
+        fi
+}
+
+check "Addition" "(+ 1093 102852)" "103945"
+check "Multiply" "(* 1000 10000)" "10000000"
+check "Division" "(/ 6418425 65)" "98745"
+echo ""
+check "ChainAdd" "(+ 3917 17304 1293844 400 100000)" "1415465"
+check "ChainMul" "(* 8263 23 123)" "23376027"
+check "ChainDiv" "(/ 1493856 741 96 7)" "3"
+echo ""
+check "GratrThn" "(> 23847123 19375933)" "T"
+check "LessThan" "(< 23847123 19375933)" "F"
+check "Equality" "(= 987654321 987654321 )" "T"
+echo ""
+check "IfReturn" "(if (T) 123456789 987654321)" "123456789"
+check "IfRetTwo" "(if F 123456789 987654321)" "987654321"
+check "IfRetTwo" "(if () 123456789 987654321)" "987654321"
+# check "IfRetTwo" "(if (()) 123456789 987654321)" "123456789"
+echo ""
+check "RegLists" "(1 2 3 4 5)" "( 1 2 3 4 5 )"
+
+echo ""
+echo "$PASSES Tests Passed"
+echo "$FAILS Tests Failed"