suzanne.soy/2010-m1s1-compilation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ajout de deftest-error.

Browse Source
This commit is contained in:
Georges Dupéron 2010-11-07 04:18:49 +01:00
parent baad18a7fa
commit b63aa7c261
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test-unitaire.lisp
View File

@ -76,6 +76,15 @@
(format t "~& comparison : ~w~&" _compare)
nil))))))
(defvar b '(x x))
(defmacro generates-error-p (code)
`(car (handler-case (progn (push 'a b) (cons nil ,code))
(error (e) (cons t e)))))
(defmacro deftest-error (module test &optional (expected t))
`(deftest ,module (generates-error-p ,test)
,expected))
(defmacro deftestvar (module name value)
(if (arrayp value)
`(test-add-variable ',module
@ -140,7 +149,9 @@
;; (deftest (a sub-2) (eq 'x 'x) t)
;; (deftest (b sub-1) (eq 'y 'y) t)
;; (deftest c (eq 'foo 'foo) t)
;; (deftest-error c (if (eq 42 42) (error "foo") (error "bar")))
;; Pour lancer les tests :
;; (run-tests (a sub-1) b t)
;; (run-tests ())
;; (run-tests t)