split up test.run function: allow for multiple test functions

forge/forge.lisp

@@ -4,8 +4,7 @@
 
 (defpackage :scopes/forge
   (:use :common-lisp)
-  (:export #:new-forge-env #:data-stack #:exec 
-		   #:add))
+  (:export #:new-forge-env #:data-stack #:exec))
 
 (in-package :scopes/forge)
 

test/test-forge.lisp

@@ -13,8 +13,11 @@
 (defun run ()
   (let ((fe (scf:new-forge-env))
 		(tst (sct:test-suite)))
-   (scf:exec fe '(4 2 add))
-   (sct:assert-eq tst (car (scf:data-stack fe)) 6)
+    (test-exec tst fe)
     ;(format t "~%fe ~a" fe)
-   (sct:result tst)
-  ))
+    (sct:result tst)))
+
+(defun test-exec (tst fe)
+   (scf:exec fe '(4 2 add))
+   (sct:assert-eq tst (car (scf:data-stack fe)) 6))
+

testing.lisp

@@ -16,3 +16,4 @@
 
 (defmacro result (tst) 
   `(elt ,tst 0))
+