Merge pull request #620 from k-okada/test_618

add test to check #618

Author: k-okada

irteus/irtx.l

@@ -88,7 +88,7 @@
     (setq pname "/usr/X11R6/bin/cygX11-6.dll"))
 
   ;; for receiving Window Manager Messages
-  (if (probe-file pname)
+  (if (and pname (probe-file pname))
       (setq x-lib (load-foreign pname))
     (setq x-lib (sys::sysmod)))
   (defforeign SetWMProtocols x-lib "XSetWMProtocols" () :integer))

irteus/test/test-file.l

@@ -0,0 +1,16 @@
+;; test code for probe-file
+
+(require :unittest "lib/llib/unittest.l")
+(init-unit-test)
+
+;; irteusx errors when a file named 'NIL' exists https://github.com/euslisp/jskeus/pull/618
+(deftest nil-file-with-irtx
+  (let ()
+    (unix::chdir "/tmp")
+    (with-open-file (f "NIL" :direction :output)(format f "NIL"))
+    (assert (load "irteus/irtx.l"))
+    ))
+
+
+(run-all-tests)
+(exit)