summaryrefslogtreecommitdiff
path: root/test-suite/tests/chars.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/chars.test')
-rw-r--r--test-suite/tests/chars.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/test-suite/tests/chars.test b/test-suite/tests/chars.test
index de75d85eb..7b86dea19 100644
--- a/test-suite/tests/chars.test
+++ b/test-suite/tests/chars.test
@@ -21,6 +21,21 @@
(use-modules (test-suite lib))
+(define exception:wrong-type-to-apply
+ (cons 'misc-error "^Wrong type to apply:"))
+
+
+(with-test-prefix "basic char handling"
+
+ (with-test-prefix "evaluator"
+
+ ;; Guile prior to 2003-06-05 segfaulted on the following test, because
+ ;; within the evaluator there was no distinction between the
+ ;; evaluator-internal instruction codes and characters.
+ (pass-if-exception "evaluating chars"
+ exception:wrong-type-to-apply
+ (eval '(#\0) (interaction-environment)))))
+
(pass-if "char-is-both? works"
(and
(not (char-is-both? #\?))