tests/test-utf7.el

   1 ;; -*- coding: iso-2022-jp -*-
   2 (require 'lunit)
   3
   4 ;; Emacs 21
   5 (unless (and (fboundp 'find-coding-system) (find-coding-system 'utf-16))
   6   (ignore-errors (require 'un-define)))
   7 (require 'utf7)
   8
   9 ;; Emacs 21.3.50 to 22
  10 (when (fboundp 'utf-translate-cjk-mode)
  11   (utf-translate-cjk-mode 1))
  12
  13 (luna-define-class test-utf7 (lunit-test-case))
  14
  15 (luna-define-method test-utf7-encode-string ((case test-utf7))
  16   (lunit-assert
  17    (string=
  18     "+ZeVnLIqe-"
  19     (utf7-encode-string "\e$BF|K\8l\e(B"))))      ; FIXME!!: don't care coding system
  20
  21 (luna-define-method test-utf7-decode-string ((case test-utf7))
  22   (lunit-assert
  23    (string=
  24     "\e$BF|K\8l\e(B"                              ; FIXME!!: don't care coding system
  25     (utf7-decode-string "+ZeVnLIqe-"))))