summary refs log tree commit diff
path: root/tests/pypi.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-02-11 23:47:05 +0100
committerLudovic Courtès <ludo@gnu.org>2022-02-11 23:51:39 +0100
commit0f1cb023628d738bb21425c1921d17672db4f890 (patch)
treec30e290cf3ebdb7ba915887ba3bb75faa92ac3f3 /tests/pypi.scm
parentbc1ad69605b6c3e2744694758d63dfc216107a82 (diff)
downloadguix-0f1cb023628d738bb21425c1921d17672db4f890.tar.gz
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'.
Diffstat (limited to 'tests/pypi.scm')
-rw-r--r--tests/pypi.scm8
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))))))