/[gcl]/gcl/ansi-tests/pprint-logical-block.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/pprint-logical-block.lsp

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

revision 1.4 by pfdietz, Mon Aug 16 02:37:46 2004 UTC revision 1.5 by pfdietz, Fri May 6 13:34:42 2005 UTC
# Line 252  abcd3") Line 252  abcd3")
252  ;;; Error cases  ;;; Error cases
253    
254  (deftest pprint-logical-block.error.1  (deftest pprint-logical-block.error.1
255    (loop for x in *mini-universe*    (check-type-error #'(lambda (x)
256          for form = `(pprint-logical-block (*standard-output* '(1) :prefix ',x))                          (pprint-logical-block (*standard-output* '(1) :prefix x)))
257          unless (or (stringp x)                      #'stringp)
                    (eq (eval `(signals-error ,form type-error)) t))  
         collect x)  
258    nil)    nil)
259    
260  (deftest pprint-logical-block.error.1-unsafe  (deftest pprint-logical-block.error.1-unsafe
261    (loop for x in *mini-universe*    (check-type-error #'(lambda (x)
262          for form = `(pprint-logical-block (*standard-output* '(1) :prefix ',x))                          (declare (optimize (safety 0)))
263          unless (or (stringp x)                          (pprint-logical-block (*standard-output* '(1) :prefix x)))
264                     (eq (eval `(signals-error ,form type-error :safety 0)) t))                      #'stringp)
         collect x)  
265    nil)    nil)
266    
267  (deftest pprint-logical-block.error.2  (deftest pprint-logical-block.error.2
268    (loop for x in *mini-universe*    (check-type-error #'(lambda (x)
269          for form = `(pprint-logical-block (*standard-output* '(1) :suffix ',x))                          (pprint-logical-block (*standard-output* '(1) :suffix x)))
270          unless (or (stringp x)                      #'stringp)
                    (eq (eval `(signals-error ,form type-error)) t))  
         collect x)  
271    nil)    nil)
272    
273  (deftest pprint-logical-block.error.2-unsafe  (deftest pprint-logical-block.error.2-unsafe
274    (loop for x in *mini-universe*    (check-type-error #'(lambda (x)
275          for form = `(pprint-logical-block (*standard-output* '(1) :suffix ',x))                          (declare (optimize (safety 0)))
276          unless (or (stringp x)                          (pprint-logical-block (*standard-output* '(1) :suffix x)))
277                     (eq (eval `(signals-error ,form type-error :safety 0)) t))                      #'stringp)
         collect x)  
278    nil)    nil)
279    
280  (deftest pprint-logical-block.error.3  (deftest pprint-logical-block.error.3
281    (loop for x in *mini-universe*    (check-type-error #'(lambda (x)
282          for form = `(pprint-logical-block (*standard-output* '(1) :per-line-prefix ',x))                          (pprint-logical-block (*standard-output* '(1) :per-line-prefix x)))
283          unless (or (stringp x)                      #'stringp)
                    (eq (eval `(signals-error ,form type-error)) t))  
         collect x)  
284    nil)    nil)
285    
286  (deftest pprint-logical-block.error.3-unsafe  (deftest pprint-logical-block.error.3-unsafe
287    (loop for x in *mini-universe*    (check-type-error #'(lambda (x)
288          for form = `(pprint-logical-block (*standard-output* '(1) :per-line-prefix ',x))                          (declare (optimize (safety 0)))
289          unless (or (stringp x)                          (pprint-logical-block (*standard-output* '(1) :per-line-prefix x)))
290                     (eq (eval `(signals-error ,form type-error :safety 0)) t))                      #'stringp)
         collect x)  
291    nil)    nil)
292    
293  (deftest pprint-logical-block.error.4  (deftest pprint-logical-block.error.4

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

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