Adds the exit primitive and directly introduces it into the primitive test runner

Author: codeZeilen

ports-js/scheme.js

@@ -289,10 +289,11 @@ function addGlobals(env) {
   env.set(Sym('boolean?'), x => typeof x === 'boolean');
   env.set(Sym('pair?'), isPair);
 
-
+  // System operations
   env.set(Sym('display'), (...args) => {
     process.stdout.write(args.map((ea) => asString(ea)).join(''));
   });
+  env.set(Sym('exit'), (code = 0) => process.exit(code));
 
   return env;
 }

ports-py/lispy.py

@@ -11,6 +11,7 @@
 import threading
 from functools import reduce
 from fractions import Fraction
+import sys
 
 class Symbol(str): pass
 
@@ -264,7 +265,8 @@ def add_globals(self):
      'open-output-file':lambda f:open(f,'w'), 'close-output-port':lambda p: p.close(),
      'eof-object?':lambda x:x is eof_object, 'read-char':readchar,
      'read':read, 'write':lambda x,port=sys.stdout:port.write(to_string(x)),
-     'display':lambda x:print(x if isa(x,str) else to_string(x), end="",flush=True)})
+     'display':lambda x:print(x if isa(x,str) else to_string(x), end="",flush=True),
+     'exit':lambda code: sys.exit(code)})
     return self
 
 isa = isinstance

ports/ports.scm

@@ -195,15 +195,14 @@
     (define (data-test-data data-test) (list-ref data-test 4))
 
     (define (test-run-with-result test) 
-    (with-exception-handler 
-        (lambda (e) 
-            (if (is-assertion-error? e)
-                (test-result test 'failure e)
-                (test-result test 'error e))
-            (raise e))
-        (lambda () 
-            (test-run test)
-            (test-result test 'success '()))))
+        (with-exception-handler 
+            (lambda (e) 
+                (if (is-assertion-error? e)
+                    (test-result test 'failure e)
+                    (test-result test 'error e)))
+            (lambda () 
+                (test-run test)
+                (test-result test 'success '()))))
 
     ; Setup/tearDown 
     ;
@@ -253,11 +252,17 @@
             ((tests (capability-all-tests root-capability)))
             (let 
                 ((selected-tests (select-tests tests only-tests only-capabilities exclude-tests exclude-capabilities)))
-                (display-test-results 
+                (let 
+                    ((test-results 
                     (map  
                         (lambda (test)
                             (let ((test-result (test-run-with-result test)))
                                 (display (short-hand-test-result test-result))
                                 test-result))
-                        selected-tests)))))
+                        selected-tests)))
+                    (display-test-results test-results)
+                    (if (any? 
+                            (lambda (test-result) (or (is-failure? test-result) (is-error? test-result))) 
+                            test-results)
+                        (exit 1))))))
 )

ports/spec.md

@@ -41,12 +41,13 @@ PorTS does not support hygenic macros, as we expect macros to be almost exclusiv
 - null?
 - symbol?
 - boolean?
-- display
+- display (Should not print newline after the string)
 - not
 - +, -, *, /
 - >, <, >=, <=, =
 - abs
 - length
+- exit 
 <!-- - apply? -->
 
 <!--