/[gcl]/gcl/ansi-tests/do-symbols.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/do-symbols.lsp

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

revision 1.5 by pfdietz, Sat Jan 8 15:50:32 2005 UTC revision 1.6 by pfdietz, Sat Apr 23 18:48:50 2005 UTC
# Line 10  Line 10 
10  (declaim (optimize (safety 3)))  (declaim (optimize (safety 3)))
11    
12  (deftest do-symbols.1  (deftest do-symbols.1
13    (equalt    (progn
14     (remove-duplicates      (set-up-packages)
15      (sort-symbols (let ((all nil))      (equalt
16                      (do-symbols (x "B" all) (push x all)))))       (remove-duplicates
17     (list (find-symbol "BAR" "B")        (sort-symbols (let ((all nil))
18           (find-symbol "FOO" "A")))                        (do-symbols (x "B" all) (push x all)))))
19         (list (find-symbol "BAR" "B")
20               (find-symbol "FOO" "A"))))
21    t)    t)
22    
23  ;;  ;;
# Line 29  Line 31 
31        (do-symbols (x pkg all) (push x all))))))        (do-symbols (x pkg all) (push x all))))))
32    
33  (deftest do-symbols.2  (deftest do-symbols.2
34      (collect-symbols "DS1")    (collect-symbols "DS1")
35    (DS1:A DS1:B DS1::C DS1::D))    (DS1:A DS1:B DS1::C DS1::D))
36    
37  (deftest do-symbols.3  (deftest do-symbols.3
38      (collect-symbols "DS2")    (collect-symbols "DS2")
39    (DS2:A DS2::E DS2::F DS2:G DS2:H))    (DS2:A DS2::E DS2::F DS2:G DS2:H))
40    
41  (deftest do-symbols.4  (deftest do-symbols.4
# Line 91  Line 93 
93    `(deftest ,test-name    `(deftest ,test-name
94       (let ((name ,name-form))       (let ((name ,name-form))
95         (assert (string= name "B"))         (assert (string= name "B"))
96           (set-up-packages)
97         (equalt         (equalt
98          (remove-duplicates          (remove-duplicates
99           (sort-symbols (let ((all nil))           (sort-symbols (let ((all nil))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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