Redone fixes to unit tests which I know I did this afternoon, so I've messed

up git somehow.

unit-tests/empty-list.sh

@@ -7,7 +7,7 @@
 #
 
 expected=nil
-actual=`echo "'()" | target/psse | tail -1`
+actual=`echo "'()" | target/psse 2>/dev/null | tail -1`
 
 if [ "${expected}" = "${actual}" ]
 then

unit-tests/empty-string.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 expected="\"\""
-actual=`echo '""' | target/psse | tail -1`
+actual=`echo '""' | target/psse 2>/dev/null | tail -1`
 
 if [ "$expected" = "$actual" ]
 then

unit-tests/eval-integer.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 expected='5'
-actual=`echo "(eval 5)" | target/psse | tail -1`
+actual=`echo "(eval 5)" | target/psse 2>/dev/null | tail -1`
 
 if [ "${expected}" = "${actual}" ]
 then

unit-tests/eval-quote-sexpr.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 expected='5'
-actual=`echo "(eval '(add 2 3))" | target/psse | tail -1`
+actual=`echo "(eval '(add 2 3))" | target/psse 2>/dev/null | tail -1`
 
 if [ "${expected}" = "${actual}" ]
 then
@@ -10,3 +10,4 @@ else
     echo "Fail: expected '${expected}', got '${actual}'"
     exit 1
 fi
+ 2>/dev/null

unit-tests/eval-quote-symbol.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 expected='<Special form: ((:primitive . t) (:name . cond))>'
-actual=`echo "(eval 'cond)" | target/psse | tail -1`
+actual=`echo "(eval 'cond)" | target/psse 2>/dev/null | tail -1`
 
 if [ "${expected}" = "${actual}" ]
 then

unit-tests/eval-string.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 expected='"5"'
-actual=`echo '(eval "5")' | target/psse | tail -1`
+actual=`echo '(eval "5")' | target/psse 2>/dev/null | tail -1`
 
 if [ "${expected}" = "${actual}" ]
 then

unit-tests/fred.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 expected='"Fred"'
-actual=`echo ${expected} | target/psse | tail -1`
+actual=`echo ${expected} | target/psse 2>/dev/null | tail -1`
 
 if [ "${expected}" = "${actual}" ]
 then

unit-tests/integer.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 expected='354'
-actual=`echo ${expected} | target/psse | tail -1`
+actual=`echo ${expected} | target/psse 2>/dev/null | tail -1`
 
 if [ "${expected}" = "${actual}" ]
 then

unit-tests/interpreter.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 expected='6'
-actual=`echo "(apply '(lambda (x y z) (/ (* y z) x)) '(2 3 4))" | target/psse | tail -1`
+actual=`echo "(apply '(lambda (x y z) (/ (* y z) x)) '(2 3 4))" | target/psse 2>/dev/null | tail -1`
 
 if [ "${expected}" = "${actual}" ]
 then

unit-tests/nlambda.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 expected='a'
-actual=`echo "((nlambda (x) x) a)" | target/psse | tail -1`
+actual=`echo "((nlambda (x) x) a)" | target/psse 2>/dev/null | tail -1`
 
 if [ "${expected}" = "${actual}" ]
 then

unit-tests/path-notation.sh

@@ -5,10 +5,9 @@ result=0
 #####################################################################
 # Create a path from root using compact path notation
 echo -n "$0: Create a path from root using compact path notation... "
-expected='(-> oblist :users :simon :functions (quote assoc))'
+expected='(-> (oblist) :users :simon :functions (quote assoc))'
 actual=`echo "'/:users:simon:functions/assoc" | target/psse 2>&1 | tail -1`
 
-echo -n "Path from root (oblist) using compact notation: "
 if [ "${expected}" = "${actual}" ]
 then
     echo "OK"