mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Remove mention of vm-error from test suite

Browse source 
* test-suite/test-suite/lib.scm (exception:vm-error): Remove.
* test-suite/tests/strings.test: Remove override of
  exception:wrong-type-arg; not needed since a while ago.
This commit is contained in:
Andy Wingo 2018-06-27 09:52:10 +02:00
parent 6eb4735149
commit adf8d9353e
2 changed files with 4 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/test-suite/lib.scm
View file

@ -1,6 +1,6 @@
;;;; test-suite/lib.scm --- generic support for testing ;;;; test-suite/lib.scm --- generic support for testing
;;;; Copyright (C) 1999, 2000, 2001, 2004, 2006, 2007, 2009, 2010, ;;;; Copyright (C) 1999-2001,2004,2006-2007,2009-2014,2018
;;;; 2011, 2012, 2013, 2014 Free Software Foundation, Inc. ;;;; Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or ;;;; This program is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -39,7 +39,6 @@
exception:string-contains-nul exception:string-contains-nul
exception:read-error exception:read-error
exception:null-pointer-error exception:null-pointer-error
exception:vm-error
;; Reporting passes and failures. ;; Reporting passes and failures.
run-test run-test
@ -294,8 +293,6 @@
(cons 'read-error "^.*$")) (cons 'read-error "^.*$"))
(define exception:null-pointer-error (define exception:null-pointer-error
(cons 'null-pointer-error "^.*$")) (cons 'null-pointer-error "^.*$"))
(define exception:vm-error
(cons 'vm-error "^.*$"))
;; as per throw in scm_to_locale_stringn() ;; as per throw in scm_to_locale_stringn()
(define exception:string-contains-nul (define exception:string-contains-nul

8
test-suite/tests/strings.test
View file

@ -1,8 +1,8 @@
;;;; strings.test --- test suite for Guile's string functions -*- scheme -*- ;;;; strings.test --- test suite for Guile's string functions -*- scheme -*-
;;;; Jim Blandy <jimb@red-bean.com> --- August 1999 ;;;; Jim Blandy <jimb@red-bean.com> --- August 1999
;;;; ;;;;
;;;; Copyright (C) 1999, 2001, 2004-2006, 2008-2011, 2013, ;;;; Copyright (C) 1999,2001,2004-2006,2008-2011,2013,2015,2018
;;;; 2015 Free Software Foundation, Inc. ;;;; Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -26,10 +26,6 @@
(cons 'misc-error "^string is read-only")) (cons 'misc-error "^string is read-only"))
(define exception:illegal-escape (define exception:illegal-escape
(cons 'read-error "illegal character in escape sequence")) (cons 'read-error "illegal character in escape sequence"))
;; Wrong types may have either the 'wrong-type-arg key when
;; interpreted or 'vm-error when compiled. This matches both.
(define exception:wrong-type-arg
(cons #t "Wrong type"))
;; Create a string from integer char values, eg. (string-ints 65) => "A" ;; Create a string from integer char values, eg. (string-ints 65) => "A"
(define (string-ints . args) (define (string-ints . args)