diff options
| author | Robert Vollmert <rob@vllmrt.net> | 2019-05-31 23:22:42 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-06-01 15:26:30 +0200 |
| commit | 4110cde00560bd97cc8d83c34b80c52f37c680a2 (patch) | |
| tree | aaaa3d90bef0829f4eb35f1afa0c8e2a8aac3768 | |
| parent | 55c98f3261b6ced2c38e060566e1eb952bd3e42b (diff) | |
| download | patches-4110cde00560bd97cc8d83c34b80c52f37c680a2.tar patches-4110cde00560bd97cc8d83c34b80c52f37c680a2.tar.gz | |
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>
| -rw-r--r-- | tests/hackage.scm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/tests/hackage.scm b/tests/hackage.scm index 41e3b2dcd3..1b4800164e 100644 --- a/tests/hackage.scm +++ b/tests/hackage.scm @@ -186,12 +186,8 @@ library ('license 'bsd-3))) (define* (eval-test-with-cabal test-cabal matcher #:key (cabal-environment '())) - (mock - ((guix import hackage) hackage-fetch - (lambda (name-version) - (call-with-input-string test-cabal - read-cabal))) - (matcher (hackage->guix-package "foo" #:cabal-environment cabal-environment)))) + (define port (open-input-string test-cabal)) + (matcher (hackage->guix-package "foo" #:port port #:cabal-environment cabal-environment))) (test-assert "hackage->guix-package test 1" (eval-test-with-cabal test-cabal-1 match-ghc-foo)) |