simple tests

.idea/misc.xml

@@ -4,6 +4,7 @@
   <component name="CidrRootsConfiguration">
     <excludeRoots>
       <file path="$PROJECT_DIR$/cmake-build-debug" />
+      <file path="$PROJECT_DIR$/cmake-build-release" />
       <file path="$PROJECT_DIR$/cmake-build-relwithdebinfo" />
     </excludeRoots>
   </component>

clitests/fib.psil

@@ -0,0 +1,12 @@
+(define (fib n)
+  (if (> n 0)
+      (if (> n 1)
+          (+ (fib (- n 1))
+             (fib (- n 2)))
+          1)
+      0)
+)
+
+(fib 10)
+(fib 11)
+(fib 12) 

clitests/fib.psil.ex

@@ -0,0 +1,3 @@
+55
+89
+144

clitests/testall.sh

@@ -0,0 +1,31 @@
+#! /bin/bash
+cd "$(dirname "$0")"
+
+FAILED=()
+
+PSIL="../cmake-build-debug/src/psil"
+
+for FILE in *.psil; do
+      echo "TESTING $FILE"
+      $PSIL -f $FILE --repl- > $FILE.res
+      if [ $? -ne 0 ]; then
+          FAILED+=("test-"$FILE)
+          continue
+      fi
+
+      diff -w $FILE.res $FILE.ex
+
+      if [ $? -ne 0 ]; then
+          FAILED+=("test-"$FILE)
+          continue
+      fi
+
+      rm $FILE.res
+done
+
+if [ ${#FAILED[@]} -eq 0 ]; then
+    echo "ALL TESTS PASSED"
+else
+    echo "FAILED: ${FAILED[@]}"
+    exit -1
+fi

src/vm/src/VM.cpp

@@ -149,8 +149,8 @@ void VM::step() {
         Logger::log(
                 "Compiler",
                 [&](std::ostream &out) {
-                    out << "Compiled (" << code << ")\n";
-                    out << "to\n";
+                    out << "Compiled (" << code << ")";
+                    out << " to ";
                     out << "(" << newc << ")";
                 },
                 Logger::DEBUG);