listener.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; ID:       $Id$
   6 ;;;; Purpose:  Listener functions for XLUnit
   7 ;;;;
   8 ;;;; *************************************************************************
   9
  10 (in-package #:xlunit)
  11
  12 (defclass test-listener ()
  13   ())
  14
  15 (defmethod start-test ((obj test-listener) tcase)
  16   (declare (ignore tcase)))
  17
  18 (defmethod end-test ((obj test-listener) tcase)
  19   (declare (ignore tcase)))
  20
  21