* test-dist.el (test-wl-modules-exists): Fix void variable.

[elisp/wanderlust.git] / tests / check-modules.el

diff --git a/tests/check-modules.el b/tests/check-modules.el
index a9e4071..6c65a95 100644 (file)
--- 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>
@@ -122,7 +125,8 @@
   (lunit-assert (fboundp 'mime-find-file-type))
   (lunit-assert (fboundp 'mime-edit-content-beginning))
   (lunit-assert (fboundp 'mime-edit-content-end))
-  (lunit-assert (fboundp 'mime-edit-preview-message)))
+  (lunit-assert (fboundp 'mime-edit-preview-message))
+  (lunit-assert (fboundp 'mime-create-tag)))
 
 (luna-define-method check-modules-semi-mime-view ((case check-modules))
   (require 'mime-view)