Changeset 11444


Ignore:
Timestamp:
Nov 28, 2008, 7:58:37 PM (11 years ago)
Author:
rme
Message:

New test for ticket:382.

In tests for ticket:252, guard calls to DELETE-FILE with PROBE-FILE,
since CCL signals an error when trying to delete a non-existent file.

File:
1 edited

Legend:

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

    r11429 r11444  
    288288(deftest ccl.bug#252a
    289289    (let ((pn "bug252.dat"))
    290       (delete-file pn)
     290      (when (probe-file pn)
     291        (delete-file pn))
    291292      (let ((stream (open pn :direction :output :if-exists :error)))
    292293        (print "something" stream)
     
    297298(deftest ccl.bug#252b
    298299    (let ((pn "bug252.dat"))
    299       (delete-file pn)
     300      (when (probe-file pn)
     301        (delete-file pn))
    300302      (let ((stream (open pn :direction :output)))
    301303        (format stream "something~%")
     
    670672  t)
    671673 
    672 
     674(deftest ccl.bug#382
     675    (string= (with-output-to-string (s)
     676               (funcall #'(lambda () (write-string "foobar" s :end 2))))
     677             "fo")
     678  t)
     679 
    673680;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    674681;;; ADVISE
Note: See TracChangeset for help on using the changeset viewer.