diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-04-28 19:41:08 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-04-28 19:55:48 +0200 |
commit | cd7b8102316cd4151356c4b2b7909c7435593890 (patch) | |
tree | 4a244926d83eab578af788e65eb343aa5ce25bcb /guile/tests/errors.scm | |
parent | 8849df91785e5a28d72e6135604428ecc027778b (diff) | |
download | gnutls-cd7b8102316cd4151356c4b2b7909c7435593890.tar.gz |
guile: Fix tests to match the `exit' behavior introduced in Guile 2.0.1.
This fix makes tests behave correctly wrt. to the Guile bug fix at
<http://git.sv.gnu.org/cgit/guile.git/commit/?id=e309f3bf9ee910c4772353ca3ff95f6f4ef466b5>.
Diffstat (limited to 'guile/tests/errors.scm')
-rw-r--r-- | guile/tests/errors.scm | 22 |
1 files changed, 8 insertions, 14 deletions
diff --git a/guile/tests/errors.scm b/guile/tests/errors.scm index cec6491649..65b4ae9fa6 100644 --- a/guile/tests/errors.scm +++ b/guile/tests/errors.scm @@ -1,5 +1,5 @@ ;;; GnuTLS --- Guile bindings for GnuTLS. -;;; Copyright (C) 2007, 2010 Free Software Foundation, Inc. +;;; Copyright (C) 2007, 2010, 2011 Free Software Foundation, Inc. ;;; ;;; GnuTLS is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -22,25 +22,19 @@ ;;; Test the error/exception mechanism. ;;; -(use-modules (gnutls)) - -(dynamic-wind - (lambda () - #t) +(use-modules (gnutls) + (gnutls build tests)) +(run-test (lambda () (let ((s (make-session connection-end/server))) (catch 'gnutls-error (lambda () (handshake s)) (lambda (key err function . currently-unused) - (exit (and (eq? key 'gnutls-error) - err - (string? (error->string err)) - (eq? function 'handshake))))))) - - (lambda () - ;; failure - (exit 1))) + (and (eq? key 'gnutls-error) + err + (string? (error->string err)) + (eq? function 'handshake))))))) ;;; arch-tag: 73ed6229-378d-4a12-a5c6-4c2586c6e3a2 |