summaryrefslogtreecommitdiff
path: root/tests/hackage.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/hackage.scm')
-rw-r--r--tests/hackage.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/hackage.scm b/tests/hackage.scm
index 77e333cbfcb..66a13d98817 100644
--- a/tests/hackage.scm
+++ b/tests/hackage.scm
@@ -1,6 +1,7 @@
1;;; GNU Guix --- Functional package management for GNU 1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> 2;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
3;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.net> 3;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.net>
4;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
4;;; 5;;;
5;;; This file is part of GNU Guix. 6;;; This file is part of GNU Guix.
6;;; 7;;;
@@ -183,7 +184,7 @@ library
183 ('home-page "http://test.org") 184 ('home-page "http://test.org")
184 ('synopsis (? string?)) 185 ('synopsis (? string?))
185 ('description (? string?)) 186 ('description (? string?))
186 ('license 'bsd-3))) 187 ('license 'license:bsd-3)))
187 188
188(define* (eval-test-with-cabal test-cabal matcher #:key (cabal-environment '())) 189(define* (eval-test-with-cabal test-cabal matcher #:key (cabal-environment '()))
189 (define port (open-input-string test-cabal)) 190 (define port (open-input-string test-cabal))
@@ -232,7 +233,7 @@ library
232 ('home-page "http://test.org") 233 ('home-page "http://test.org")
233 ('synopsis (? string?)) 234 ('synopsis (? string?))
234 ('description (? string?)) 235 ('description (? string?))
235 ('license 'bsd-3))) 236 ('license 'license:bsd-3)))
236 237
237(test-assert "hackage->guix-package test 6" 238(test-assert "hackage->guix-package test 6"
238 (eval-test-with-cabal test-cabal-6 match-ghc-foo-6)) 239 (eval-test-with-cabal test-cabal-6 match-ghc-foo-6))
@@ -362,7 +363,7 @@ executable cabal
362 ('home-page "http://test.org") 363 ('home-page "http://test.org")
363 ('synopsis (? string?)) 364 ('synopsis (? string?))
364 ('description (? string?)) 365 ('description (? string?))
365 ('license 'bsd-3))) 366 ('license 'license:bsd-3)))
366 367
367(test-assert "hackage->guix-package test cabal revision" 368(test-assert "hackage->guix-package test cabal revision"
368 (eval-test-with-cabal test-cabal-revision match-ghc-foo-revision)) 369 (eval-test-with-cabal test-cabal-revision match-ghc-foo-revision))