01/04: swh: Adjust 'origin' test.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 749b9582061f7d929be83a194040b63b41afec81
Author: Ludovic Courtès <address@hidden>
AuthorDate: Thu Feb 27 23:20:48 2020 +0100

    swh: Adjust 'origin' test.
    
    This is a followup to 3d2f29382de2d0ee852745cc002dfe2b5d22e1c2.
    
    * tests/swh.scm (%origin): Remove "id".
    ("lookup-origin"): Remove use of 'origin-id'.
---
 tests/swh.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/tests/swh.scm b/tests/swh.scm
index e36c54e..aef68ac 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 <address@hidden>
+;;; Copyright © 2019, 2020 Ludovic Courtès <address@hidden>
 ;;;
 ;;; 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"