diff options
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 |