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

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

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

revision 1.12 by pfdietz, Wed Dec 8 14:47:54 2004 UTC revision 1.13 by pfdietz, Fri May 6 01:13:41 2005 UTC
# Line 308  Line 308 
308  ;;; Error tests  ;;; Error tests
309    
310  (deftest format.{.error.1  (deftest format.{.error.1
311    (signals-error (format nil "~{~A~}" 'A) type-error)    (signals-type-error x 'A (format nil "~{~A~}" x))
312    t)    t)
313    
314  (deftest format.{.error.2  (deftest format.{.error.2
315    (signals-error (format nil "~{~A~}" 1) type-error)    (signals-type-error x 1 (format nil "~{~A~}" x))
316    t)    t)
317    
318  (deftest format.{.error.3  (deftest format.{.error.3
319    (signals-error (format nil "~{~A~}" "foo") type-error)    (signals-type-error x "foo" (format nil "~{~A~}" x))
320    t)    t)
321    
322  (deftest format.{.error.4  (deftest format.{.error.4
323    (signals-error (format nil "~{~A~}" #*01101) type-error)    (signals-type-error x #*01101 (format nil "~{~A~}" x))
324    t)    t)
325    
326  (deftest format.{.error.5  (deftest format.{.error.5
# Line 332  Line 332 
332    t)    t)
333    
334  (deftest format.\:{.error.2  (deftest format.\:{.error.2
335    (signals-error (format nil "~:{~A~}" 'x) type-error)    (signals-type-error x 'x (format nil "~:{~A~}" x))
336    t)    t)
337        
338  (deftest format.\:{.error.3  (deftest format.\:{.error.3
# Line 348  Line 348 
348    t)    t)
349    
350  (deftest format.\:@.error.1  (deftest format.\:@.error.1
351    (signals-error (format nil "~:@{~A~}" 'x) type-error)    (signals-type-error x 'x (format nil "~:@{~A~}" x))
352    t)    t)
353    
354  (deftest format.\:@.error.2  (deftest format.\:@.error.2
355    (signals-error (format nil "~:@{~A~}" 0) type-error)    (signals-type-error x 0 (format nil "~:@{~A~}" x))
356    t)    t)
357    
358  (deftest format.\:@.error.3  (deftest format.\:@.error.3
359    (signals-error (format nil "~:@{~A~}" #*01101) type-error)    (signals-type-error x #*01101 (format nil "~:@{~A~}" x))
360    t)    t)
361    
362  (deftest format.\:@.error.4  (deftest format.\:@.error.4
363    (signals-error (format nil "~:@{~A~}" "abc") type-error)    (signals-type-error x "abc" (format nil "~:@{~A~}" x))
364    t)    t)
365    
366  (deftest format.\:@.error.5  (deftest format.\:@.error.5

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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