21 lines
473 B
Common Lisp
21 lines
473 B
Common Lisp
;;; 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))
|
|
(sct:assert-eql tst (car (scf:data-stack fe)) 6)
|
|
(format t "~%tst ~a" tst)
|
|
(sct:result tst)
|
|
))
|