diff options
Diffstat (limited to 'test-suite/tests/strings.test')
-rw-r--r-- | test-suite/tests/strings.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/strings.test b/test-suite/tests/strings.test index a35dd20d8..3f245371d 100644 --- a/test-suite/tests/strings.test +++ b/test-suite/tests/strings.test @@ -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) |