Hi!
Sorry, I’m still pretty clueless.
Can you try the attached patch, and run “./check-guile load.test” with
this NFS setup?
For me, it displays this:
;;; (remaining "/home/ludo/src/guile/load-test.dir/dir3" ("." ".."))
;;; (remaining "/home/ludo/src/guile/load-test.dir/dir1/subdir1" ("." ".."))
;;; (remaining "/home/ludo/src/guile/load-test.dir/dir1" ("." ".."))
;;; (remaining "/home/ludo/src/guile/load-test.dir/dir2" ("." ".."))
;;; (remaining "/home/ludo/src/guile/load-test.dir" ("." ".."))
Thanks,
Ludo’.
diff --git a/test-suite/tests/load.test b/test-suite/tests/load.test
index 1cf8d65..a43573c 100644
--- a/test-suite/tests/load.test
+++ b/test-suite/tests/load.test
@@ -20,7 +20,8 @@
(define-module (test-suite test-load)
#:use-module (test-suite lib)
#:use-module (test-suite guile-test)
- #:use-module (system base compile))
+ #:use-module (system base compile)
+ #:use-module (ice-9 ftw))
(define temp-dir (data-file-name "load-test.dir"))
@@ -61,6 +62,7 @@
(delete-tree name)
(loop))))))
(closedir dir)
+ (pk 'remaining tree (scandir tree))
(rmdir tree)))
((file-exists? tree)
(delete-file tree))
