21 |
|
|
22 |
(use-modules (test-suite lib)) |
(use-modules (test-suite lib)) |
23 |
|
|
24 |
|
(define exception:wrong-type-to-apply |
25 |
|
(cons 'misc-error "^Wrong type to apply:")) |
26 |
|
|
27 |
|
|
28 |
|
(with-test-prefix "basic char handling" |
29 |
|
|
30 |
|
(with-test-prefix "evaluator" |
31 |
|
|
32 |
|
;; Guile prior to 2003-06-05 segfaulted on the following test, because |
33 |
|
;; within the evaluator there was no distinction between the |
34 |
|
;; evaluator-internal instruction codes and characters. |
35 |
|
(pass-if-exception "evaluating chars" |
36 |
|
exception:wrong-type-to-apply |
37 |
|
(eval '(#\0) (interaction-environment))))) |
38 |
|
|
39 |
(pass-if "char-is-both? works" |
(pass-if "char-is-both? works" |
40 |
(and |
(and |
41 |
(not (char-is-both? #\?)) |
(not (char-is-both? #\?)) |