From 751728562ff124ede3386c26925fa06edc8862fd Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 25 Apr 2022 07:28:10 -0700
Subject: *load-search-dir*: Some tests.

* tests/019/load-search.tl: Add some cases that explore
the load search path.
---
 tests/019/load-search.tl | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

(limited to 'tests')

diff --git a/tests/019/load-search.tl b/tests/019/load-search.tl
index 962f8bc7..985bcbd0 100644
--- a/tests/019/load-search.tl
+++ b/tests/019/load-search.tl
@@ -5,6 +5,10 @@
 (defun txr (. args)
   (command-get-string `@{txr-exe-path} @{args " "}`))
 
+(defun lod (x)
+  (with-out-string-stream (*stdout*)
+    (load x)))
+
 (mtest
   (txr `@cur/data/a`)     "a\n"
   (txr `@cur/data/a.txr`) "a.txr\n"
@@ -34,3 +38,32 @@
 (mtest
   (txr "--lisp" `@cur/data/c`)      "c.tl\n"
   (txr "--compiled" `@cur/data/c`)  "c.tl\n")
+
+(mtest
+  (length *load-search-dirs*) 1
+  (base-name (car *load-search-dirs*)) "lib")
+
+(set *load-search-dirs* (list `@cur/data`))
+
+(mtest
+  (lod "a")     :error
+  (lod "a.tl")  "a.tl\n"
+  (lod "c")     "c.tl\n")
+
+(push `@cur/nonexistent` *load-search-dirs*)
+
+(mtest
+  (lod "a")     :error
+  (lod "a.tl")  "a.tl\n"
+  (lod "c")     "c.tl\n")
+
+(push `@cur/unreadable` *load-search-dirs*)
+
+(push-after-load (rmdir `@cur/unreadable`))
+
+(ensure-dir `@cur/unreadable` 0)
+
+(mtest
+  (lod "a")     :error
+  (lod "a.tl")  :error
+  (lod "c")     :error)
-- 
cgit v1.2.3