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
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.")
|
|
|