tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

Merge remote-tracking branch 'origin/master' into core-updates-frozen.

Browse Source
This commit is contained in:
Mathieu Othacehe
2021-10-12 16:50:47 +00:00
parent 48d86a9ec6 371aa5777a
commit a1eca979fb
307 changed files with 24852 additions and 48445 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
tests/lint.scm
View File

@@ -1331,29 +1331,34 @@
(test-assert "haskell-stackage"
(let* ((stackage (string-append "{ \"packages\": [{"
" \"name\":\"x\","
" \"version\":\"1.0\" }]}"))
" \"name\":\"pandoc\","
" \"synopsis\":\"synopsis\","
" \"version\":\"1.0\" }],"
" \"snapshot\": {"
" \"ghc\": \"8.6.5\","
" \"name\": \"lts-14.27\""
" }}"))
(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"))))))