tests/test-utf7.el

   1 (require 'lunit)
   2 (require 'utf7)
   3
   4 ;; Emacs 21.3.50 or later
   5 (if (boundp 'utf-translate-cjk-mode)
   6     (utf-translate-cjk-mode 1)
   7   ;; Use Mule-UCS if installed
   8   (ignore-errors (require 'un-define)))
   9
  10 (luna-define-class test-utf7 (lunit-test-case))
  11
  12 (luna-define-method test-utf7-encode-string ((case test-utf7))
  13   (lunit-assert
  14    (string=
  15     "+ZeVnLIqe-"
  16     (utf7-encode-string "\e$BF|K\8l\e(B"))))      ; FIXME!!: don't care coding system
  17
  18 (luna-define-method test-utf7-decode-string ((case test-utf7))
  19   (lunit-assert
  20    (string=
  21     "\e$BF|K\8l\e(B"                              ; FIXME!!: don't care coding system
  22     (utf7-decode-string "+ZeVnLIqe-"))))