From: kaoru Date: Wed, 6 Apr 2011 14:37:48 +0000 (+0000) Subject: * test-dist.el: Add `lexical-binding' file variable. X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-2^2~6 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ac8aeb79b2d37c024fb3daf9dd0880690b04ad73;p=elisp%2Fwanderlust.git * test-dist.el: Add `lexical-binding' file variable. (test-wl-modules-trailing-whitespace, test-elmo-modules-exists) (test-elmo-modules-trailing-whitespace) (test-util-modules-exists) (test-util-modules-trailing-whitespace, test-wl-icon-exists): Fix let style for `lexical-binding'. --- diff --git a/tests/ChangeLog b/tests/ChangeLog index f6adbaf..8710689 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,12 @@ +2011-04-06 TAKAHASHI Kaoru + + * test-dist.el: Add `lexical-binding' file variable. + (test-wl-modules-trailing-whitespace, test-elmo-modules-exists) + (test-elmo-modules-trailing-whitespace) + (test-util-modules-exists) + (test-util-modules-trailing-whitespace, test-wl-icon-exists): Fix + let style for `lexical-binding'. + 2010-08-31 TAKAHASHI Kaoru * test-dist.el (test-elmo-modules-trailing-whitespace) diff --git a/tests/test-dist.el b/tests/test-dist.el index aabfd03..5619f0b 100644 --- a/tests/test-dist.el +++ b/tests/test-dist.el @@ -1,3 +1,4 @@ +;; -*- lexical-binding: t -*- (require 'lunit) (require 'wl) (require 'cl) ; mapc @@ -5,100 +6,98 @@ (luna-define-class test-dist (lunit-test-case)) ;; WL-MODULES +(defvar test-dist-wl-lost-module-list nil) (luna-define-method test-wl-modules-exists ((case test-dist)) - (lunit-assert - (null - (let (filename lost) - (mapc - (lambda (module) - (setq filename (concat (symbol-name module) ".el")) - (unless (file-exists-p (expand-file-name filename WLDIR)) - (add-to-list 'lost filename))) - WL-MODULES) - lost)))) - + (setq test-dist-wl-lost-module nil) + (mapc + (lambda (module) + (let ((filename (concat (symbol-name module) ".el"))) + (unless (file-exists-p (expand-file-name filename WLDIR)) + (add-to-list 'test-dist-wl-lost-module-list filename)))) + WL-MODULES) + (lunit-assert (null test-dist-wl-lost-module-list))) + +(defvar test-dist-wl-bad-module-list nil) (luna-define-method test-wl-modules-trailing-whitespace ((case test-dist)) - (let (filename badmodule) - (mapc - (lambda (module) - (setq filename - (format "%s.el%s" (symbol-name module) - (if (eq 'wl-news module) ".in" ""))) + (setq test-dist-wl-bad-module-list nil) + (mapc + (lambda (module) + (let ((filename (format "%s.el%s" (symbol-name module) + (if (eq 'wl-news module) ".in" "")))) (with-temp-buffer (insert-file-contents (expand-file-name filename WLDIR)) (when (re-search-forward "[ \t]$" nil t) - (add-to-list 'badmodule filename)))) - WL-MODULES) - (lunit-assert (null badmodule)))) + (add-to-list 'test-dist-wl-bad-module-list filename))))) + WL-MODULES) + (lunit-assert (null test-dist-wl-bad-module-list))) ;; ELMO-MODULES +(defvar test-dist-elmo-lost-module-list nil) (luna-define-method test-elmo-modules-exists ((case test-dist)) - (lunit-assert - (null - (let (filename lost) - (mapc - (lambda (module) - (setq filename (concat (symbol-name module) ".el")) - (unless (file-exists-p (expand-file-name filename ELMODIR)) - (add-to-list 'lost filename))) - ELMO-MODULES) - lost)))) - + (setq test-dist-elmo-lost-module-list nil) + (mapc + (lambda (module) + (let ((filename (concat (symbol-name module) ".el"))) + (unless (file-exists-p (expand-file-name filename ELMODIR)) + (add-to-list 'test-dist-elmo-lost-module-list filename)))) + ELMO-MODULES) + (lunit-assert (null test-dist-elmo-lost-module-list))) + +(defvar test-dist-elmo-bad-module-list nil) (luna-define-method test-elmo-modules-trailing-whitespace ((case test-dist)) - (let (filename badmodule) - (mapc - (lambda (module) - (setq filename (format "%s.el" (symbol-name module))) + (setq test-dist-elmo-bad-module-list nil) + (mapc + (lambda (module) + (let ((filename (format "%s.el" (symbol-name module)))) (with-temp-buffer (insert-file-contents (expand-file-name filename ELMODIR)) (when (re-search-forward "[ \t]$" nil t) - (add-to-list 'badmodule filename)))) - ELMO-MODULES) - (lunit-assert (null badmodule)))) + (add-to-list 'test-dist-elmo-bad-module-list filename))))) + ELMO-MODULES) + (lunit-assert (null test-dist-elmo-bad-module-list))) ;; UTILS-MODULES +(defvar test-dist-util-lost-module-list nil) (luna-define-method test-util-modules-exists ((case test-dist)) - (lunit-assert - (null - (let (filename lost) - (mapc - (lambda (module) - (setq filename (concat (symbol-name module) ".el")) - (unless (file-exists-p (expand-file-name filename UTILSDIR)) - (add-to-list 'lost symbol))) - UTILS-MODULES) - lost)))) - + (setq test-dist-util-lost-module-list nil) + (mapc + (lambda (module) + (let ((filename (concat (symbol-name module) ".el"))) + (unless (file-exists-p (expand-file-name filename UTILSDIR)) + (add-to-list 'test-dist-util-lost-module-list symbol)))) + UTILS-MODULES) + (lunit-assert (null test-dist-util-lost-module-list))) + +(defvar test-dist-util-bad-module-list nil) (luna-define-method test-util-modules-trailing-whitespace ((case test-dist)) - (let (filename badmodule) - (mapc - (lambda (module) - (setq filename (format "%s.el" (symbol-name module))) + (setq test-dist-util-bad-module-list nil) + (mapc + (lambda (module) + (let ((filename (format "%s.el" (symbol-name module)))) (with-temp-buffer (insert-file-contents (expand-file-name filename UTILSDIR)) (when (re-search-forward "[ \t]$" nil t) - (add-to-list 'badmodule filename)))) - UTILS-MODULES) - (lunit-assert (null badmodule)))) + (add-to-list 'test-dist-util-bad-module-list filename))))) + UTILS-MODULES) + (lunit-assert (null test-dist-util-bad-module-list))) ;; Icons +(defvar test-dist-wl-lost-icon-list nil) (luna-define-method test-wl-icon-exists ((case test-dist)) - (lunit-assert - (null - (let (name value lost) - (mapatoms - (lambda (symbol) - (setq name (symbol-name symbol)) - (setq value (and (boundp symbol) (symbol-value symbol))) - (when (and (string-match "^wl-.*-icon$" name) - (stringp value) - (string-match "xpm$" value)) - (unless (file-exists-p (expand-file-name value ICONDIR)) - (add-to-list 'lost symbol))))) - lost)))) + (setq test-dist-wl-lost-icon-list nil) + (mapatoms + (lambda (symbol) + (let ((name (symbol-name symbol)) + (value (and (boundp symbol) (symbol-value symbol)))) + (when (and (string-match "^wl-.*-icon$" name) + (stringp value) + (string-match "xpm$" value)) + (unless (file-exists-p (expand-file-name value ICONDIR)) + (add-to-list 'test-dist-wl-lost-icon-list symbol)))))) + (lunit-assert (null test-dist-wl-lost-icon-list))) (luna-define-method test-version-status-icon-xpm ((case test-dist)) (require 'wl-demo)