diff options
Diffstat (limited to 'test-suite/tests/chars.test')
-rw-r--r-- | test-suite/tests/chars.test | 15 |
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? #\?)) |