Changeset 13200 for trunk/tests


Ignore:
Timestamp:
Nov 13, 2009, 12:24:29 PM (10 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r13185 r13200  
    900900                                            (push (ccl::compiler-warning-warning-type c) warnings)
    901901                                            (muffle-warning c))))
    902       (test-compile (test-source-file text) :hide-warnings t))
     902      (test-compile (test-source-file "~a" text) :hide-warnings t))
    903903    (nreverse warnings)))
    904904 
     
    16121612                                     (ccl.bug-defmethod-key-warning.gf x :a a))"))
    16131613  nil)
     1614
     1615(deftest ccl.58983-1
     1616    (test-compiler-warning "(defun ccl.58983-1 () (format t \"~A ~A\" 2 3 4))")
     1617  (:format-error))
     1618
     1619(deftest ccl.58983-2
     1620    (test-compiler-warning "(defun ccl.58983-2 () (format t \"~a ~a ~2:*~a\" 1 2))")
     1621  ())
     1622
     1623(deftest ccl.58983-3
     1624    (test-compiler-warning "(defun ccl.58983-3 () (format t \"~a ~a ~2:*\" 1 2))")
     1625  (:format-error))
     1626
     1627(deftest ccl.58983-4
     1628    (test-compiler-warning "(defun ccl.58983-3 () (format t \"M~A ~A ~0@*~A\" 'adam \"I'M\"))")
     1629  ())
Note: See TracChangeset for help on using the changeset viewer.