1: ;;
    2: ;; Test reader/writer case (in)sensitivty
    3: ;; Must be called with -e "(define *case-fold* #t)" or
    4: ;; -e "(define *case-fold* #f)" 
    5: ;;
    6: 
    7: ;; $Id: symcase.scm,v 1.2 2003/01/08 03:04:14 shirok Exp $
    8: 
    9: (use gauche.test)
   10: 
   11: (if *case-fold*
   12:     (test-start "case-insensitive reader/writer")
   13:     (test-start "case-sensitive reader/writer"))
   14: 
   15: (test* "reader" "abc"
   16:        (symbol->string 'abc))
   17: (test* "reader" (if *case-fold* "abc" "Abc")
   18:        (symbol->string 'Abc))
   19: (test* "reader" (if *case-fold* "abc" "aBc")
   20:        (symbol->string 'aBc))
   21: (test* "reader" "AbC"
   22:        (symbol->string '|AbC|))
   23: 
   24: (test* "writer" "abc"
   25:        (write-to-string 'abc))
   26: (test* "writer" (if *case-fold* "|Abc|" "Abc")
   27:        (write-to-string '|Abc|))
   28: (test* "writer" (if *case-fold* "|abC|" "abC")
   29:        (write-to-string '|abC|))
   30: 
   31: (test-end)