From 3c8d5002e404cd725a9effbe61466b82d345ba93 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Thu, 18 Jan 2007 22:23:44 +0000 Subject: [PATCH] (exception:string-contains-nul): New exception pattern. --- test-suite/lib.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/test-suite/lib.scm b/test-suite/lib.scm index 818a9b06d..111d470e1 100644 --- a/test-suite/lib.scm +++ b/test-suite/lib.scm @@ -1,5 +1,5 @@ ;;;; test-suite/lib.scm --- generic support for testing -;;;; Copyright (C) 1999, 2000, 2001, 2004, 2006 Free Software Foundation, Inc. +;;;; Copyright (C) 1999, 2000, 2001, 2004, 2006, 2007 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -30,6 +30,7 @@ exception:numerical-overflow exception:struct-set!-denied exception:miscellaneous-error + exception:string-contains-nul ;; Reporting passes and failures. run-test @@ -259,6 +260,11 @@ (define exception:miscellaneous-error (cons 'misc-error "^.*")) +;; as per throw in scm_to_locale_stringn() +(define exception:string-contains-nul + (cons 'misc-error "^string contains #\\\\nul character")) + + ;;; Display all parameters to the default output port, followed by a newline. (define (display-line . objs) (for-each display objs)