source: trunk/source/tests/ansi-tests/packages-00.lsp @ 8991

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

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

File size: 1.3 KB
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Sat Apr 25 08:07:31 1998
4;;;; Contains: Package test code (common code)
5
6(in-package :cl-test)
7(declaim (optimize (safety 3)))
8
9(report-and-ignore-errors
10  (defpackage "A"
11    (:use)
12    (:nicknames "Q")
13    (:export "FOO")))
14
15(report-and-ignore-errors
16  (defpackage "B"
17    (:use "A")
18    (:export "BAR")))
19
20(defun set-up-packages ()
21  (safely-delete-package "A")
22  (safely-delete-package "B")
23  (safely-delete-package "Q")
24  (defpackage "A"
25    (:use)
26    (:nicknames "Q")
27    (:export "FOO"))
28  (defpackage "B"
29    (:use "A")
30    (:export "BAR")))
31
32(report-and-ignore-errors
33  (defpackage "FS-A"
34    (:use)
35    (:nicknames "FS-Q")
36    (:export "FOO")))
37
38(report-and-ignore-errors
39  (defpackage "FS-B"
40    (:use "FS-A")
41    (:export "BAR")))
42
43(report-and-ignore-errors
44  (defpackage "DS1"
45    (:use)
46    (:intern "C" "D")
47    (:export "A" "B")))
48
49(report-and-ignore-errors
50  (defpackage "DS2"
51    (:use)
52    (:intern "E" "F")
53    (:export "G" "H" "A")))
54
55(report-and-ignore-errors
56  (defpackage "DS3"
57    (:shadow "B")
58    (:shadowing-import-from "DS1" "A")
59    (:use "DS1" "DS2")
60    (:export "A" "B" "G" "I" "J" "K")
61    (:intern "L" "M")))
62
63(report-and-ignore-errors
64  (defpackage "DS4"
65    (:shadowing-import-from "DS1" "B")
66    (:use "DS1" "DS3")
67    (:intern "X" "Y" "Z")
68    (:import-from "DS2" "F")))
Note: See TracBrowser for help on using the repository browser.