Browse Source

fix return values

master
Michał phoe Herda 5 years ago
parent
commit
cdb4b94fce
  1. 1
      README.md
  2. 6
      test/readtable.lisp
  3. 4
      test/vars.lisp
  4. 1
      util/package.lisp

1
README.md

@ -7,6 +7,7 @@ @@ -7,6 +7,7 @@
This is heavily WIP.
## TODO
* Implement :DEPENDENCIES in DEFINE-PROTOCOL.
* Take care of STYLE-WARNINGs when defining :FUNCTIONs.
* Ordinary functions are no longer creatable here - :GENERIC is removed and
instead, :FUNCTION creates a generic function.

6
test/readtable.lisp

@ -10,9 +10,9 @@ @@ -10,9 +10,9 @@
"The #? macro must be used inside DEFINE-TEST.")
(assert (find ,arg *current-step-data* :key #'car) ()
"Step ~D is not defined in the step data." ,arg)
(setf *current-step* ,arg)
,form
(setf *current-step* ,(+ arg 1/2)))))
(prog2 (setf *current-step* ,arg)
,form
(setf *current-step* ,(+ arg 1/2))))))
(defreadtable protest
(:merge :standard)

4
test/vars.lisp

@ -22,10 +22,10 @@ Use DEFINE-TEST-PACKAGE first.") @@ -22,10 +22,10 @@ Use DEFINE-TEST-PACKAGE first.")
"Test failure in test ~A, before step 1:~%~A")
(defparameter *failure-after*
"Test failure in test ~A, phase ~A, after step ~D: ~S~%~A")
"Test failure in test ~A, phase ~A, after step ~D:~%~A~%~A")
(defparameter *failure-during*
"Test failure in test ~A, phase ~A, step ~D: ~S~%~A")
"Test failure in test ~A, phase ~A, step ~D:~%~A~%~A")
(defparameter *failure-internal*
"*CURRENT-TEST-STEP* has an illegal value: ~S

1
util/package.lisp

@ -14,6 +14,7 @@ @@ -14,6 +14,7 @@
#:define-test-case
#:define-test-package
#:define-test
#:protest
#:*protocols*
#:*test-cases*))

Loading…
Cancel
Save