Changeset 15777


Ignore:
Timestamp:
Mar 14, 2013, 11:42:14 PM (7 years ago)
Author:
gz
Message:

Add test for ticket:1070

File:
1 edited

Legend:

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

    r15745 r15777  
    18781878           (string= "foo.bar" (ccl:native-translated-namestring #P"foo.bar")))
    18791879  t)
     1880
     1881(deftest ccl.bug#1070.a
     1882    (progn
     1883      (close (open "temp.dat" :direction :output :if-exists :supersede))
     1884      (and (probe-file "temp.dat")
     1885           (not (let ((*default-pathname-defaults* #P"/no/such/place/"))
     1886                  (probe-file "temp.dat")))))
     1887 t)
     1888
     1889(deftest ccl.bug#1070.b
     1890    (progn
     1891      (close (open "temp.dat" :direction :output :if-exists :supersede))
     1892      (when (probe-file "temp") (delete-file "temp"))
     1893      (let ((*default-pathname-defaults* #P".dat"))
     1894        (with-open-file (f "temp") f t)))
     1895 t)
Note: See TracChangeset for help on using the changeset viewer.