me
/
guix
Archived
1
0
Fork 0
Code

tests: Adjust pypi test to recent changes. 

This is a followup to 00762a4c4c.

* tests/pypi.scm ("pypi->guix-package, no wheel"): Guard against
'error?' instead of 'quit'.
master
Ludovic Courtès 2022-02-11 23:47:05 +01:00
parent bc1ad69605
commit 0f1cb02362
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/pypi.scm
View File

@ -32,6 +32,8 @@
#:use-module ((guix diagnostics) #:select (guix-warning-port)) #:use-module ((guix diagnostics) #:select (guix-warning-port))
#:use-module (json) #:use-module (json)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (srfi srfi-64) #:use-module (srfi srfi-64)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 optargs)) #:use-module (ice-9 optargs))
@ -265,10 +267,8 @@ Requires-Dist: pytest (>=3.1.0); extra == 'testing'
hash) hash)
(equal? (pypi->guix-package "foo" #:version "1.0.0") (equal? (pypi->guix-package "foo" #:version "1.0.0")
(pypi->guix-package "foo")) (pypi->guix-package "foo"))
(catch 'quit (guard (c ((error? c) #t))
(lambda () (pypi->guix-package "foo" #:version "42"))))
(pypi->guix-package "foo" #:version "42"))
(const #t))))
(x (x
(pk 'fail x #f)))))) (pk 'fail x #f))))))