diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-02-27 23:20:48 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-02-27 23:29:30 +0100 |
| commit | 749b9582061f7d929be83a194040b63b41afec81 (patch) | |
| tree | 7e06c5879cafe14a0b2841a32a473c6d27cc83e8 /tests/swh.scm | |
| parent | 10a6b859695d88d799c3e448ddad954910156f6f (diff) | |
swh: Adjust 'origin' test.
This is a followup to 3d2f29382de2d0ee852745cc002dfe2b5d22e1c2.
* tests/swh.scm (%origin): Remove "id".
("lookup-origin"): Remove use of 'origin-id'.
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 <ludo@gnu.org> +;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; 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" |