From 6f93968e4b6b2d2117722789f266890ff9b2cb5e Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Sun, 21 Apr 2024 09:13:59 +0200
Subject: [PATCH] split up test.run function: allow for multiple test functions

---
 forge/forge.lisp     |  3 +--
 test/test-forge.lisp | 11 +++++++----
 testing.lisp         |  1 +
 3 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/forge/forge.lisp b/forge/forge.lisp
index 7412df6..e2aa204 100644
--- a/forge/forge.lisp
+++ b/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)
 
diff --git a/test/test-forge.lisp b/test/test-forge.lisp
index 38c3496..b693e87 100644
--- a/test/test-forge.lisp
+++ b/test/test-forge.lisp
@@ -13,8 +13,11 @@
 (defun run ()
   (let ((fe (scf:new-forge-env))
 		(tst (sct:test-suite)))
+    (test-exec tst fe)
+    ;(format t "~%fe ~a" fe)
+    (sct:result tst)))
+
+(defun test-exec (tst fe)
    (scf:exec fe '(4 2 add))
-   (sct:assert-eq tst (car (scf:data-stack fe)) 6)
-   ;(format t "~%fe ~a" fe)
-   (sct:result tst)
-  ))
+   (sct:assert-eq tst (car (scf:data-stack fe)) 6))
+
diff --git a/testing.lisp b/testing.lisp
index a3e7104..9f3a8b4 100644
--- a/testing.lisp
+++ b/testing.lisp
@@ -16,3 +16,4 @@
 
 (defmacro result (tst) 
   `(elt ,tst 0))
+