PROtocol and TESTcase manager
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

32 lines
791 B

;;;; test/vars.lisp
(in-package #:protest)
(defvar *test-packages* (make-hash-table))
(defvar *current-test* nil)
(defvar *current-step* nil)
(defvar *current-step-data* nil)
(defparameter *test-case-not-found*
"Test case named ~A was not found.
Use DEFINE-TEST-CASE first.")
(defparameter *test-package-not-found*
"The test package for package ~A was not set.
Use DEFINE-TEST-PACKAGE first.")
(defparameter *failure-before*
"Test failure in test ~A, before step 1:~%~A")
(defparameter *failure-after*
"Test failure in test ~A, phase ~A, after step ~D:~%~A~%~A")
(defparameter *failure-during*
"Test failure in test ~A, phase ~A, step ~D:~%~A~%~A")
(defparameter *failure-internal*
"*CURRENT-TEST-STEP* has an illegal value: ~S
This is an internal CL-PROTEST error.")