Skip to content
Snippets Groups Projects
Commit 3dbea587 authored by pfdietz's avatar pfdietz
Browse files

Load handler-case.lsp; add ignore-errors.lsp

parent 041319fa
No related branches found
No related tags found
No related merge requests found
......@@ -181,11 +181,19 @@
(error () 'good))
good)
(deftest handler-case.26
(handler-case
(values 1 'a 1.0)
(error () 'bad)
(:no-error (a b c)
;; Test that declarations can go here
(declare (type integer a))
(declare (type symbol b))
(declare (type number c))
(declare (ignore a c))
b))
a)
(deftest handler-case.27
(handler-case (error "foo") (error ()))
nil)
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sun Mar 2 20:38:25 2003
;;;; Contains: Tests of IGNORE-ERRORS
(in-package :cl-test)
(deftest ignore-errors.1
(ignore-errors)
nil)
(deftest ignore-errors.2
(ignore-errors 'a)
a)
(deftest ignore-errors.3
(ignore-errors (values 1 2 3 4 5 6 7 8))
1 2 3 4 5 6 7 8)
(deftest ignore-errors.4
(multiple-value-bind (val cond)
(ignore-errors (error "foo"))
(and (null val)
(typep cond 'simple-error)
t))
t)
(deftest ignore-errors.5
(handler-case
(ignore-errors (signal "foo"))
(condition () 'good))
good)
(deftest ignore-errors.6
(handler-case
(ignore-errors (signal "foo"))
(simple-condition () 'good))
good)
......@@ -8,3 +8,6 @@
(load "warn.lsp")
(load "invoke-debugger.lsp")
(load "handler-bind.lsp")
(load "handler-case.lsp")
(load "ignore-errors.lsp")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment