;-*- Mode:     Lisp -*-
  Author :     
  Created :   Sun May 15 12:56:29 2005
;;;; Contains: Tests of DRIBBLE



;;; Error tests only -- cannot depend on using it in a program
;;; See the CLHS DRIBBLE and issue DRIBBLE-TECHNIQUE for an explanation

(deftest dribble.error.1
  (signals-error (dribble "dribble.out" nil) program-error)
  t)


;;; FIXME -- more error tests here

-*- Mode:     Lisp -*-
 Contains: Tests of DRIBBLE
 Error tests only -- cannot depend on using it in a program
 See the CLHS DRIBBLE and issue DRIBBLE-TECHNIQUE for an explanation
 FIXME -- more error tests here
  Author :     
  Created :   Sun May 15 12:56:29 2005




(deftest dribble.error.1
  (signals-error (dribble "dribble.out" nil) program-error)
  t)


