diff options
| author | Marius Bakke <[email protected]> | 2020-02-28 19:07:46 +0100 |
|---|---|---|
| committer | Marius Bakke <[email protected]> | 2020-02-28 19:07:46 +0100 |
| commit | d614f0bba90c86c836131eea3ebb9cbd30f19abf (patch) | |
| tree | 22e6250fc344f86e0e356e0dcad254b95373877a /tests/swh.scm | |
| parent | 7fe962788ac330fce18d7cc39f613bb1f961d6ea (diff) | |
| parent | 20c87138a9ca1bbccef2ee91589f11ec70985555 (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'tests/swh.scm')
| -rw-r--r-- | tests/swh.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/tests/swh.scm b/tests/swh.scm index e36c54e5fb..aef68acbe7 100644 --- a/tests/swh.scm +++ b/tests/swh.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2019 Ludovic Courtès <[email protected]> +;;; Copyright © 2019, 2020 Ludovic Courtès <[email protected]> ;;; ;;; This file is part of GNU Guix. ;;; @@ -25,8 +25,7 @@ ;; Test the JSON mapping machinery used in (guix swh). (define %origin - "{ \"id\": 42, - \"visits_url\": \"/visits/42\", + "{ \"visits_url\": \"/visits/42\", \"type\": \"git\", \"url\": \"http://example.org/guix.git\" }") @@ -48,11 +47,10 @@ (test-begin "swh") (test-equal "lookup-origin" - (list 42 "git" "http://example.org/guix.git") + (list "git" "http://example.org/guix.git") (with-json-result %origin (let ((origin (lookup-origin "http://example.org/guix.git"))) - (list (origin-id origin) - (origin-type origin) + (list (origin-type origin) (origin-url origin))))) (test-equal "lookup-origin, not found" |