modules: ‘file-name->module-name’ strips leading “./”.

Fixes <https://issues.guix.gnu.org/71979>.

* guix/modules.scm (file-name->module-name): Strip leading “.” component
from FILE.
* tests/modules.scm ("file-name->module-name")
("file-name->module-name, leading dot"): New tests.

Reported-by: Tomas Volf <~@wolfsden.cz>
Change-Id: I3d1b9f3f21448050cac4f3b1aed5f8f03758d4c9

1 files changed, 9 insertions, 1 deletions

diff --git a/tests/modules.scm b/tests/modules.scm
index e70d2d9e080..bb2c70e287e 100644
--- a/tests/modules.scm
+++ b/tests/modules.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016-2017, 2024 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -65,4 +65,12 @@
        (source-module-closure '((baz)) (list directory)
                               #:select? (const #t))))))
 
+(test-equal "file-name->module-name"
+  '(guix foo)
+  (file-name->module-name "guix/foo.scm"))
+
+(test-equal "file-name->module-name, leading dot"
+  '(guix foo)
+  (file-name->module-name "./guix/foo.scm"))
+
 (test-end)