diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/import-utils.scm | 5 | ||||
| -rw-r--r-- | tests/uuid.scm | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/tests/import-utils.scm b/tests/import-utils.scm index 3d8d2c698d..f4bbd335b9 100644 --- a/tests/import-utils.scm +++ b/tests/import-utils.scm @@ -43,7 +43,10 @@ (test-assert "alist->package with simple source" (let* ((meta '(("name" . "hello") ("version" . "2.10") - ("source" . "mirror://gnu/hello/hello-2.10.tar.gz") + ("source" . + ;; Use a 'file://' URI so that we don't cause a download. + ,(string-append "file://" + (search-path %load-path "guix.scm"))) ("build-system" . "gnu") ("home-page" . "https://gnu.org") ("synopsis" . "Say hi") diff --git a/tests/uuid.scm b/tests/uuid.scm index 68676f775d..91a3482490 100644 --- a/tests/uuid.scm +++ b/tests/uuid.scm @@ -57,7 +57,7 @@ "1234-ABCD" (uuid->string (uuid "1234-abcd" 'fat32))) -(test-equal "uuid=?" +(test-assert "uuid=?" (and (uuid=? (uuid-bytevector (uuid "1234-abcd" 'fat32)) (uuid "1234-abcd" 'fat32)) (uuid=? (uuid "1234-abcd" 'fat32) |