Skip to content

Commit

Permalink
Update some handler-case tests
Browse files Browse the repository at this point in the history
  • Loading branch information
Affonso-Gui committed Aug 12, 2022
1 parent ce4a9ea commit 103d985
Showing 1 changed file with 20 additions and 19 deletions.
39 changes: 20 additions & 19 deletions test/conditions.l
Original file line number Diff line number Diff line change
Expand Up @@ -325,25 +325,26 @@
(error () 'bad))
good)

(define-ansi-test handler-case.17
(let ((i 0))
(values
(handler-case
(handler-case (error "foo")
(error () (incf i) (error "bar")))
(error () 'good))
i))
good 1)

(define-ansi-test handler-case.18
(let ((i 0))
(values
(handler-case
(handler-case (error "foo")
(error (c) (incf i) (error c)))
(error () 'good))
i))
good 1)
;; in euslisp `invoke-next-handler' is used for re-raising
;; (define-ansi-test handler-case.17
;; (let ((i 0))
;; (values
;; (handler-case
;; (handler-case (error "foo")
;; (error () (incf i) (error "bar")))
;; (error () 'good))
;; i))
;; good 1)

;; (define-ansi-test handler-case.18
;; (let ((i 0))
;; (values
;; (handler-case
;; (handler-case (error "foo")
;; (error (c) (incf i) (error c)))
;; (error () 'good))
;; i))
;; good 1)

;; (define-ansi-test handler-case.20
;; (handler-case
Expand Down

0 comments on commit 103d985

Please sign in to comment.