Append works; mapcar doesn't; loop isn't even written.

This commit is contained in:
Simon Brooke 2021-08-23 12:35:05 +01:00
parent c63c262b74
commit 6771d6494c
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
10 changed files with 213 additions and 32 deletions

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

@ -0,0 +1,24 @@
#!/bin/bash
expected='(a b c d e f)'
actual=`echo "(append '(a b c) '(d e f))" | target/psse | tail -1`
if [ "${expected}" = "${actual}" ]
then
echo "OK"
else
echo "Fail: expected '${expected}', got '${actual}'"
exit 1
fi
expected='"hellodere"'
actual=`echo '(append "hello" "dere")' | target/psse | tail -1`
if [ "${expected}" = "${actual}" ]
then
echo "OK"
else
echo "Fail: expected '${expected}', got '${actual}'"
exit 1
fi