[Guile-commits] branch main updated: test-suite: Canonicalize path in test directory

[Mikael Djurfeldt]

This is an automated email from the git hooks/post-receive script.

mdj pushed a commit to branch main
in repository guile.

The following commit(s) were added to refs/heads/main by this push:
     new 20405089d test-suite: Canonicalize path in test directory
20405089d is described below

commit 20405089de63e855a700040cbdb0277a7eafd7d1
Author: Mikael Djurfeldt <mikael@djurfeldt.com>
AuthorDate: Wed Nov 27 14:59:04 2024 +0100

    test-suite: Canonicalize path in test directory
    
    * test-suite/tests/filesys.test: Canonicalize path in the chdir tests to
    avoid false differences due to following links.
---
 test-suite/tests/filesys.test | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/test-suite/tests/filesys.test b/test-suite/tests/filesys.test
index 4cdc57c23..cc0e1f3c6 100644
--- a/test-suite/tests/filesys.test
+++ b/test-suite/tests/filesys.test
@@ -423,19 +423,20 @@
   (define file (search-path %load-path "ice-9/boot-9.scm"))
 
 
-  (pass-if-equal "test directory" (dirname file)
+  ;; canonicalize-path is used to not stumble over differences due to links
+  (pass-if-equal "test directory" (canonicalize-path (dirname file))
     (let ((olddir (getcwd))
           (dir #f))
-      (chdir (dirname file))
+      (chdir (canonicalize-path (dirname file)))
       (set! dir (getcwd))
       (chdir olddir)
       dir))
 
-  (pass-if-equal "test directory, via port" (dirname file)
+  (pass-if-equal "test directory, via port" (canonicalize-path (dirname file))
     (unless (provided? 'chdir-port)
       (throw 'unresolved))
     (let ((olddir (getcwd))
-          (port (open (dirname file) O_RDONLY))
+          (port (open (canonicalize-path (dirname file)) O_RDONLY))
           (dir #f))
       (chdir port)
       (set! dir (getcwd))