1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; ID: $Id$
;;;; 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)))
|
