Let working, unit tested.

This commit is contained in:
Simon Brooke 2021-09-08 15:01:48 +01:00
parent 3abebe937c
commit 78d2395d60
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
4 changed files with 78 additions and 5 deletions

24
unit-tests/let.sh Executable file
View file

@ -0,0 +1,24 @@
#!/bin/bash
expected='11'
actual=`echo "(let ((a . 5)(b . 6)) (+ a b))" | target/psse | tail -1`
if [ "${expected}" = "${actual}" ]
then
echo "OK"
else
echo "Fail: expected '$expected', got '$actual'"
exit 1
fi
expected='1'
actual=`echo "(let ((a . 5)(b . 6)) (+ a b) (- b a))" | target/psse | tail -1`
if [ "${expected}" = "${actual}" ]
then
echo "OK"
exit 0
else
echo "Fail: expected '$expected', got '$actual'"
exit 1
fi