1: ;;
    2: ;; test for multibyte characters
    3: ;;
    4: 
    5: (add-load-path "../test")
    6: 
    7: (case (gauche-character-encoding)
    8:   ((euc-jp) (load "euc-jp"))
    9:   ((sjis)   (load "sjis"))
   10:   ((utf-8)  (load "utf-8"))
   11:   (else (format #t "No test provided for the character encoding ~s"
   12:                 (gauche-character-encoding))))