/[gcl]/gcl/ansi-tests/packages-14.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-14.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 22  Line 22 
22               (equal (package-used-by-list pg) (list ph))               (equal (package-used-by-list pg) (list ph))
23               (unuse-package pg ph)               (unuse-package pg ph)
24               (equal (package-use-list ph) nil)               (equal (package-use-list ph) nil)
25               (equal (package-used-by-list pg) nil))               (null (package-used-by-list pg)))
26            (delete-package "H")            (delete-package "H")
27            (delete-package "G"))))            (delete-package "G"))))
28    t)    t)
# Line 39  Line 39 
39               (equal (package-used-by-list pg) (list ph))               (equal (package-used-by-list pg) (list ph))
40               (unuse-package "G" ph)               (unuse-package "G" ph)
41               (equal (package-use-list ph) nil)               (equal (package-use-list ph) nil)
42               (equal (package-used-by-list pg) nil))               (null (package-used-by-list pg)))
43            (delete-package "H")            (delete-package "H")
44            (delete-package "G"))))            (delete-package "G"))))
45    t)      t)  
# Line 56  Line 56 
56               (equal (package-used-by-list pg) (list ph))               (equal (package-used-by-list pg) (list ph))
57               (unuse-package :|G| ph)               (unuse-package :|G| ph)
58               (equal (package-use-list ph) nil)               (equal (package-use-list ph) nil)
59               (equal (package-used-by-list pg) nil))               (null (package-used-by-list pg)))
60            (delete-package "H")            (delete-package "H")
61            (delete-package "G"))))            (delete-package "G"))))
62    t)    t)
# Line 73  Line 73 
73               (equal (package-used-by-list pg) (list ph))               (equal (package-used-by-list pg) (list ph))
74               (ignore-errors (unuse-package #\G ph))               (ignore-errors (unuse-package #\G ph))
75               (equal (package-use-list ph) nil)               (equal (package-use-list ph) nil)
76               (equal (package-used-by-list pg) nil))               (null (package-used-by-list pg)))
77            (delete-package "H")            (delete-package "H")
78            (delete-package "G"))))            (delete-package "G"))))
79    t)    t)
# Line 90  Line 90 
90               (equal (package-used-by-list pg) (list ph))               (equal (package-used-by-list pg) (list ph))
91               (unuse-package (list pg) ph)               (unuse-package (list pg) ph)
92               (equal (package-use-list ph) nil)               (equal (package-use-list ph) nil)
93               (equal (package-used-by-list pg) nil))               (null (package-used-by-list pg)))
94            (delete-package "H")            (delete-package "H")
95            (delete-package "G"))))            (delete-package "G"))))
96    t)      t)  
# Line 107  Line 107 
107               (equal (package-used-by-list pg) (list ph))               (equal (package-used-by-list pg) (list ph))
108               (unuse-package (list "G") ph)               (unuse-package (list "G") ph)
109               (equal (package-use-list ph) nil)               (equal (package-use-list ph) nil)
110               (equal (package-used-by-list pg) nil))               (null (package-used-by-list pg)))
111            (delete-package "H")            (delete-package "H")
112            (delete-package "G"))))            (delete-package "G"))))
113    t)    t)
# Line 124  Line 124 
124               (equal (package-used-by-list pg) (list ph))               (equal (package-used-by-list pg) (list ph))
125               (unuse-package (list :|G|) ph)               (unuse-package (list :|G|) ph)
126               (equal (package-use-list ph) nil)               (equal (package-use-list ph) nil)
127               (equal (package-used-by-list pg) nil))               (null (package-used-by-list pg)))
128            (delete-package "H")            (delete-package "H")
129            (delete-package "G"))))            (delete-package "G"))))
130    t)    t)
# Line 141  Line 141 
141               (equal (package-used-by-list pg) (list ph))               (equal (package-used-by-list pg) (list ph))
142               (ignore-errors (unuse-package (list #\G) ph))               (ignore-errors (unuse-package (list #\G) ph))
143               (equal (package-use-list ph) nil)               (equal (package-use-list ph) nil)
144               (equal (package-used-by-list pg) nil))               (null (package-used-by-list pg)))
145            (delete-package "H")            (delete-package "H")
146            (delete-package "G"))))            (delete-package "G"))))
147    t)    t)
# Line 178  Line 178 
178                 (equal (sort-package-list (package-use-list ph2))                 (equal (sort-package-list (package-use-list ph2))
179                        (list pg1 pg2 pg3))                        (list pg1 pg2 pg3))
180                 (equal (sort-package-list (package-used-by-list pg2))                 (equal (sort-package-list (package-used-by-list pg2))
181                        (list ph1 ph2)))                        (list ph1 ph2))
182                   t)
183              (dolist (p '("H1" "H2" "G1" "G2" "G3"))              (dolist (p '("H1" "H2" "G1" "G2" "G3"))
184                (ignore-errors (delete-package p)))))))                (ignore-errors (delete-package p)))))))
185    t)    t)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26