summaryrefslogtreecommitdiff
path: root/tests/swh.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-02-27 23:20:48 +0100
committerLudovic Courtès <ludo@gnu.org>2020-02-27 23:29:30 +0100
commit749b9582061f7d929be83a194040b63b41afec81 (patch)
tree7e06c5879cafe14a0b2841a32a473c6d27cc83e8 /tests/swh.scm
parent10a6b859695d88d799c3e448ddad954910156f6f (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.scm10
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"