Function: MAKE-SUITE

Documentation

Create a new test suite object.

Source

(defun make-suite (name &key description in)
  "Create a new test suite object."
  (let ((suite (make-instance 'test-suite :name name)))
    (when description
      (setf (description suite) description))
    (loop for i in (ensure-list in)
	  for in-suite = (get-test i)
	  do (progn
	       (when (null in-suite)
		 (cerror "Create a new suite named ~A." "Unknown suite ~A." i)
		 (setf (get-test in-suite) (make-suite i)
		       in-suite (get-test in-suite)))
	       (setf (gethash name (tests in-suite)) suite)))
    (setf (get-test name) suite)
    suite))