r5452: *** empty log message ***

[xlunit.git] / listener.lisp

diff --git a/listener.lisp b/listener.lisp
new file mode 100644 (file)
index 0000000..0586593
--- /dev/null
+++ b/listener.lisp
@@ -0,0 +1,21 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; ID:       $Id: listener.lisp,v 1.1 2003/08/04 16:13:58 kevin Exp $
+;;;; Purpose:  Listener functions for XLUnit
+;;;;
+;;;; *************************************************************************
+
+(in-package #:xlunit)
+
+(defclass test-listener ()
+  ())
+
+(defmethod start-test ((obj test-listener) tcase)
+  (declare (ignore tcase)))
+
+(defmethod end-test ((obj test-listener) tcase)
+  (declare (ignore tcase)))
+
+