diff --git a/unit-tests/empty-list.sh b/unit-tests/empty-list.sh index 8f0f702..2588202 100755 --- a/unit-tests/empty-list.sh +++ b/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 diff --git a/unit-tests/empty-string.sh b/unit-tests/empty-string.sh index a1e5baa..bdd7dfd 100755 --- a/unit-tests/empty-string.sh +++ b/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 diff --git a/unit-tests/eval-integer.sh b/unit-tests/eval-integer.sh index 1aadb39..6e93628 100755 --- a/unit-tests/eval-integer.sh +++ b/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 diff --git a/unit-tests/eval-quote-sexpr.sh b/unit-tests/eval-quote-sexpr.sh index d83bbe8..9b3099d 100755 --- a/unit-tests/eval-quote-sexpr.sh +++ b/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 \ No newline at end of file diff --git a/unit-tests/eval-quote-symbol.sh b/unit-tests/eval-quote-symbol.sh index e977461..1f25241 100755 --- a/unit-tests/eval-quote-symbol.sh +++ b/unit-tests/eval-quote-symbol.sh @@ -1,7 +1,7 @@ #!/bin/bash expected='' -actual=`echo "(eval 'cond)" | target/psse | tail -1` +actual=`echo "(eval 'cond)" | target/psse 2>/dev/null | tail -1` if [ "${expected}" = "${actual}" ] then diff --git a/unit-tests/eval-real.sh b/unit-tests/eval-real.sh index 3aa16d7..965d445 100755 --- a/unit-tests/eval-real.sh +++ b/unit-tests/eval-real.sh @@ -3,7 +3,7 @@ # for this test, trailing zeros can be ignored expected='5.05' actual=`echo "(eval 5.05)" |\ - target/psse 2> /dev/null |\ + target/psse 2>/dev/null |\ sed 's/0*$//' |\ tail -1` diff --git a/unit-tests/eval-string.sh b/unit-tests/eval-string.sh index 90f6f2c..95b987d 100755 --- a/unit-tests/eval-string.sh +++ b/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 diff --git a/unit-tests/fred.sh b/unit-tests/fred.sh index 8e3d513..82691b6 100755 --- a/unit-tests/fred.sh +++ b/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 diff --git a/unit-tests/integer.sh b/unit-tests/integer.sh index 18ae66e..3a1e542 100755 --- a/unit-tests/integer.sh +++ b/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 diff --git a/unit-tests/interpreter.sh b/unit-tests/interpreter.sh index 6f23fc9..a9c95bc 100755 --- a/unit-tests/interpreter.sh +++ b/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 diff --git a/unit-tests/nlambda.sh b/unit-tests/nlambda.sh index 68f0447..117c633 100755 --- a/unit-tests/nlambda.sh +++ b/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 diff --git a/unit-tests/path-notation.sh b/unit-tests/path-notation.sh index cbb9dea..3ba2e99 100755 --- a/unit-tests/path-notation.sh +++ b/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"