* check-modules.el (check-modules-flim-mime-entity)

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

diff --git a/tests/check-modules.el b/tests/check-modules.el
index 41b9ed1..9bce2ee 100644 (file)
--- a/tests/check-modules.el
+++ b/tests/check-modules.el
@@ -27,3 +27,90 @@
        (x-face-xmas-wl-display-x-face)
        t)
     (wrong-number-of-arguments)))
+
+;; MIME entity (FLIM API Version 1.14 Draft Release 3)
+(luna-define-method check-modules-flim-mime-entity ((case check-modules))
+  (require 'mime)
+  (lunit-assert (fboundp 'mime-open-entity)) ; [Required]<Suggest>
+  (lunit-assert (fboundp 'mime-entity-children)) ; [Required]<Suggest>
+  (lunit-assert (fboundp 'mime-entity-fetch-field)) ; [Required]<Suggest>
+  (lunit-assert (fboundp 'mime-insert-text-content)) ; [Required]
+  (lunit-assert (boundp 'default-mime-charset)) ; [Required]
+  (lunit-assert (fboundp 'mime-entity-content)) ; [Required]
+  (lunit-assert (fboundp 'mime-write-entity-content)) ; [Required]
+  (lunit-assert (fboundp 'mime-insert-entity)) ; [Required]
+  (lunit-assert (fboundp 'mime-write-entity)) ; [Required]
+  (lunit-assert (fboundp 'mime-insert-entity-body)) ; [Required]
+  (lunit-assert (fboundp 'mime-write-entity-body))) ; [Required]
+
+;; MIME content information (FLIM API Version 1.14 Draft Release 3)
+(luna-define-method check-modules-flim-mime-content-information ((case check-modules))
+  (require 'mime)
+  (lunit-assert (fboundp 'mime-content-type-primary-type)) ; [Required]
+  (lunit-assert (fboundp 'mime-content-type-subtype)) ; [Required]
+  (lunit-assert (fboundp 'mime-content-type-parameter)) ; [Required]
+  (lunit-assert (fboundp 'mime-content-disposition-type)) ; [Required]
+  (lunit-assert (fboundp 'mime-content-disposition-parameter))) ; [Required]
+
+;; encoded-word (FLIM API Version 1.14 Draft Release 3)
+(luna-define-method check-modules-flim-encoded-word ((case check-modules))
+  (require 'mime)
+  (lunit-assert (fboundp 'mime-decode-field-body)) ; [Required]<Suggest>
+  (lunit-assert (fboundp 'mime-encode-field-body))) ; [Required]<Suggest>
+
+;; 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>
+  (lunit-assert (fboundp 'base64-decode-string)) ; [Required]
+  (lunit-assert (fboundp 'base64-encode-string)) ; [Required]
+  (lunit-assert (fboundp 'mime-write-decoded-region)) ; [Required]<Suggest>
+  (lunit-assert (fboundp 'mime-insert-encoded-file)) ; [Required]<Suggest>
+  (lunit-assert (fboundp 'binary-write-decoded-region)) ; [Required]
+  (lunit-assert (fboundp 'binary-insert-encoded-file))) ; [Required]
+
+;; Mailcap (FLIM API Version 1.14 Draft Release 3)
+(luna-define-method check-modules-flim-mailcap ((case check-modules))
+  (require 'mime-conf)
+  (lunit-assert (fboundp 'mime-parse-mailcap-buffer)) ; [Required]<Suggest>
+  (lunit-assert (boundp 'mime-mailcap-file)) ; [Required]<Suggest>
+  (lunit-assert (fboundp 'mime-parse-mailcap-file)) ; [Required]<Suggest>
+  (lunit-assert (fboundp 'mime-format-mailcap-command))) ; [Required]<Suggest>
+
+;; STD 11 (FLIM API Version 1.14 Draft Release 3)
+(luna-define-method check-modules-flim-std11 ((case check-modules))
+  (require 'std11)
+  (lunit-assert (fboundp 'std11-narrow-to-header)) ; [Required]
+  (lunit-assert (fboundp 'std11-fetch-field)) ; [Required]
+  (lunit-assert (fboundp 'std11-field-body)) ; [Required]
+  (lunit-assert (fboundp 'std11-unfold-string))) ; [Required]
+
+;; SMTP (FLIM API Version 1.14 Draft Release 3)
+(luna-define-method check-modules-flim-smtp ((case check-modules))
+  (require 'smtp)
+  (lunit-assert (fboundp 'smtp-send-buffer))) ; [Suggest]
+
+
+;; SEMI
+(luna-define-method check-modules-semi-mime-edit ((case check-modules))
+  (require 'mime-edit)
+  (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)))
+
+(luna-define-method check-modules-semi-mime-view ((case check-modules))
+  (require 'mime-view)
+  (lunit-assert (fboundp 'mime-display-message))
+  (lunit-assert (fboundp 'mime-maybe-hide-echo-buffer))
+  (lunit-assert (fboundp 'mime-preview-original-major-mode))
+  (lunit-assert (fboundp 'mime-preview-follow-current-entity))
+  (lunit-assert (fboundp 'mime-view-mode))
+  (lunit-assert (fboundp 'mime-display-text/plain))
+  (lunit-assert (fboundp 'mime-entity-situation)))
+
+(luna-define-method check-modules-semi-mime-play ((case check-modules))
+  (require 'mime-play)
+  (lunit-assert (fboundp 'mime-store-message/partial-piece)))