[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 536ce2f 14/26: Remove unused lexical variables noted in by
From: |
Rocky Bernstein |
Subject: |
[elpa] master 536ce2f 14/26: Remove unused lexical variables noted in byte compilation |
Date: |
Thu, 25 May 2017 02:22:14 -0400 (EDT) |
branch: master
commit 536ce2f9296a09c80c9297915deadeb8ce2a14c8
Author: rocky <address@hidden>
Commit: rocky <address@hidden>
Remove unused lexical variables noted in byte compilation
---
test-simple.el | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/test-simple.el b/test-simple.el
index e257855..ae03fd4 100644
--- a/test-simple.el
+++ b/test-simple.el
@@ -184,7 +184,7 @@ out information from the previous run."
;; Assertion tests
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defmacro assert-raises (error-condition body &optional fail-message test-info)
+(defmacro assert-raises (error-condition body &optional fail-message)
(let ((fail-message (or fail-message
(format "assert-raises did not get expected %s"
error-condition))))
@@ -246,12 +246,11 @@ out information from the previous run."
(defun assert-t (actual &optional fail-message test-info)
"expectation is that ACTUAL is not nil."
- (assert-nil (not actual) fail-message test-info "assert-t"))
+ (assert-nil (not actual) fail-message test-info))
-(defun assert-nil (actual &optional fail-message test-info assert-type)
+(defun assert-nil (actual &optional fail-message test-info)
"expectation is that ACTUAL is nil. FAIL-MESSAGE is an optional
-additional message to be displayed. Since several assertions
-funnel down to this one, ASSERT-TYPE is an optional type."
+additional message to be displayed."
(unless test-info (setq test-info test-simple-info))
(incf (test-info-assert-count test-info))
(if actual
@@ -271,10 +270,9 @@ funnel down to this one, ASSERT-TYPE is an optional type."
(incf (test-info-failure-count test-info))
(let ((failure-msg
(format "\nDescription: %s, type %s\n%s" test-info-msg type fail-msg))
- (old-read-only inhibit-read-only)
)
(save-excursion
- (not-ok-msg fail-msg)
+ (not-ok-msg)
(test-simple-msg failure-msg 't)
(unless noninteractive
(if test-simple-debug-on-error
@@ -321,7 +319,7 @@ funnel down to this one, ASSERT-TYPE is an optional type."
(test-simple-msg msg))
't)
-(defun not-ok-msg(fail-message &optional test-info)
+(defun not-ok-msg(&optional test-info)
(unless test-info (setq test-info test-simple-info))
(let ((msg (if (getenv "USE_TAP")
(format "not ok %d\n" (test-info-assert-count test-info))
- [elpa] master updated (96cf00c -> a2383c7), Rocky Bernstein, 2017/05/25
- [elpa] master 9b35c3a 01/26: Use %S to print expected/actual message., Rocky Bernstein, 2017/05/25
- [elpa] master 2cbec07 02/26: Merge pull request #6 from rubikitch/better-failure-message, Rocky Bernstein, 2017/05/25
- [elpa] master 9a0f304 06/26: New function `test-simple-run': register test, Rocky Bernstein, 2017/05/25
- [elpa] master fc5c159 11/26: test-simple-run: make it a command., Rocky Bernstein, 2017/05/25
- [elpa] master 01f08e3 05/26: Document targets "check-short" and "install-short", Rocky Bernstein, 2017/05/25
- [elpa] master 46890e0 03/26: Rename test-gcd.el -> gcd-tests.el to comply with Melpa, Rocky Bernstein, 2017/05/25
- [elpa] master d857417 04/26: Merge pull request #8 from rubikitch/rename-test-filename, Rocky Bernstein, 2017/05/25
- [elpa] master 536ce2f 14/26: Remove unused lexical variables noted in byte compilation,
Rocky Bernstein <=
- [elpa] master c7987a6 07/26: Emacs exits abnormally when noninteractive test fails., Rocky Bernstein, 2017/05/25
- [elpa] master d9abe19 08/26: gcd-tests.el: Add test-simple-run comment line, Rocky Bernstein, 2017/05/25
- [elpa] master a8bd341 22/26: Merge pull request #11 from doomvox/tap_stdout, Rocky Bernstein, 2017/05/25
- [elpa] master 6fd325b 17/26: Merge pull request #10 from syohex/switch-to-cask, Rocky Bernstein, 2017/05/25
- [elpa] master 611bd94 16/26: Switch from Carton to Cask, Rocky Bernstein, 2017/05/25
- [elpa] master e199434 20/26: Minor changes, Rocky Bernstein, 2017/05/25
- [elpa] master 8204b89 10/26: .travis.yml: Drop support of Emacs23 (Test in Emacs24), Rocky Bernstein, 2017/05/25
- [elpa] master 35ef95d 09/26: Mention test-simple-run in README.md, Rocky Bernstein, 2017/05/25
- [elpa] master 613fe8b 19/26: Version 1.2.0 sync with elpa, Rocky Bernstein, 2017/05/25
- [elpa] master 604942d 24/26: Merge pull request #12 from syohex/cl-lib, Rocky Bernstein, 2017/05/25