mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 20:42:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add regression test for #351

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-04 12:49:52 +01:00
parent 35328d09d7
commit d992b886c7
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/tests/normal-tests/ansi.lsp
View file

@ -60,6 +60,14 @@
(namestring (translate-logical-pathname "prog:code;documentation.lisp"))
"/tmp/prog/documentation.lisp")))
;; Issue #351 ;; (probe-file #P"/") maybe shouldn't return nil
;; https://gitlab.com/embeddable-common-lisp/ecl/issues/351
#-windows
(test ansi.19.probe-file
(is (probe-file #P"/"))
(is (probe-file #P"/tmp"))
(is (probe-file #P"/tmp/")))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; 22.* Format tests ;;