Changeset 13200

Timestamp:

Nov 13, 2009, 4:24:29 AM (15 years ago)

Author:

gz

Message:

Fix handling of format args in test-compiler-warning. Add some tests for the too many args in format warning

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (2 diffs)

trunk/tests/ansi-tests/ccl.lsp

@@ -900 +900 @@
                                             (push (ccl::compiler-warning-warning-type c) warnings)
                                             (muffle-warning c))))
-      (test-compile (test-source-file text) :hide-warnings t))
+      (test-compile (test-source-file "~a" text) :hide-warnings t))
     (nreverse warnings)))
   
@@ -1612 +1612 @@
                                      (ccl.bug-defmethod-key-warning.gf x :a a))"))
   nil)
+
+(deftest ccl.58983-1
+    (test-compiler-warning "(defun ccl.58983-1 () (format t \"~A ~A\" 2 3 4))")
+  (:format-error))
+
+(deftest ccl.58983-2
+    (test-compiler-warning "(defun ccl.58983-2 () (format t \"~a ~a ~2:*~a\" 1 2))")
+  ())
+
+(deftest ccl.58983-3
+    (test-compiler-warning "(defun ccl.58983-3 () (format t \"~a ~a ~2:*\" 1 2))")
+  (:format-error))
+
+(deftest ccl.58983-4
+    (test-compiler-warning "(defun ccl.58983-3 () (format t \"M~A ~A ~0@*~A\" 'adam \"I'M\"))")
+  ())