/[gcl]/gcl/ansi-tests/error.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/error.lsp

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

revision 1.1 by pfdietz, Wed Jan 29 23:57:33 2003 UTC revision 1.2 by pfdietz, Sun Feb 16 02:03:55 2003 UTC
# Line 9  Line 9 
9    (let ((fmt "Error"))    (let ((fmt "Error"))
10      (handler-case (error fmt)      (handler-case (error fmt)
11                    (simple-error (c)                    (simple-error (c)
12                                  (eqt (simple-condition-format-control c)                                  (and
13                                       fmt))))                                   (null (simple-condition-format-arguments c))
14                                     (eqt (simple-condition-format-control c)
15                                          fmt)))))
16    t)    t)
17    
18  (deftest error.2  (deftest error.2
# Line 31  Line 33 
33                                       fmt))))                                       fmt))))
34    t)    t)
35    
36    (deftest error.4
37      (let ((fmt "Error: ~A"))
38        (handler-case (error fmt 10)
39                      (simple-error (c)
40                                    (and
41                                     (equalt
42                                      (simple-condition-format-arguments c)
43                                      '(10))
44                                     (eqt (simple-condition-format-control c)
45                                          fmt)))))
46      t)
47    
48    (deftest error.5
49      (let ((fmt (formatter "Error")))
50        (handler-case (error fmt)
51                      (simple-error (c)
52                                    (and
53                                     (null (simple-condition-format-arguments c))
54                                     (eqt (simple-condition-format-control c)
55                                          fmt)))))
56      t)
57    
58    

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