Mainly unit tests. 39/45 currently pass; the failures are all in bignum arithmetic and in deallocation.

This commit is contained in:
Simon Brooke 2026-02-03 21:47:25 +00:00
parent e41ae1aa8b
commit e489d02069
21 changed files with 206 additions and 100 deletions

View file

@ -1,5 +1,7 @@
#!/bin/bash
result=0
# We should be able to cons a single character string onto the front of a string
expected='"Test"'
actual=`echo '(cons "T" "est")' | target/psse | tail -1`
@ -9,7 +11,7 @@ then
echo "OK"
else
echo "Fail: expected '${expected}', got '${actual}'"
exit 1
result=1
fi
# But if the first argument has more than one character, we should get a dotted pair
@ -21,5 +23,8 @@ then
echo "OK"
else
echo "Fail: expected '${expected}', got '${actual}'"
exit 1
result=1
fi
exit ${result}