(defun do-setup (form)
(let ((*test* nil)
- (*do-tests-when-defined* nil)
- (rt::*entries* (list nil))
- (rt::*in-test* nil)
- (rt::*debug* t)
- result)
+ (*do-tests-when-defined* nil)
+ (rt::*entries* (list nil))
+ (rt::*in-test* nil)
+ (rt::*debug* t)
+ result)
(deftest t1 4 4)
(deftest (t 2) 4 3)
(values-list
(cons (normalize
- (with-output-to-string (*standard-output*)
- (setq result
- (multiple-value-list
- (catch 'rt::*debug* (eval form))))))
- result))))
+ (with-output-to-string (*standard-output*)
+ (setq result
+ (multiple-value-list
+ (catch 'rt::*debug* (eval form))))))
+ result))))
(defun normalize (string)
(with-input-from-string (s string)
(defun get-file-name ()
(loop (if *file-name* (return *file-name*))
- (format *error-output*
- "~%Type a string representing naming of a scratch disk file: ")
- (setq *file-name* (read))
- (if (not (stringp *file-name*)) (setq *file-name* nil))))
+ (format *error-output*
+ "~%Type a string representing naming of a scratch disk file: ")
+ (setq *file-name* (read))
+ (if (not (stringp *file-name*)) (setq *file-name* nil))))
(get-file-name)
(defun get-file-output (f)
(prog1 (with-open-file (in f)
- (normalize-stream in))
- (delete-file f)))
+ (normalize-stream in))
+ (delete-file f)))
(defun normalize-stream (s)
(let ((l nil))
(loop (push (read-line s nil s) l)
- (when (eq (car l) s)
- (setq l (nreverse (cdr l)))
- (return nil)))
+ (when (eq (car l) s)
+ (setq l (nreverse (cdr l)))
+ (return nil)))
(delete "" l :test #'equal)))
(rem-all-tests)
(deftest get-test-4
(setup (deftest t3 1 1) (get-test))
() (t3 1 1))
-(deftest get-test-5
+(deftest get-test-5
(setup (get-test 't0))
("No test with name T0.") nil)
(setup (values (rem-test '(t 2)) (pending-tests)))
() (t 2) (t1))
(deftest rem-test-3
- (setup (let ((*test* '(t 2))) (rem-test)) (pending-tests))
+ (setup (let ((*test* '(t 2))) (rem-test)) (pending-tests))
() (t1))
(deftest rem-test-4
(setup (values (rem-test 't0) (pending-tests)))
() nil nil)
(deftest rem-all-tests-2
(setup (rem-all-tests) (rem-all-tests) (pending-tests))
- () nil)
+ () nil)
(deftest do-tests-1
(setup (let ((*print-case* :downcase))
- (values (do-tests) (continue-testing) (do-tests))))
+ (values (do-tests) (continue-testing) (do-tests))))
("Doing 2 pending tests of 2 tests total."
" T1"
"Test (T 2) failed"
(deftest do-tests-2
(setup (rem-test '(t 2))
- (deftest (t 2) 3 3)
- (values (do-tests) (continue-testing) (do-tests)))
+ (deftest (t 2) 3 3)
+ (values (do-tests) (continue-testing) (do-tests)))
("Doing 2 pending tests of 2 tests total."
" T1 (T 2)"
"No tests failed."