From d992b886c76a33e490a01d5baf20cb7510d7649e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sat, 4 Feb 2017 12:49:52 +0100
Subject: [PATCH] tests: add regression test for #351

---
 src/tests/normal-tests/ansi.lsp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/tests/normal-tests/ansi.lsp b/src/tests/normal-tests/ansi.lsp
index b72545004..662d0da33 100644
--- a/src/tests/normal-tests/ansi.lsp
+++ b/src/tests/normal-tests/ansi.lsp
@@ -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   ;;