| Paste number 24263: | with-gensyms dosent like me |
| Pasted by: | pundai |
| 2 years, 4 months ago | |
| None | |
| Paste contents: |
| ;;; With the definition of with-gensyms below, the code ;;; works as expected. Without it, i.e. using with-gensyms ;;; apparently defined by common lisp somewhere, I get: ;;; *** - EVAL: variable RESULT has no value ;;; what? (defmacro with-gensyms ((&rest names) &body body) `(let ,(loop for n in names collect `(,n (gensym))) ,@body)) (defvar *test-name* nil) (defmacro deftest (name parameters &body body) "Define a test function. Within a test function we can call other test functions or use 'check' to run individual test cases." `(defun ,name ,parameters (let ((*test-name* (append *test-name* (list ',name)))) ,@body))) (defmacro check (&body forms) "Run each expression in 'forms' as a test case." `(combine-results ,@(loop for f in forms collect `(report-result ,f ',f)))) (defmacro combine-results (&body forms) "Combine the results (as booleans) of evaluating 'forms' in order." (with-gensyms (result) `(let ((,result t)) ,@(loop for f in forms collect `(unless ,f (setf ,result nil))) ,result))) (defun report-result (result form) "Report the results of a single test case. Called by 'check'." (format t "~:[FAIL~;pass~] ... ~a: ~a~%" result *test-name* form) result) (deftest test-+ () (check (= (+ 1 2) 3))) (test-+) |
This paste has no annotations.