From: kaoru <kaoru>
Date: Thu, 24 Oct 2002 17:00:48 +0000 (+0000)
Subject: * check-modules.el (check-modules-flim-content-transfer-encoding):
X-Git-Tag: wl-2_11_1~81
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ecbc9341bf0d502e4c6222a86375c0e96acbe16;p=elisp%2Fwanderlust.git

* check-modules.el (check-modules-flim-content-transfer-encoding):
Fixed `mime-encode-string' testcase.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 722cba2..a3a9854 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-24  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* check-modules.el (check-modules-flim-content-transfer-encoding):
+	Fixed `mime-encode-string' testcase.
+
 2002-07-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* check-modules.el (check-modules-charsets-mime-charset-alist):
diff --git a/tests/check-modules.el b/tests/check-modules.el
index a9e4071..1b1744c 100644
--- a/tests/check-modules.el
+++ b/tests/check-modules.el
@@ -84,9 +84,12 @@
 ;; Content-Transfer-Encoding (FLIM API Version 1.14 Draft Release 3)
 (luna-define-method check-modules-flim-content-transfer-encoding ((case check-modules))
   (require 'mel)
-  (lunit-assert (fboundp 'mime-decode-string)) ; [Required]<Suggest>
-;;; document only?
-;;;  (lunit-assert (fboundp 'mime-encode-string)) ; [Required]<Suggest>
+  ;; mime-decode-string (string encoding) [Required]<Suggest>
+  (lunit-assert (fboundp 'mime-decode-string))
+  (lunit-assert (fboundp (mel-find-function 'mime-decode-string "base64")))
+  ;; mime-encode-string (string encoding)  [Required]<Suggest>
+  (lunit-assert (fboundp (mel-find-function 'mime-encode-string "base64")))
+
   (lunit-assert (fboundp 'base64-decode-string)) ; [Required]
   (lunit-assert (fboundp 'base64-encode-string)) ; [Required]
   (lunit-assert (fboundp 'mime-write-decoded-region)) ; [Required]<Suggest>