tests/test-utf7.el

   1 (require 'lunit)
   2
   3 (require 'utf7)
   4
   5 (luna-define-class test-utf7 (lunit-test-case))
   6
   7 (luna-define-method test-utf7-encode-string-nihongo ((case test-utf7))
   8   (lunit-assert
   9    (string=
  10     "+ZeVnLIqe-A"
  11     (utf7-encode
  12      (string (make-char 'japanese-jisx0208 70 124)
  13              (make-char 'japanese-jisx0208 75 92)
  14              (make-char 'japanese-jisx0208 56 108)
  15              ?A)))))
  16
  17 (luna-define-method test-utf7-encode-string-smiling-face ((case test-utf7))
  18   (lunit-assert
  19    (string=
  20     "Hi Mom -+Jjo--!"
  21     (utf7-encode
  22      (concat "Hi Mom -"
  23              (string (make-char 'mule-unicode-2500-33ff 35 58))
  24              "-!")))))
  25
  26 (luna-define-method test-utf7-encode-string-alpha ((case test-utf7))
  27   (lunit-assert
  28    (string=
  29     "A+ImIDkQ-."
  30     (utf7-encode
  31      (concat "A"
  32              (string (make-char 'mule-unicode-0100-24ff 121 34)
  33                      (make-char 'mule-unicode-0100-24ff 38 113))
  34              ".")))))
  35
  36 (luna-define-method test-utf7-encode-string-plus ((case test-utf7))
  37   (lunit-assert
  38    (string= "+-" (utf7-encode "+"))))
  39
  40 (luna-define-method test-utf7-encode-string-noconv ((case test-utf7))
  41   (lunit-assert
  42    (string= "" (utf7-encode "")))
  43   (lunit-assert
  44    (string= "a" (utf7-encode "a")))
  45   (lunit-assert
  46    (string= "-" (utf7-encode "-")))
  47   (lunit-assert
  48    (string= "=" (utf7-encode "="))))
  49
  50
  51 (luna-define-method test-utf7-decode-string-nihongo ((case test-utf7))
  52   (lunit-assert
  53    (string=
  54     (string (make-char 'japanese-jisx0208 70 124)
  55             (make-char 'japanese-jisx0208 75 92)
  56             (make-char 'japanese-jisx0208 56 108))
  57     (utf7-decode "+ZeVnLIqe-"))))
  58
  59 (luna-define-method test-utf7-decode-string-smiling-face ((case test-utf7))
  60   (lunit-assert
  61    (string=
  62     (concat "Hi Mom -"
  63             (string (make-char 'mule-unicode-2500-33ff 35 58))
  64             "-!")
  65     (utf7-decode "Hi Mom -+Jjo--!"))))
  66
  67 (luna-define-method test-utf7-decode-string-alpha ((case test-utf7))
  68   (lunit-assert
  69    (string=
  70     (concat "A"
  71             (string (make-char 'mule-unicode-0100-24ff 121 34)
  72                     (make-char 'mule-unicode-0100-24ff 38 113))
  73             ".")
  74     (utf7-decode "A+ImIDkQ."))) ; omit `-'
  75   ;;
  76   (lunit-assert
  77    (string=
  78     (concat "A"
  79             (string (make-char 'mule-unicode-0100-24ff 121 34)
  80                     (make-char 'mule-unicode-0100-24ff 38 113))
  81             ".")
  82     (utf7-decode "A+ImIDkQ-."))))
  83
  84 (luna-define-method test-utf7-decode-string-plus ((case test-utf7))
  85   (lunit-assert
  86    (string= "+" (utf7-decode "+-")))
  87   (lunit-assert
  88    (string= "++" (utf7-decode "+-+-")))
  89   (lunit-assert
  90    (string= "+++" (utf7-decode "+-+-+-")))
  91   (lunit-assert
  92    (string= "++++" (utf7-decode "+-+-+-+-"))))
  93
  94 (luna-define-method test-utf7-decode-string-noconv ((case test-utf7))
  95   (lunit-assert
  96    (string= "" (utf7-decode "")))
  97   (lunit-assert
  98    (string= "a" (utf7-decode "a")))
  99   (lunit-assert
 100    (string= "-" (utf7-decode "-")))
 101   (lunit-assert
 102    (string= "=" (utf7-encode "="))))