+(defmethod set-up ((self was-run))
+ (setf (ws-log self) "setup "))
+
+(defmethod tear-down ((self was-run))
+ (setf (ws-log self)
+ (concatenate 'string (ws-log self) "teardown ")))
+
+(def-test-method test-method ((self was-run) :run nil)
+ (setf (ws-log self)
+ (concatenate 'string (ws-log self) "test-method ")))
+
+(def-test-method test-broken-method ((self was-run) :run nil)
+ (assert-equal pi (/ 22 7)))
+
+(def-test-method test-not-eql ((self was-run) :run nil)
+ (assert-not-eql (cons t t) (cons t t)))
+
+(def-test-method test-eql ((self was-run) :run nil)
+ (let ((obj (cons t t)))
+ (assert-eql obj obj)))
+
+(def-test-method test-error-method ((self was-run) :run nil)
+ (error "Err"))
+
+(def-test-method test-condition-without-cond ((self was-run) :run nil)
+ (assert-condition 'error (list 'no-error)))
+
+#+ignore
+(def-test-method test-not-condition-with-cond ((self was-run) :run nil)
+ (assert-not-condition 'test-condition
+ (signal 'test-condition)))