diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-12-08 22:58:37 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-12-08 22:58:37 +0100 |
| commit | 799f066768bacb321ebad84c75b2bbfd269e7cd8 (patch) | |
| tree | c6b100b2f44a4e613e9aeee7d54bb57ca466bdb7 /guix/import/opam.scm | |
| parent | bfe4cdf88ee3e88910d22291a4c745462f2d6417 (diff) | |
| download | guix-799f066768bacb321ebad84c75b2bbfd269e7cd8.tar guix-799f066768bacb321ebad84c75b2bbfd269e7cd8.tar.gz | |
import: opam: Adjust test to latest 'opam->guix-package' changes.
This is a followup to a8dccd4bdc1e58219d4ba08fe1649bf0b8325f44, which
broke the test.
* guix/import/opam.scm (get-opam-repository): Prevent inlining.
* tests/opam.scm ("opam->guix-package"): Mock 'get-opam-repository'.
Diffstat (limited to 'guix/import/opam.scm')
| -rw-r--r-- | guix/import/opam.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/guix/import/opam.scm b/guix/import/opam.scm index 54143f83ca..670973b193 100644 --- a/guix/import/opam.scm +++ b/guix/import/opam.scm @@ -141,6 +141,9 @@ path to the repository." (string-append location "/" (substring (symbol->string repo) 4))) (else location))))) +;; Prevent Guile 3 from inlining this procedure so we can mock it in tests. +(set! get-opam-repository get-opam-repository) + (define (latest-version versions) "Find the most recent version from a list of versions." (fold (lambda (a b) (if (version>? a b) a b)) (car versions) versions)) |