;;; cl-scopes/test/test-forge

;;;; testing facility for scopes/forge

(defpackage :scopes/test-forge
  (:use :common-lisp)
  (:local-nicknames (:scf :scopes/forge) (:sct :scopes/testing))
  (:export #:run))

(in-package :scopes/test-forge)

(defun run ()
  (scf:hello)
  (let ((fe (scf:new-forge-env))
		(tst (sct:test-suite)))
   (scf:exec '(fe 4 2 scf:add))
  ))