source: trunk/source/tests/ansi-tests/package-error-package.lsp @ 8991

Last change on this file since 8991 was 8991, checked in by gz, 11 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size: 1.1 KB
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Sun Feb 22 06:52:56 2004
4;;;; Contains: Tests of PACKAGE-ERROR-PACKAGE
5
6(in-package :cl-test)
7
8(deftest package-error-package.1
9  (eqt (find-package (package-error-package
10                      (make-condition 'package-error
11                                      :package "CL")))
12       (find-package "CL"))
13  t)
14
15(deftest package-error-package.2
16  (eqt (find-package (package-error-package
17                      (make-condition 'package-error
18                                      :package (find-package "CL"))))
19       (find-package "CL"))
20  t)
21
22(deftest package-error-package.3
23  (eqt (find-package (package-error-package
24                      (make-condition 'package-error
25                                      :package '#:|CL|)))
26       (find-package "CL"))
27  t)
28
29(deftest package-error-package.4
30  (eqt (find-package (package-error-package
31                      (make-condition 'package-error
32                                      :package #\A)))
33       (find-package "A"))
34  t)
35
36(deftest package-error-package.error.1
37  (signals-error (package-error-package) program-error)
38  t)
39
40(deftest package-error-package.error.2
41  (signals-error
42   (package-error-package
43    (make-condition 'package-error :package #\A)
44    nil)
45   program-error)
46  t)
47
Note: See TracBrowser for help on using the repository browser.