tests: hackage: Don't mock hackage-fetch.
* tests/hackage.scm: Pass a string input port to tests instead of mocking hackage download. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
55c98f3261
commit
4110cde005
|
@ -186,12 +186,8 @@ library
|
||||||
('license 'bsd-3)))
|
('license 'bsd-3)))
|
||||||
|
|
||||||
(define* (eval-test-with-cabal test-cabal matcher #:key (cabal-environment '()))
|
(define* (eval-test-with-cabal test-cabal matcher #:key (cabal-environment '()))
|
||||||
(mock
|
(define port (open-input-string test-cabal))
|
||||||
((guix import hackage) hackage-fetch
|
(matcher (hackage->guix-package "foo" #:port port #:cabal-environment cabal-environment)))
|
||||||
(lambda (name-version)
|
|
||||||
(call-with-input-string test-cabal
|
|
||||||
read-cabal)))
|
|
||||||
(matcher (hackage->guix-package "foo" #:cabal-environment cabal-environment))))
|
|
||||||
|
|
||||||
(test-assert "hackage->guix-package test 1"
|
(test-assert "hackage->guix-package test 1"
|
||||||
(eval-test-with-cabal test-cabal-1 match-ghc-foo))
|
(eval-test-with-cabal test-cabal-1 match-ghc-foo))
|
||||||
|
|
Loading…
Reference in New Issue