Fixed unit tests which were failing because of the change in formatting integers
This commit is contained in:
parent
6d2cf313cb
commit
87007362f3
|
@ -1,6 +1,6 @@
|
||||||
#!/bin/bash
|
#!/bin/bash
|
||||||
|
|
||||||
expected='(1 2 3 ("Fred") nil 77354)'
|
expected='(1 2 3 ("Fred") nil 77,354)'
|
||||||
actual=`echo "'(1 2 3 (\"Fred\") () 77354)" | target/psse | tail -1`
|
actual=`echo "'(1 2 3 (\"Fred\") () 77354)" | target/psse | tail -1`
|
||||||
|
|
||||||
if [ "${expected}" = "${actual}" ]
|
if [ "${expected}" = "${actual}" ]
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
#!/bin/bash
|
#!/bin/bash
|
||||||
|
|
||||||
expected='nil 3628800'
|
expected='nil 3,628,800'
|
||||||
output=`target/psse 2>/dev/null <<EOF
|
output=`target/psse 2>/dev/null <<EOF
|
||||||
(progn
|
(progn
|
||||||
(set! fact
|
(set! fact
|
||||||
|
|
|
@ -11,7 +11,7 @@ else
|
||||||
exit 1
|
exit 1
|
||||||
fi
|
fi
|
||||||
|
|
||||||
expected='(1024 512 256 128 64 32 16 8 4 2)'
|
expected='(1,024 512 256 128 64 32 16 8 4 2)'
|
||||||
actual=`echo "(reverse '(2 4 8 16 32 64 128 256 512 1024))" | target/psse | tail -1`
|
actual=`echo "(reverse '(2 4 8 16 32 64 128 256 512 1024))" | target/psse | tail -1`
|
||||||
|
|
||||||
if [ "${expected}" = "${actual}" ]
|
if [ "${expected}" = "${actual}" ]
|
||||||
|
|
Loading…
Reference in a new issue