diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-02-11 23:47:05 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-02-11 23:51:39 +0100 |
| commit | 0f1cb023628d738bb21425c1921d17672db4f890 (patch) | |
| tree | c30e290cf3ebdb7ba915887ba3bb75faa92ac3f3 | |
| parent | bc1ad69605b6c3e2744694758d63dfc216107a82 (diff) | |
tests: Adjust pypi test to recent changes.
This is a followup to 00762a4c4c8ecdd71cccf6afdd87ae68bf9b4964.
* tests/pypi.scm ("pypi->guix-package, no wheel"): Guard against
'error?' instead of 'quit'.
| -rw-r--r-- | tests/pypi.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/pypi.scm b/tests/pypi.scm index 47a276ae58..88bb0a3116 100644 --- a/tests/pypi.scm +++ b/tests/pypi.scm @@ -32,6 +32,8 @@ #:use-module ((guix diagnostics) #:select (guix-warning-port)) #:use-module (json) #:use-module (srfi srfi-26) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) #:use-module (srfi srfi-64) #:use-module (ice-9 match) #:use-module (ice-9 optargs)) @@ -265,10 +267,8 @@ Requires-Dist: pytest (>=3.1.0); extra == 'testing' hash) (equal? (pypi->guix-package "foo" #:version "1.0.0") (pypi->guix-package "foo")) - (catch 'quit - (lambda () - (pypi->guix-package "foo" #:version "42")) - (const #t)))) + (guard (c ((error? c) #t)) + (pypi->guix-package "foo" #:version "42")))) (x (pk 'fail x #f)))))) |