diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-06-09 12:09:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-06-09 14:19:14 +0200 |
| commit | f69d14d31af8325807d8529fccd3f0b6fd86e342 (patch) | |
| tree | e811cc47612c662b689aab9f83aac549513a9489 | |
| parent | df8b3821a80d3cdf9b2244bad743b4cfba765bb9 (diff) | |
| download | guix-f69d14d31af8325807d8529fccd3f0b6fd86e342.tar.gz guix-f69d14d31af8325807d8529fccd3f0b6fd86e342.zip | |
tests: Ensure 'cpan' updater test does not access the network.
Previously it would try to access the real metacpan.org. This would
succeed when network is available because "Test-Script" is an existing
package.
* tests/cpan.scm ("package-latest-release"): Wrap
'upstream-source-inputs' call in 'parameterize'. Set
'current-http-proxy'. Change the order of responses in
'with-http-server'.
| -rw-r--r-- | tests/cpan.scm | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/tests/cpan.scm b/tests/cpan.scm index e4ee788e9d..42e8c4e42c 100644 --- a/tests/cpan.scm +++ b/tests/cpan.scm @@ -102,21 +102,22 @@ (downstream-name "perl-test-script") (type 'propagated)))) (with-http-server `((200 ,test-json) - (200 ,test-source) - (200 "{ \"distribution\" : \"Test-Script\" }")) - (define source - (parameterize ((%metacpan-base-url (%local-url))) + (200 "{ \"distribution\" : \"Test-Script\" }") + (200 ,test-source)) + (parameterize ((%metacpan-base-url (%local-url)) + (current-http-proxy (%local-url))) + (define source (package-latest-release (dummy-package "perl-test-script" - (version "0.0.0") - (source (dummy-origin - (method url-fetch) - (uri "mirror://cpan/Foo-Bar-0.0.0.tgz")))) - (list %cpan-updater)))) + (version "0.0.0") + (source (dummy-origin + (method url-fetch) + (uri "mirror://cpan/Foo-Bar-0.0.0.tgz")))) + (list %cpan-updater))) - (list (upstream-source-urls source) - (upstream-source-signature-urls source) - (upstream-source-inputs source)))) + (list (upstream-source-urls source) + (upstream-source-signature-urls source) + (upstream-source-inputs source))))) (test-equal "metacpan-url->mirror-url, http" "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz" |