irteus/test/test-file.l : add test code to check irteusx errors when a file named 'NIL' exists

Author: k-okada

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)