Last change
on this file since 8991 was
8991,
checked in by gz, 13 years ago
|
Check in the gcl ansi test suite (original, in preparation for making local changes)
|
File size:
630 bytes
|
Line | |
---|
1 | ;-*- Mode: Lisp -*- |
---|
2 | ;;;; Author: Paul Dietz |
---|
3 | ;;;; Created: Sun Feb 22 06:52:21 2004 |
---|
4 | ;;;; Contains: Tests of the condition PACKAGE-ERROR |
---|
5 | |
---|
6 | (in-package :cl-test) |
---|
7 | |
---|
8 | (deftest package-error.1 |
---|
9 | (not |
---|
10 | (typep (make-condition 'package-error :package "CL") |
---|
11 | 'package-error)) |
---|
12 | nil) |
---|
13 | |
---|
14 | (deftest package-error.2 |
---|
15 | (not |
---|
16 | (typep (make-condition 'package-error |
---|
17 | :package (find-package "CL")) |
---|
18 | 'package-error)) |
---|
19 | nil) |
---|
20 | |
---|
21 | (deftest package-error.3 |
---|
22 | (subtypep* 'package-error 'error) |
---|
23 | t t) |
---|
24 | |
---|
25 | (deftest package-error.4 |
---|
26 | (not |
---|
27 | (typep (make-condition 'package-error |
---|
28 | :package (find-package '#:|CL|)) |
---|
29 | 'package-error)) |
---|
30 | nil) |
---|
31 | |
---|
Note: See
TracBrowser
for help on using the repository browser.