/[gcl]/gcl/ansi-tests/format-justify.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-justify.lsp

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

revision 1.3 by pfdietz, Tue Aug 24 01:13:25 2004 UTC revision 1.4 by pfdietz, Tue Aug 24 11:09:01 2004 UTC
# Line 226  X Line 226  X
226  X AAA,  X AAA,
227  X BBB,  X BBB,
228  X CCC")  X CCC")
229    
230    ;;; Error cases
231    
232    ;;; See 22.3.5.2
233    
234    ;;; Interaction with ~W
235    
236    (deftest format.justify.error.w.1
237      (signals-error-always (format nil "~< ~W ~>" nil) error)
238      t t)
239    
240    (deftest format.justify.error.w.2
241      (signals-error-always (format nil "~<X~:;Y~>~W" nil) error)
242      t t)
243    
244    (deftest format.justify.error.w.3
245      (signals-error-always (format nil "~w~<X~:;Y~>" nil) error)
246      t t)
247    
248    ;;; Interaction with ~_
249    
250    (deftest format.justify.error._.1
251      (signals-error-always (format nil "~< ~_ ~>") error)
252      t t)
253    
254    (deftest format.justify.error._.2
255      (signals-error-always (format nil "~<X~:;Y~>~_") error)
256      t t)
257    
258    (deftest format.justify.error._.3
259      (signals-error-always (format nil "~_~<X~:;Y~>") error)
260      t t)
261    
262    ;;; Interaction with ~I
263    
264    (deftest format.justify.error.i.1
265      (signals-error-always (format nil "~< ~i ~>") error)
266      t t)
267    
268    (deftest format.justify.error.i.2
269      (signals-error-always (format nil "~<X~:;Y~>~I") error)
270      t t)
271    
272    (deftest format.justify.error.i.3
273      (signals-error-always (format nil "~i~<X~:;Y~>") error)
274      t t)
275    

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

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