From 9cd369c52f5c64f6b03dbc844ae1d3c64df90612 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 28 Jan 2003 22:17:11 +0000 Subject: [PATCH] Synch with trunk. --- tests/ChangeLog | 21 +++++++++++++++++++++ tests/check-base64.el | 11 +++++------ tests/check-modules.el | 28 ++++++++++++++-------------- 3 files changed, 40 insertions(+), 20 deletions(-) diff --git a/tests/ChangeLog b/tests/ChangeLog index 932911f..87ee7da 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,5 +1,26 @@ +2003-01-28 TAKAHASHI Kaoru + + * check-modules.el (test-apel-version): Renamed from + `check-modules-apel-version'. + (test-modules-charsets-mime-charset-alist): Ditto. + (test-x-face-xmas, test-x-face-mule): Ditto. + (test-flim-mime-entity, test-flim-mime-content-information): Ditto. + (test-flim-encoded-word, test-flim-content-transfer-encoding): Ditto. + (test-flim-mailcap, test-flim-std11, test-flim-smtp): Ditto. + (test-semi-mime-edit, test-semi-mime-view, test-semi-mime-play): Ditto. + + * check-base64.el (test-base64-encode-1): + Renamed from `check-base64-encode-1'. + (test-base64-encode-2, test-base64-encode-3): Ditto. + (test-base64-encode-4, test-base64-encode-5): Ditto. + 2003-01-17 TAKAHASHI Kaoru + * test-elmo-localdir.el: New file. + (test-elmo-folder-expand-msgdb-path-1): New testcase. + (test-elmo-folder-expand-msgdb-path-2): Ditto. + (test-elmo-folder-expand-msgdb-path-3): Ditto. + * test-dist.el (test-wl-modules-exists): Fix void variable. (test-elmo-modules-exists): Ditto. diff --git a/tests/check-base64.el b/tests/check-base64.el index c21707b..57cefd5 100644 --- a/tests/check-base64.el +++ b/tests/check-base64.el @@ -4,21 +4,21 @@ ;; mel-b-ccl on XEmacs 21.1 ;; -(luna-define-method check-base64-encode-1 ((case check-base64)) +(luna-define-method test-base64-encode-1 ((case check-base64)) (require 'elmo-util) (lunit-assert (string= "QQ==" (elmo-base64-encode-string "A")))) -(luna-define-method check-base64-encode-2 ((case check-base64)) +(luna-define-method test-base64-encode-2 ((case check-base64)) (require 'elmo-util) (lunit-assert (string= "QUE=" (elmo-base64-encode-string "AA")))) -(luna-define-method check-base64-encode-3 ((case check-base64)) +(luna-define-method test-base64-encode-3 ((case check-base64)) (require 'elmo-util) (lunit-assert (string= @@ -33,7 +33,7 @@ (elmo-base64-encode-string "" t) (wrong-number-of-arguments))) -(luna-define-method check-base64-encode-4 ((case check-base64)) +(luna-define-method test-base64-encode-4 ((case check-base64)) (lunit-assert (check-base64-encode-string-has-no-line-break-argument))) @@ -48,7 +48,6 @@ t) (wrong-number-of-arguments))) -(luna-define-method check-base64-encode-5 ((case check-base64)) +(luna-define-method test-base64-encode-5 ((case check-base64)) (lunit-assert (check-base64-encode-region-has-no-line-break-argument))) - diff --git a/tests/check-modules.el b/tests/check-modules.el index 6c65a95..e2328b0 100644 --- a/tests/check-modules.el +++ b/tests/check-modules.el @@ -8,18 +8,18 @@ ;;; ;; APEL -(luna-define-method check-modules-apel-version ((case check-modules)) +(luna-define-method test-apel-version ((case check-modules)) (require 'apel-ver) (lunit-assert (product-version>= (product-find 'apel-ver) '(10 3)))) -(luna-define-method check-modules-charsets-mime-charset-alist ((case check-modules)) +(luna-define-method test-modules-charsets-mime-charset-alist ((case check-modules)) (require 'mcharset) (lunit-assert (not (memq nil charsets-mime-charset-alist)))) ;; X-Face on XEmacs -(luna-define-method check-modules-x-face-xmas ((case check-modules)) +(luna-define-method test-x-face-xmas ((case check-modules)) (when (and (locate-library "x-face") (featurep 'xemacs)) (lunit-assert (check-modules-x-face-xmas-wl-display-x-face-was-argument-required)))) @@ -34,7 +34,7 @@ (wrong-number-of-arguments))) ;; x-face-mule -(luna-define-method check-modules-x-face-mule ((case check-modules)) +(luna-define-method test-x-face-mule ((case check-modules)) (when (and (locate-library "x-face-mule") (not (featurep 'xemacs)) (not (locate-library "x-face-e21"))) @@ -52,7 +52,7 @@ (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)) +(luna-define-method test-flim-mime-entity ((case check-modules)) (require 'mime) (lunit-assert (fboundp 'mime-open-entity)) ; [Required] (lunit-assert (fboundp 'mime-entity-children)) ; [Required] @@ -67,7 +67,7 @@ (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)) +(luna-define-method test-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] @@ -76,13 +76,13 @@ (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)) +(luna-define-method test-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)) +(luna-define-method test-flim-content-transfer-encoding ((case check-modules)) (require 'mel) ;; mime-decode-string (string encoding) [Required] (lunit-assert (fboundp 'mime-decode-string)) @@ -98,7 +98,7 @@ (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)) +(luna-define-method test-flim-mailcap ((case check-modules)) (require 'mime-conf) (lunit-assert (fboundp 'mime-parse-mailcap-buffer)) ; [Required] (lunit-assert (boundp 'mime-mailcap-file)) ; [Required] @@ -106,7 +106,7 @@ (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)) +(luna-define-method test-flim-std11 ((case check-modules)) (require 'std11) (lunit-assert (fboundp 'std11-narrow-to-header)) ; [Required] (lunit-assert (fboundp 'std11-fetch-field)) ; [Required] @@ -114,13 +114,13 @@ (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)) +(luna-define-method test-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)) +(luna-define-method test-semi-mime-edit ((case check-modules)) (require 'mime-edit) (lunit-assert (fboundp 'mime-find-file-type)) (lunit-assert (fboundp 'mime-edit-content-beginning)) @@ -128,7 +128,7 @@ (lunit-assert (fboundp 'mime-edit-preview-message)) (lunit-assert (fboundp 'mime-create-tag))) -(luna-define-method check-modules-semi-mime-view ((case check-modules)) +(luna-define-method test-semi-mime-view ((case check-modules)) (require 'mime-view) (lunit-assert (fboundp 'mime-display-message)) (lunit-assert (fboundp 'mime-maybe-hide-echo-buffer)) @@ -138,6 +138,6 @@ (lunit-assert (fboundp 'mime-display-text/plain)) (lunit-assert (fboundp 'mime-entity-situation))) -(luna-define-method check-modules-semi-mime-play ((case check-modules)) +(luna-define-method test-semi-mime-play ((case check-modules)) (require 'mime-play) (lunit-assert (fboundp 'mime-store-message/partial-piece))) -- 1.7.10.4