diff options
| author | Arun Isaac | 2025-10-03 19:56:18 +0100 |
|---|---|---|
| committer | Arun Isaac | 2025-11-16 22:43:00 +0000 |
| commit | 780675ad9a49008954883698cf2aab8165bc3ac7 (patch) | |
| tree | b0faa016ac1cfbc61f18e6c945e7d9ec75e5e9d7 /tests/reader.scm | |
| parent | 9e12ccfdfd77891746120cab201a65f5486c057a (diff) | |
| download | ravanan-780675ad9a49008954883698cf2aab8165bc3ac7.tar.gz ravanan-780675ad9a49008954883698cf2aab8165bc3ac7.tar.lz ravanan-780675ad9a49008954883698cf2aab8165bc3ac7.zip | |
tests: Expect file:///foo/bar, not file:/foo/bar.
file: should be followed by three slashes, not just one.
Diffstat (limited to 'tests/reader.scm')
| -rw-r--r-- | tests/reader.scm | 10 |
1 files changed, 8 insertions, 2 deletions
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") |