(format t "Test `~S' passed unexpectedly!~%" ',condition))
(incf *unexpected-passes*))
(t
- (format t "Test `~S' failed failed expectedly.~%" ',condition)
+ (format t "Test `~S' failed expectedly.~%" ',condition)
(incf *expected-failures*)))
(incf *total-tests*)))
+(defmacro test-equal (form value)
+ `(test (equal ,form, value)))
+
+
(format t "Running tests...~%~%")
(setq *timestamp* (get-internal-real-time))