Added more unit tests.

src/print.c

@@ -29,7 +29,7 @@ void print( FILE* output, struct cons_pointer pointer) {
     }
     fputc( ')', output);
   } else if ( check_tag( pointer, INTEGERTAG)) {
-    fprintf( output, " %ld", cell.payload.integer.value);
+    fprintf( output, "%ld", cell.payload.integer.value);
   } else if ( check_tag( pointer, NILTAG)) {
     fprintf( output, "NIL");
   } else if ( check_tag( pointer, REALTAG)) {

unit-tests.sh

@@ -13,7 +13,7 @@ fail=0
 
 for file in unit-tests/*
 do
-    echo ${file}
+    echo -n "${file} => "
     bash ${file}
 
     if [ $? -eq 0 ]

unit-tests/empty-string.sh

@@ -8,6 +8,6 @@ then
     echo "OK"
     exit 0
 else
-    echo "Expected '$expected', got '$actual'"
+    echo "Fail: expected '$expected', got '$actual'"
     exit 1
 fi

unit-tests/fred.sh

@@ -1,13 +1,13 @@
 #!/bin/bash
 
 expected=\"Fred\"
-actual=`echo '"Fred"' | target/psse 2> /dev/null`
+actual=`echo ${expected} | target/psse 2> /dev/null`
 
-if [ "$expected" = "$actual" ]
+if [ "${expected}" = "{$actual}" ]
 then
     echo "OK"
     exit 0
 else
-    echo "Expected '$expected', got '$actual'"
+    echo "Fail: expected '$expected', got '$actual'"
     exit 1
 fi

unit-tests/integer-allocation.sh

@@ -0,0 +1,14 @@
+#!/bin/bash
+
+value=354
+expected="Integer cell: value ${value}"
+echo ${value} | target/psse 2>&1 | grep "${expected}" > /dev/null
+
+if [ $? -eq 0 ]
+then
+    echo "OK"
+    exit 0
+else
+    echo "Expected '${expected}', not found"
+    exit 1
+fi

unit-tests/integer.sh

@@ -0,0 +1,13 @@
+#!/bin/bash
+
+expected="354"
+actual=`echo ${expected} | target/psse 2> /dev/null`
+
+if [ "${expected}" = "${actual}" ]
+then
+    echo "OK"
+    exit 0
+else
+    echo "Expected '${expected}', got '${actual}'"
+    exit 1
+fi

unit-tests/nil.sh

@@ -8,6 +8,6 @@ then
     echo "OK"
     exit 0
 else
-    echo "Expected '${expected}', got '${actual}'"
+    echo "Fail: expected '${expected}', got '${actual}'"
     exit 1
 fi

unit-tests/simple-list.sh

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

unit-tests/string-with-spaces.sh

@@ -0,0 +1,13 @@
+#!/bin/bash
+
+expected="\"Strings should be able to include spaces (and other stuff)!\""
+actual=`echo ${expected} | target/psse 2> /dev/null`
+
+if [ "${expected}" = "{$actual}" ]
+then
+    echo "OK"
+    exit 0
+else
+    echo "Fail: expected '$expected', got '$actual'"
+    exit 1
+fi