diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2017-10-07 12:54:40 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2017-10-07 12:54:40 +0200 |
| commit | ad3a937dae2586aa5a66ceed32a1c2005ee486c9 (patch) | |
| tree | b44dd9e8bf4e2772c566086fbb7e8fbf30533473 /tests | |
| parent | 6a317919cf0f9dbc651a4a41f9ed99c49bf2d543 (diff) | |
| parent | 3ae76f7f57706cf5cc4144d4ff62968e3d4c3aa4 (diff) | |
Merge branch 'master' into staging
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) |