Changeset 9618 for trunk/tests


Ignore:
Timestamp:
May 29, 2008, 2:53:12 AM (11 years ago)
Author:
gz
Message:

Add regression test

File:
1 edited

Legend:

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

    r9591 r9618  
    193193
    194194
    195  
     195(deftest ccl.42830
     196    (let ((*standard-output* (make-broadcast-stream)))
     197      (defun cl-user::ccl.42830 (stream int colon-p at-sign-p)
     198        (declare (ignore at-sign-p colon-p))
     199        (check-type int integer)
     200        (write int :stream stream))
     201      (defun test-ccl.42830 (a b stream)
     202        (format stream "~A ~/ccl.42830/" a b))
     203      (and (eq (test-ccl.42830 "a" 1 t) nil)
     204           (string-equal (test-ccl.42830 "a" 1 nil) "a 1")
     205           :no-errors))
     206  :no-errors)
Note: See TracChangeset for help on using the changeset viewer.