summaryrefslogtreecommitdiff
path: root/test-suite/tests/strings.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/strings.test')
-rw-r--r--test-suite/tests/strings.test4
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)