Simon Brooke
222368bf64
the project root directory, which is still to be fixed; and *I think* known-failing tests which I don't intend to fix immediately should be marked in some way.
95 lines
No EOL
2.5 KiB
Bash
Executable file
95 lines
No EOL
2.5 KiB
Bash
Executable file
#!/bin/bash
|
|
|
|
result=0
|
|
|
|
#####################################################################
|
|
# Create an empty map using map notation
|
|
expected='{}'
|
|
actual=`echo "$expected" | target/psse 2>/dev/null | tail -1`
|
|
|
|
echo -n "$0: Empty map using compact map notation... "
|
|
if [ "${expected}" = "${actual}" ]
|
|
then
|
|
echo "OK"
|
|
else
|
|
echo "Fail: expected '${expected}', got '${actual}'"
|
|
result=1
|
|
fi
|
|
|
|
#####################################################################
|
|
# Create an empty map using make-map
|
|
expected='{}'
|
|
actual=`echo "(hashmap)" | target/psse 2>/dev/null | tail -1`
|
|
|
|
echo -n "Empty map using (make-map): "
|
|
if [ "${expected}" = "${actual}" ]
|
|
then
|
|
echo "OK"
|
|
else
|
|
echo "Fail: expected '${expected}', got '${actual}'"
|
|
result=1
|
|
fi
|
|
|
|
#####################################################################
|
|
# Create a map using map notation: order of keys in output is not
|
|
# significant at this stage, but in the long term should be sorted
|
|
# alphanumerically
|
|
expected='{:one 1, :two 2, :three 3}'
|
|
actual=`echo "{:one 1 :two 2 :three 3}" | target/psse 2>/dev/null | tail -1`
|
|
|
|
echo -n "$0: Map using map notation... "
|
|
if [ "${expected}" = "${actual}" ]
|
|
then
|
|
echo "OK"
|
|
else
|
|
echo "Fail: expected '${expected}', got '${actual}'"
|
|
result=1
|
|
fi
|
|
|
|
#####################################################################
|
|
# Create a map using make-map: order of keys in output is not
|
|
# significant at this stage, but in the long term should be sorted
|
|
# alphanumerically
|
|
expected='{:one 1, :two 2, :three 3}'
|
|
actual=`echo "(hashmap nil nil '((:one . 1)(:two . 2)(:three . 3)))" |\
|
|
target/psse 2>/dev/null | tail -1`
|
|
|
|
echo -n "$0: Map using (hashmap) with arguments... "
|
|
if [ "${expected}" = "${actual}" ]
|
|
then
|
|
echo "OK"
|
|
else
|
|
echo "Fail: expected '${expected}', got '${actual}'"
|
|
result=1
|
|
fi
|
|
|
|
#####################################################################
|
|
# Keyword in function position
|
|
expected='2'
|
|
actual=`echo "(:two {:one 1 :two 2 :three 3})" | target/psse 2>/dev/null | tail -1`
|
|
|
|
echo -n "$0: Keyword in function position... "
|
|
if [ "${expected}" = "${actual}" ]
|
|
then
|
|
echo "OK"
|
|
else
|
|
echo "Fail: expected '${expected}', got '${actual}'"
|
|
result=1
|
|
fi
|
|
|
|
|
|
#####################################################################
|
|
# Map in function position
|
|
expected='2'
|
|
actual=`echo "({:one 1 :two 2 :three 3} :two)" | target/psse 2>/dev/null | tail -1`
|
|
|
|
echo -n "$0: Map in function position... "
|
|
if [ "${expected}" = "${actual}" ]
|
|
then
|
|
echo "OK"
|
|
else
|
|
echo "Fail: expected '${expected}', got '${actual}'"
|
|
result=1
|
|
fi
|
|
|
|
exit ${result} |