From: kaoru Date: Sun, 25 Nov 2001 04:13:12 +0000 (+0000) Subject: * check-modules.el (check-modules-flim-mime-entity) X-Git-Tag: wl-2_8-root~114 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=94ad4ba256192f539a193775bb65222f3a79dc2e;p=elisp%2Fwanderlust.git * check-modules.el (check-modules-flim-mime-entity) (check-modules-flim-mime-content-information) (check-modules-flim-encoded-word) (check-modules-flim-content-transfer-encoding) (check-modules-flim-mailcap, check-modules-flim-std11) (check-modules-flim-smtp) (check-modules-semi-mime-edit, check-modules-semi-mime-view) (check-modules-semi-mime-play): New testcases. --- diff --git a/tests/ChangeLog b/tests/ChangeLog index 049a3ae..212a592 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,14 @@ +2001-11-25 TAKAHASHI Kaoru + + * check-modules.el (check-modules-flim-mime-entity) + (check-modules-flim-mime-content-information) + (check-modules-flim-encoded-word) + (check-modules-flim-content-transfer-encoding) + (check-modules-flim-mailcap, check-modules-flim-std11) + (check-modules-flim-smtp) + (check-modules-semi-mime-edit, check-modules-semi-mime-view) + (check-modules-semi-mime-play): New testcases. + 2001-10-28 TAKAHASHI Kaoru * check-modules.el diff --git a/tests/check-modules.el b/tests/check-modules.el index 41b9ed1..9bce2ee 100644 --- 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] + (lunit-assert (fboundp 'mime-entity-children)) ; [Required] + (lunit-assert (fboundp 'mime-entity-fetch-field)) ; [Required] + (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] + (lunit-assert (fboundp 'mime-encode-field-body))) ; [Required] + +;; 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] +;;; document only? +;;; (lunit-assert (fboundp 'mime-encode-string)) ; [Required] + (lunit-assert (fboundp 'base64-decode-string)) ; [Required] + (lunit-assert (fboundp 'base64-encode-string)) ; [Required] + (lunit-assert (fboundp 'mime-write-decoded-region)) ; [Required] + (lunit-assert (fboundp 'mime-insert-encoded-file)) ; [Required] + (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] + (lunit-assert (boundp 'mime-mailcap-file)) ; [Required] + (lunit-assert (fboundp 'mime-parse-mailcap-file)) ; [Required] + (lunit-assert (fboundp 'mime-format-mailcap-command))) ; [Required] + +;; 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)))