1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-02 02:10:19 +02:00

(exception:string-contains-nul): New exception pattern.

This commit is contained in:
Kevin Ryde 2007-01-18 22:23:44 +00:00
parent 72709d26e4
commit 3c8d5002e4

View file

@ -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)