tests/test-utf7.el

   1 (require 'lunit)
   2 (require 'utf7)
   3
   4 (luna-define-class test-utf7 (lunit-test-case))
   5
   6 (luna-define-method test-utf7-encode-string ((case test-utf7))
   7   (lunit-assert
   8    (string=
   9     "+ZeVnLIqe-"
  10     (utf7-encode-string "\e$BF|K\8l\e(B"))))      ; FIXME!!: don't care coding system
  11
  12 (luna-define-method test-utf7-decode-string ((case test-utf7))
  13   (lunit-assert
  14    (string=
  15     "\e$BF|K\8l\e(B"                              ; FIXME!!: don't care coding system
  16     (utf7-decode-string "+ZeVnLIqe-"))))