06/07: test: lint: Fix ‘haskell-stackage’ test.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 50d24214191abefc6b8f6c881f9a91c1f818a650
Author: Xinglu Chen <public@yoctocell.xyz>
AuthorDate: Tue Sep 28 20:34:25 2021 +0200

    test: lint: Fix ‘haskell-stackage’ test.
    
    This is a follow-up to commit 9c5e5ca1c0de56a0d5b2b924de10548172095b58.
    
    The previous package was called “ghc-x” which is not available on Stackage,
    instead change it to “ghc-pandoc” which does exist, and adjust its version.
    
    * tests/lint.scm ("haskell-stackage"): Add additional metadata for the
      package; change package name to “ghc-pandoc”; and change to version to
      “100.0”.
    
    Reported-by: Tobias Geerinckx-Rice <me@tobias.gr>
    Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>
---
 tests/lint.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/tests/lint.scm b/tests/lint.scm
index 0f51b9e..e96265a 100644
--- a/tests/lint.scm
+++ b/tests/lint.scm
@@ -1317,29 +1317,30 @@
 
 (test-assert "haskell-stackage"
   (let* ((stackage (string-append "{ \"packages\": [{"
-                                  "    \"name\":\"x\","
+                                  "    \"name\":\"pandoc\","
+                                  "    \"synopsis\":\"synopsis\","
                                   "    \"version\":\"1.0\" }]}"))
          (packages (map (lambda (version)
                           (dummy-package
-                           (string-append "ghc-x")
+                           "ghc-pandoc"
                            (version version)
                            (source
                             (dummy-origin
                              (method url-fetch)
                              (uri (string-append
                                    "https://hackage.haskell.org/package/";
-                                   "x-" version "/x-" version ".tar.gz"))))))
-                        '("0.9" "1.0" "2.0")))
+                                   "pandoc-" version "/pandoc-" version 
".tar.gz"))))))
+                        '("0.9" "1.0" "100.0")))
          (warnings (pk (with-http-server `((200 ,stackage) ; memoized
-                                           (200 "name: x\nversion: 1.0\n")
-                                           (200 "name: x\nversion: 1.0\n")
-                                           (200 "name: x\nversion: 1.0\n"))
+                                           (200 "name: pandoc\nversion: 1.0\n")
+                                           (200 "name: pandoc\nversion: 1.0\n")
+                                           (200 "name: pandoc\nversion: 
1.0\n"))
                          (parameterize ((%hackage-url (%local-url))
                                         (%stackage-url (%local-url)))
                            (append-map check-haskell-stackage packages))))))
     (match warnings
       (((? lint-warning? warning))
-       (and (string=? (package-version (lint-warning-package warning)) "2.0")
+       (and (string=? (package-version (lint-warning-package warning)) "100.0")
             (string-contains (lint-warning-message warning)
                              "ahead of Stackage LTS version"))))))