From 780675ad9a49008954883698cf2aab8165bc3ac7 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 3 Oct 2025 19:56:18 +0100
Subject: tests: Expect file:///foo/bar, not file:/foo/bar.

file: should be followed by three slashes, not just one.
---
 tests/reader.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/reader.scm b/tests/reader.scm
index 1142add..75d5ac8 100644
--- a/tests/reader.scm
+++ b/tests/reader.scm
@@ -125,7 +125,10 @@
      (canonicalize-json
       (let ((path (expand-file-name "foo" dir)))
         `(("class" . "File")
-          ("location" . ,(uri->string (build-uri 'file #:path path)))
+          ("location" . ,(uri->string (build-uri 'file
+                                                 #:host ""
+                                                 #:path path
+                                                 #:validate? #f)))
           ("path" . ,path)
           ("basename" . "foo")
           ("nameroot" . "foo")
@@ -147,7 +150,10 @@
      (canonicalize-json
       (let ((path (expand-file-name "foo" dir)))
         `(("class" . "File")
-          ("location" . ,(uri->string (build-uri 'file #:path path)))
+          ("location" . ,(uri->string (build-uri 'file
+                                                 #:host ""
+                                                 #:path path
+                                                 #:validate? #f)))
           ("path" . ,path)
           ("basename" . "foo")
           ("nameroot" . "foo")
-- 
cgit 1.4.1