/[guile]/guile/guile-core/test-suite/tests/chars.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/chars.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by gjb, Sun Jan 16 22:03:44 2000 UTC revision 1.2 by dirk, Wed Jun 4 23:22:53 2003 UTC
# Line 21  Line 21 
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? #\?))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26