02/138: tests: Add failing tests for changed-inputs on new style inputs.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 6226df77ee7448ba4eae05c14aa2ba9721f28bb4
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Jan 4 21:39:18 2022 +0100

    tests: Add failing tests for changed-inputs on new style inputs.
    
    * tests/upstream.scm ("changed-inputs returns changes to plain input list",
    "changed-inputs returns changes to all plain input lists"): New tests.
---
 tests/upstream.scm | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)

diff --git a/tests/upstream.scm b/tests/upstream.scm
index 594334304a..9aacb77229 100644
--- a/tests/upstream.scm
+++ b/tests/upstream.scm
@@ -142,4 +142,72 @@
                     '("hello" "sed" "tar" "grep"))))
       (else (pk else #false)))))
 
+(define test-new-package
+  (package
+    (inherit test-package)
+    (inputs
+     (list hello))
+    (native-inputs
+     (list sed tar))
+    (propagated-inputs
+     (list grep))))
+
+(define test-new-package-sexp
+  '(package
+    (name "test")
+    (version "2.10")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/hello/hello-" version
+                                  ".tar.gz"))
+              (sha256
+               (base32
+                "0ssi1wpaf7plaswqqjwigppsg5fyh99vdlb9kzl7c9lng89ndq1i"))))
+    (build-system gnu-build-system)
+    (inputs
+     (list hello))
+    (native-inputs
+     (list sed tar))
+    (propagated-inputs
+     (list grep))
+    (home-page "http://localhost";)
+    (synopsis "test")
+    (description "test")
+    (license license:gpl3+)))
+
+(test-assert "changed-inputs returns changes to plain input list"
+  (let ((changes (changed-inputs
+                  (package
+                    (inherit test-new-package)
+                    (inputs (list hello sed)))
+                  test-new-package-sexp)))
+    (match changes
+      ;; Exactly one change
+      (((? upstream-input-change? item))
+       (and (equal? (upstream-input-change-type item)
+                    'regular)
+            (equal? (upstream-input-change-action item)
+                    'remove)
+            (string=? (upstream-input-change-name item)
+                      "sed")))
+      (else (pk else #false)))))
+
+(test-assert "changed-inputs returns changes to all plain input lists"
+  (let ((changes (changed-inputs
+                  (package
+                    (inherit test-new-package)
+                    (inputs '())
+                    (native-inputs '())
+                    (propagated-inputs '()))
+                  test-new-package-sexp)))
+    (match changes
+      (((? upstream-input-change? items) ...)
+       (and (equal? (map upstream-input-change-type items)
+                    '(regular native native propagated))
+            (equal? (map upstream-input-change-action items)
+                    '(add add add add))
+            (equal? (map upstream-input-change-name items)
+                    '("hello" "sed" "tar" "grep"))))
+      (else (pk else #false)))))
+
 (test-end)