;;; 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 ()
  (let ((fe (scf: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))