Changeset 9871


Ignore:
Timestamp:
Jul 1, 2008, 9:30:22 PM (11 years ago)
Author:
gz
Message:

Add tests for bugs #252 and #310

File:
1 edited

Legend:

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

    r9865 r9871  
    283283      (ccl.42923 'foo :y 1 :z 2 :a 1 :b 2 :c 3))
    284284  foo)
     285
     286(deftest ccl.bug#252a
     287    (let ((pn "bug252.dat"))
     288      (delete-file pn)
     289      (let ((stream (open pn :direction :output :if-exists :error)))
     290        (print "something" stream)
     291        (close stream :abort t)
     292        (probe-file pn)))
     293  nil)
     294
     295(deftest ccl.bug#252b
     296    (let ((pn "bug252.dat"))
     297      (delete-file pn)
     298      (let ((stream (open pn :direction :output)))
     299        (format stream "something~%")
     300        (close stream))
     301      (let ((stream (open pn :direction :output :if-exists :supersede)))
     302        (format stream "other~%")
     303        (force-output stream)
     304        (close stream :abort t))
     305      (with-open-file (stream pn)
     306        (let ((line  (read-line stream)))
     307          (if (equalp line "something") :something line))))
     308  :something)
     309
     310(deftest ccl.bug#310
     311    (remove-duplicates '(1 0 1 1 1 0 0 0 1 0 1 0 1) :end 11)
     312  (0 1 0 1))
    285313
    286314(deftest ccl.bug#294-1
Note: See TracChangeset for help on using the changeset viewer.