diff options
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") |