;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Fri Feb 28 21:59:57 2003
;;;; Contains: Tests of INVOKE-DEBUGGER



;;; We can't test actual entry into the debugger, but we can test
;;; that the function in *debugger-hook* is properly called.

(deftest invoke-debugger.1
  (block done
   (let (fn (cnd (make-condition 'simple-error)))
       (setq fn #'(lambda (c hook)
                    (return-from done
                      (and (null *debugger-hook*)
                           (eqt hook fn)
                           (eqt cnd c)
                           'good))))
       (let ((*debugger-hook* fn))
         (invoke-debugger cnd)))
   'bad)
  good)

(deftest invoke-debugger.error.1
  (signals-error
   (block done
     (let ((*debugger-hook* #'(lambda (&rest args)
                                (declare (ignore args))
                                (return-from done 'bad))))
       (invoke-debugger)))
   program-error)
  t)

(deftest invoke-debugger.error.2
  (signals-error
   (block done
     (let ((*debugger-hook* #'(lambda (&rest args)
                                (declare (ignore args))
                                (return-from done 'bad))))
       (invoke-debugger (make-condition 'simple-error) nil)))
   program-error)
  t)

;;; If the debugger hook function expects the wrong number
;;; of arguments, a program-error should be thrown in safe code
;;; This error is thrown 'prior to entry to the standard debugger'.

(deftest invoke-debugger.error.3
  (signals-error
   (let ((*debugger-hook* #'(lambda () nil)))
     (invoke-debugger (make-condition 'simple-error)))
   program-error)
  t)

(deftest invoke-debugger.error.4
  (signals-error
   (let ((*debugger-hook* #'(lambda (c) c)))
     (invoke-debugger (make-condition 'simple-error)))
   program-error)
  t)

(deftest invoke-debugger.error.5
  (signals-error
   (let ((*debugger-hook* #'(lambda (c hook x) (list c hook x))))
     (invoke-debugger (make-condition 'simple-error)))
   program-error)
  t)