/[gcl]/gcl/ansi-tests/read-from-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/read-from-string.lsp

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

revision 1.1 by pfdietz, Sat Jan 1 23:13:15 2005 UTC revision 1.2 by pfdietz, Tue Jan 4 15:29:02 2005 UTC
# Line 68  Line 68 
68         (assert (equal vals '(7123 4))))))         (assert (equal vals '(7123 4))))))
69    nil)    nil)
70    
71  (deftest read-from-string.7  (deftest read-from-string.8
72    (let ((*package* (find-package :cl-test)))    (let ((*package* (find-package :cl-test)))
73      (do-special-strings      (do-special-strings
74       (s "7123")       (s "7123")
# Line 77  Line 77 
77         (assert (equal vals '(foo 2))))))         (assert (equal vals '(foo 2))))))
78    nil)    nil)
79    
80  (deftest read-from-string.8  (deftest read-from-string.9
81    (let ((*package* (find-package :cl-test)))    (let ((*package* (find-package :cl-test)))
82      (do-special-strings      (do-special-strings
83       (s "123  ")       (s "123  ")
# Line 86  Line 86 
86         (assert (equal vals '(123 3))))))         (assert (equal vals '(123 3))))))
87    nil)    nil)
88    
89  (deftest read-from-string.9  (deftest read-from-string.10
90    (let ((*package* (find-package :cl-test)))    (let ((*package* (find-package :cl-test)))
91      (do-special-strings      (do-special-strings
92       (s (concatenate 'string "( )" (string #\Newline)))       (s (concatenate 'string "( )" (string #\Newline)))
# Line 97  Line 97 
97    
98  ;;; Multiple keywords  ;;; Multiple keywords
99    
100  (deftest read-from-string.10  (deftest read-from-string.11
101    (let ((*package* (find-package :cl-test)))    (let ((*package* (find-package :cl-test)))
102      (do-special-strings      (do-special-strings
103       (s "7123  ")       (s "7123  ")
# Line 106  Line 106 
106         (assert (equal vals '(123 5))))))         (assert (equal vals '(123 5))))))
107    nil)    nil)
108    
109  (deftest read-from-string.11  (deftest read-from-string.12
110    (let ((*package* (find-package :cl-test)))    (let ((*package* (find-package :cl-test)))
111      (do-special-strings      (do-special-strings
112       (s "7123  ")       (s "7123  ")
# Line 115  Line 115 
115         (assert (equal vals '(7123 4))))))         (assert (equal vals '(7123 4))))))
116    nil)    nil)
117    
118  (deftest read-from-string.12  (deftest read-from-string.13
119    (let ((*package* (find-package :cl-test)))    (let ((*package* (find-package :cl-test)))
120      (do-special-strings      (do-special-strings
121       (s (concatenate 'string "( )" (string #\Newline)))       (s (concatenate 'string "( )" (string #\Newline)))
# Line 127  Line 127 
127    
128  ;;; Allow other keys  ;;; Allow other keys
129    
130  (deftest read-from-string.13  (deftest read-from-string.14
131    (with-standard-io-syntax    (with-standard-io-syntax
132     (let ((*package* (find-package :cl-test)))     (let ((*package* (find-package :cl-test)))
133       (do-special-strings       (do-special-strings
# Line 137  Line 137 
137          (assert (equal vals '(|ABC| 4)) (vals) "VALS is ~A" vals)))))          (assert (equal vals '(|ABC| 4)) (vals) "VALS is ~A" vals)))))
138    nil)    nil)
139    
140  (deftest read-from-string.14  (deftest read-from-string.15
141    (let ((*package* (find-package :cl-test)))    (let ((*package* (find-package :cl-test)))
142      (do-special-strings      (do-special-strings
143       (s "123   ")       (s "123   ")
# Line 146  Line 146 
146         (assert (equal vals '(123 4)) (vals) "VALS is ~A" vals))))         (assert (equal vals '(123 4)) (vals) "VALS is ~A" vals))))
147    nil)    nil)
148    
149  (deftest read-from-string.15  (deftest read-from-string.16
150    (let ((*package* (find-package :cl-test)))    (let ((*package* (find-package :cl-test)))
151      (do-special-strings      (do-special-strings
152       (s "123   ")       (s "123   ")
# Line 158  Line 158 
158    
159  ;;; default for :end  ;;; default for :end
160    
161  (deftest read-from-string.16  (deftest read-from-string.17
162    (let ((*package* (find-package :cl-test)))    (let ((*package* (find-package :cl-test)))
163      (do-special-strings      (do-special-strings
164       (s "XYZ   ")       (s "XYZ   ")

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