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

Add VM exception in strings.test

Browse source 
* test-suite/tests/strings.test (exception:wrong-type-arg): change regex
This commit is contained in:
Michael Gran 2009-08-19 22:12:33 -07:00
parent 9aa27c1a30
commit 2759c092d0
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -24,6 +24,10 @@
(cons 'misc-error "^string is read-only"))
(define exception:illegal-escape
(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"
(define (string-ints . args)