From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Gemini Lasswell Newsgroups: gmane.emacs.bugs Subject: bug#24402: 25.1.50; testcover-start breaks should-error Date: Fri, 9 Sep 2016 18:26:40 -0700 Message-ID: <3654D8E9-D3CB-402B-922F-B132C1871E9F@runbox.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 (Mac OS X Mail 9.3 \(3124\)) Content-Type: multipart/mixed; boundary="Apple-Mail=_6ECBAF97-8E4F-4898-9530-07141E44E087" X-Trace: blaine.gmane.org 1473473973 2546 195.159.176.226 (10 Sep 2016 02:19:33 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sat, 10 Sep 2016 02:19:33 +0000 (UTC) To: 24402@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Sep 10 04:19:27 2016 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1biXt1-0007PB-Aq for geb-bug-gnu-emacs@m.gmane.org; Sat, 10 Sep 2016 04:19:19 +0200 Original-Received: from localhost ([::1]:32792 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1biXsz-0007mu-Cu for geb-bug-gnu-emacs@m.gmane.org; Fri, 09 Sep 2016 22:19:17 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:47116) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1biXso-0007la-9D for bug-gnu-emacs@gnu.org; Fri, 09 Sep 2016 22:19:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1biXsj-0006Sn-V3 for bug-gnu-emacs@gnu.org; Fri, 09 Sep 2016 22:19:05 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:57326) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1biXsj-0006Sj-Rq for bug-gnu-emacs@gnu.org; Fri, 09 Sep 2016 22:19:01 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1biXsj-000297-NH for bug-gnu-emacs@gnu.org; Fri, 09 Sep 2016 22:19:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Gemini Lasswell Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 10 Sep 2016 02:19:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 24402 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.14734739098199 (code B ref -1); Sat, 10 Sep 2016 02:19:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 10 Sep 2016 02:18:29 +0000 Original-Received: from localhost ([127.0.0.1]:55036 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1biXsC-000289-Ue for submit@debbugs.gnu.org; Fri, 09 Sep 2016 22:18:29 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:49022) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1biX4h-0000vY-Gd for submit@debbugs.gnu.org; Fri, 09 Sep 2016 21:27:20 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1biX4Z-00044A-2J for submit@debbugs.gnu.org; Fri, 09 Sep 2016 21:27:14 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:55413) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1biX4Y-00043U-Un for submit@debbugs.gnu.org; Fri, 09 Sep 2016 21:27:10 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:39992) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1biX4U-0000SQ-LB for bug-gnu-emacs@gnu.org; Fri, 09 Sep 2016 21:27:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1biX4Q-00041K-E6 for bug-gnu-emacs@gnu.org; Fri, 09 Sep 2016 21:27:05 -0400 Original-Received: from aibo.runbox.com ([91.220.196.211]:46634) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1biX4P-00040n-Ur for bug-gnu-emacs@gnu.org; Fri, 09 Sep 2016 21:27:02 -0400 Original-Received: from [10.9.9.210] (helo=mailfront10.runbox.com) by bars.runbox.com with esmtp (Exim 4.71) (envelope-from ) id 1biX4N-0006cA-80 for bug-gnu-emacs@gnu.org; Sat, 10 Sep 2016 03:26:59 +0200 Original-Received: from c-24-22-244-161.hsd1.wa.comcast.net ([24.22.244.161] helo=[172.20.1.143]) by mailfront10.runbox.com with esmtpsa (uid:179284 ) (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:256) (Exim 4.82) id 1biX46-00064z-Mk for bug-gnu-emacs@gnu.org; Sat, 10 Sep 2016 03:26:43 +0200 X-Mailer: Apple Mail (2.3124) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Mailman-Approved-At: Fri, 09 Sep 2016 22:18:27 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:123131 Archived-At: --Apple-Mail=_6ECBAF97-8E4F-4898-9530-07141E44E087 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 Enabling code coverage on a file containing an ert test that uses = should-error causes the test to fail. Steps to reproduce: 1. Start emacs (I used: open nextstep/Emacs.app =E2=80=94args -Q) 2. Create a buffer containing the following code and save it as bug.el: (require 'ert) (require 'testcover) (ert-deftest should-error-bug () (should-error (my-error))) (defun my-error () (/ 1 0)) 3. M-x eval-buffer RET 4. M-x ert RET t RET 5. The test passes. 6. M-x testcover-start RET bug.el RET 7. M-x ert RET t RET 8. The test fails. TAB TAB d produced the attached debugger output. --Apple-Mail=_6ECBAF97-8E4F-4898-9530-07141E44E087 Content-Disposition: attachment; filename=bug.txt Content-Type: text/plain; name="bug.txt" Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (arith-error) apply(debug (error (arith-error))) ert--run-test-debugger([cl-struct-ert--test-execution-info = [cl-struct-ert-test should-error-bug nil (lambda nil (testcover-enter = (quote test@should-error-bug) (function (lambda nil (testcover-after 3 = (let ... ...)))))) nil :passed nil] [cl-struct-ert-test-failed nil nil = (arith-error) ((t (lambda nil (testcover-1value 1 (/ 1 0)))) (t = testcover-enter my-error (lambda nil (testcover-1value 1 (/ 1 0)))) (t = my-error) (nil list 2 (my-error)) (nil let ((fn-7 (function = testcover-after)) (args-8 (list 2 (my-error)))) (let ((value-9 (quote = ert-form-evaluation-aborted-10))) (let (form-description-11) (let (... = ...) (condition-case -condition- ... ...) (if errorp12 nil ...))) = value-9)) (nil testcover-after 3 (let ((fn-7 (function testcover-after)) = (args-8 (list 2 ...))) (let ((value-9 ...)) (let (form-description-11) = (let ... ... ...)) value-9))) (t (lambda nil (testcover-after 3 (let = (... ...) (let ... ... value-9))))) (t testcover-enter = test@should-error-bug (lambda nil (testcover-after 3 (let (... ...) (let = ... ... value-9))))) (t (lambda nil (testcover-enter (quote = test@should-error-bug) (function (lambda nil ...))))) (t = ert--run-test-internal #0) (t ert-run-test [cl-struct-ert-test = should-error-bug nil (lambda nil (testcover-enter (quote = test@should-error-bug) (function ...))) nil :passed nil]) (t = ert-run-or-rerun-test [cl-struct-ert--stats t [[cl-struct-ert-test = should-error-bug nil (lambda nil ...) nil :passed nil]] #s(hash-table = size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data = (should-error-bug 0)) [nil] [(22483 23504 1016 0)] [(22483 22641 595275 = 0)] 0 0 0 0 0 (22483 22641 578681 0) (22483 22641 595513 0) nil = [cl-struct-ert-test should-error-bug nil (lambda nil (testcover-enter = ... ...)) nil :passed nil] 1473469392.100925] [cl-struct-ert-test = should-error-bug nil (lambda nil (testcover-enter (quote = test@should-error-bug) (function ...))) nil :passed nil] #[385 = "\306=02\307\"\203)=00\211\211G\310U\203=14=00\211@\202=1B=00\311\312\313=03= GD\"\301\314=02\302\242\300#\240\210\315\301\242!\207\306=02\316\"\203\222= =00\211\211G\317U\203A=00\211=01A\262=02\242\202H=00\311\312\313=03GD\"=01= @\303\320=02\204T=00\321\202U=00\322\323=05!\324=06=06!\325=06=07!\211\326= U\203j=00\321\202n=00\327\330=02\"\262=01\331=06=08!\211\326U\203~=00\321\= 202\202=00\327\332=02\"\262=01&=06\210\333r\301\242q\210\f)=03\"\207\306=02= \334\"\203\372=00\211\211G\317U\203\252=00\211=01A\262=02\242\202\261=00\3= 11\312\313=03GD\"=01@r\301\242q\210\f\335=03=03\"\336=02=02\"\211\204\311=00= \337\340!\210\211\317H\211\326H=0D= >\204\333=00\311\341\342=03D\"\210\211\211\310=06=07I\266=03=0E-=02\343\31= 3\344\"I\210\345=03=06=06\"\210\346=03=02\"\266\203)\207\306=02\347\"\203\= 204=01\211\211G\350U\203=12=01\211=01A\262=02\242\202=19=01\311\312\313=03= GD\"=01\211A\262=03\242=02@r\301\242q\210\f\335=04=04\"\336=02=02\"\211\31= 7H\211\326H=0D= >\204A=01\311\341\342=03D\"\210\211\317H\262=01\203g=01\211\317H\211\326H=0D= >\204[=01\311\341\342=03D\"\210\211\211\317\351=06 =06 = \"I\266=03=0E-=02\343=06=06\351=06 =06 = \"\"I\210\345=03=06=07\"\210\346=03=02\"\266\203)\207\352\353=03\354#\205\= 215=01\313\207" [nil (#) (#4) message ert--results-ewoc = cl-struct-ert--ewoc-entry-tags eql run-started 1 signal = wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer = run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" = "Aborted: " ert-stats-total ert-stats-completed-expected = ert-stats-completed-unexpected 0 format ", %s unexpected" = ert-stats-skipped ", %s skipped" ert--results-update-stats-display = test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node = wrong-type-argument ert--ewoc-entry ert-char-for-test-result t = ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 = ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started = run-ended test-started test-ended) ert--results-progress-bar-string] 16 = "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) (t = ert-results-rerun-test-at-point) (t = ert-results-rerun-test-at-point-debugging-errors) (t = funcall-interactively ert-results-rerun-test-at-point-debugging-errors) = (t call-interactively ert-results-rerun-test-at-point-debugging-errors = nil nil) (t command-execute = ert-results-rerun-test-at-point-debugging-errors)) nil] #[0 = "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] debug t] (error = (arith-error))) #[128 "\301\300=02\"\207" [[cl-struct-ert--test-execution-info = [cl-struct-ert-test should-error-bug nil (lambda nil (testcover-enter = (quote test@should-error-bug) (function (lambda nil ...)))) nil :passed = nil] [cl-struct-ert-test-failed nil nil (arith-error) ((t (lambda nil = (testcover-1value 1 ...))) (t testcover-enter my-error (lambda nil = (testcover-1value 1 ...))) (t my-error) (nil list 2 (my-error)) (nil let = ((fn-7 ...) (args-8 ...)) (let (...) (let ... ...) value-9)) (nil = testcover-after 3 (let (... ...) (let ... ... value-9))) (t (lambda nil = (testcover-after 3 ...))) (t testcover-enter test@should-error-bug = (lambda nil (testcover-after 3 ...))) (t (lambda nil (testcover-enter = ... ...))) (t ert--run-test-internal #2) (t ert-run-test = [cl-struct-ert-test should-error-bug nil (lambda nil ...) nil :passed = nil]) (t ert-run-or-rerun-test [cl-struct-ert--stats t = [[cl-struct-ert-test should-error-bug nil ... nil :passed nil]] = #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data = (should-error-bug 0)) [nil] [...] [...] 0 0 0 0 0 (22483 22641 578681 0) = (22483 22641 595513 0) nil [cl-struct-ert-test should-error-bug nil ... = nil :passed nil] 1473469392.100925] [cl-struct-ert-test should-error-bug = nil (lambda nil ...) nil :passed nil] #[385 = "\306=02\307\"\203)=00\211\211G\310U\203=14=00\211@\202=1B=00\311\312\313=03= GD\"\301\314=02\302\242\300#\240\210\315\301\242!\207\306=02\316\"\203\222= =00\211\211G\317U\203A=00\211=01A\262=02\242\202H=00\311\312\313=03GD\"=01= @\303\320=02\204T=00\321\202U=00\322\323=05!\324=06=06!\325=06=07!\211\326= U\203j=00\321\202n=00\327\330=02\"\262=01\331=06=08!\211\326U\203~=00\321\= 202\202=00\327\332=02\"\262=01&=06\210\333r\301\242q\210\f)=03\"\207\306=02= \334\"\203\372=00\211\211G\317U\203\252=00\211=01A\262=02\242\202\261=00\3= 11\312\313=03GD\"=01@r\301\242q\210\f\335=03=03\"\336=02=02\"\211\204\311=00= \337\340!\210\211\317H\211\326H=0D= >\204\333=00\311\341\342=03D\"\210\211\211\310=06=07I\266=03=0E-=02\343\31= 3\344\"I\210\345=03=06=06\"\210\346=03=02\"\266\203)\207\306=02\347\"\203\= 204=01\211\211G\350U\203=12=01\211=01A\262=02\242\202=19=01\311\312\313=03= GD\"=01\211A\262=03\242=02@r\301\242q\210\f\335=04=04\"\336=02=02\"\211\31= 7H\211\326H=0D= >\204A=01\311\341\342=03D\"\210\211\317H\262=01\203g=01\211\317H\211\326H=0D= >\204[=01\311\341\342=03D\"\210\211\211\317\351=06 =06 = \"I\266=03=0E-=02\343=06=06\351=06 =06 = \"\"I\210\345=03=06=07\"\210\346=03=02\"\266\203)\207\352\353=03\354#\205\= 215=01\313\207" [nil ... ... message ert--results-ewoc = cl-struct-ert--ewoc-entry-tags eql run-started 1 signal = wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer = run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" = "Aborted: " ert-stats-total ert-stats-completed-expected = ert-stats-completed-unexpected 0 format ", %s unexpected" = ert-stats-skipped ", %s skipped" ert--results-update-stats-display = test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node = wrong-type-argument ert--ewoc-entry ert-char-for-test-result t = ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 = ert-test-result-expected-p error "cl-ecase failed: %s, %s" ... = ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest = EVENT-ARGS)"]) (t ert-results-rerun-test-at-point) (t = ert-results-rerun-test-at-point-debugging-errors) (t = funcall-interactively ert-results-rerun-test-at-point-debugging-errors) = (t call-interactively ert-results-rerun-test-at-point-debugging-errors = nil nil) (t command-execute = ert-results-rerun-test-at-point-debugging-errors)) nil] #[0 = "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] debug t] = ert--run-test-debugger] 4 "\n\n(fn &rest ARGS)"](error (arith-error)) /(1 0) (testcover-1value 1 (/ 1 0)) (lambda nil (testcover-1value 1 (/ 1 0)))() testcover-enter(my-error (lambda nil (testcover-1value 1 (/ 1 0)))) my-error() (list 2 (my-error)) (let ((fn-7 (function testcover-after)) (args-8 (list 2 (my-error)))) = (let ((value-9 (quote ert-form-evaluation-aborted-10))) (let = (form-description-11) (let ((errorp12 nil) (form-description-fn-13 = (function (lambda nil form-description-11)))) (condition-case = -condition- (unwind-protect (setq value-9 (apply fn-7 args-8)) (setq = form-description-11 (nconc ... ... ... ...)) = (ert--signal-should-execution form-description-11)) (error (setq = errorp12 t) (ert--should-error-handle-error form-description-fn-13 = -condition- (quote error) nil) (setq value-9 -condition-))) (if errorp12 = nil (ert-fail (append (funcall form-description-fn-13) (list = :fail-reason "did not signal an error")))))) value-9)) (testcover-after 3 (let ((fn-7 (function testcover-after)) (args-8 = (list 2 (my-error)))) (let ((value-9 (quote = ert-form-evaluation-aborted-10))) (let (form-description-11) (let = ((errorp12 nil) (form-description-fn-13 (function ...))) (condition-case = -condition- (unwind-protect (setq value-9 ...) (setq form-description-11 = ...) (ert--signal-should-execution form-description-11)) (error (setq = errorp12 t) (ert--should-error-handle-error form-description-fn-13 = -condition- ... nil) (setq value-9 -condition-))) (if errorp12 nil = (ert-fail (append ... ...))))) value-9))) (lambda nil (testcover-after 3 (let ((fn-7 (function testcover-after)) = (args-8 (list 2 (my-error)))) (let ((value-9 (quote = ert-form-evaluation-aborted-10))) (let (form-description-11) (let = ((errorp12 nil) (form-description-fn-13 ...)) (condition-case = -condition- (unwind-protect ... ... ...) (error ... ... ...)) (if = errorp12 nil (ert-fail ...)))) value-9))))() testcover-enter(test@should-error-bug (lambda nil (testcover-after 3 = (let ((fn-7 (function testcover-after)) (args-8 (list 2 (my-error)))) = (let ((value-9 (quote ert-form-evaluation-aborted-10))) (let = (form-description-11) (let ((errorp12 nil) (form-description-fn-13 ...)) = (condition-case -condition- (unwind-protect ... ... ...) (error ... ... = ...)) (if errorp12 nil (ert-fail ...)))) value-9))))) (lambda nil (testcover-enter (quote test@should-error-bug) (function = (lambda nil (testcover-after 3 (let ((fn-7 ...) (args-8 ...)) (let (...) = (let ... ...) value-9)))))))() ert--run-test-internal([cl-struct-ert--test-execution-info = [cl-struct-ert-test should-error-bug nil (lambda nil (testcover-enter = (quote test@should-error-bug) (function (lambda nil (testcover-after 3 = (let ... ...)))))) nil :passed nil] [cl-struct-ert-test-failed nil nil = (arith-error) ((t (lambda nil (testcover-1value 1 (/ 1 0)))) (t = testcover-enter my-error (lambda nil (testcover-1value 1 (/ 1 0)))) (t = my-error) (nil list 2 (my-error)) (nil let ((fn-7 (function = testcover-after)) (args-8 (list 2 (my-error)))) (let ((value-9 (quote = ert-form-evaluation-aborted-10))) (let (form-description-11) (let (... = ...) (condition-case -condition- ... ...) (if errorp12 nil ...))) = value-9)) (nil testcover-after 3 (let ((fn-7 (function testcover-after)) = (args-8 (list 2 ...))) (let ((value-9 ...)) (let (form-description-11) = (let ... ... ...)) value-9))) (t (lambda nil (testcover-after 3 (let = (... ...) (let ... ... value-9))))) (t testcover-enter = test@should-error-bug (lambda nil (testcover-after 3 (let (... ...) (let = ... ... value-9))))) (t (lambda nil (testcover-enter (quote = test@should-error-bug) (function (lambda nil ...))))) (t = ert--run-test-internal #0) (t ert-run-test [cl-struct-ert-test = should-error-bug nil (lambda nil (testcover-enter (quote = test@should-error-bug) (function ...))) nil :passed nil]) (t = ert-run-or-rerun-test [cl-struct-ert--stats t [[cl-struct-ert-test = should-error-bug nil (lambda nil ...) nil :passed nil]] #s(hash-table = size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data = (should-error-bug 0)) [nil] [(22483 23504 1016 0)] [(22483 22641 595275 = 0)] 0 0 0 0 0 (22483 22641 578681 0) (22483 22641 595513 0) nil = [cl-struct-ert-test should-error-bug nil (lambda nil (testcover-enter = ... ...)) nil :passed nil] 1473469392.100925] [cl-struct-ert-test = should-error-bug nil (lambda nil (testcover-enter (quote = test@should-error-bug) (function ...))) nil :passed nil] #[385 = "\306=02\307\"\203)=00\211\211G\310U\203=14=00\211@\202=1B=00\311\312\313=03= GD\"\301\314=02\302\242\300#\240\210\315\301\242!\207\306=02\316\"\203\222= =00\211\211G\317U\203A=00\211=01A\262=02\242\202H=00\311\312\313=03GD\"=01= @\303\320=02\204T=00\321\202U=00\322\323=05!\324=06=06!\325=06=07!\211\326= U\203j=00\321\202n=00\327\330=02\"\262=01\331=06=08!\211\326U\203~=00\321\= 202\202=00\327\332=02\"\262=01&=06\210\333r\301\242q\210\f)=03\"\207\306=02= \334\"\203\372=00\211\211G\317U\203\252=00\211=01A\262=02\242\202\261=00\3= 11\312\313=03GD\"=01@r\301\242q\210\f\335=03=03\"\336=02=02\"\211\204\311=00= \337\340!\210\211\317H\211\326H=0D= >\204\333=00\311\341\342=03D\"\210\211\211\310=06=07I\266=03=0E-=02\343\31= 3\344\"I\210\345=03=06=06\"\210\346=03=02\"\266\203)\207\306=02\347\"\203\= 204=01\211\211G\350U\203=12=01\211=01A\262=02\242\202=19=01\311\312\313=03= GD\"=01\211A\262=03\242=02@r\301\242q\210\f\335=04=04\"\336=02=02\"\211\31= 7H\211\326H=0D= >\204A=01\311\341\342=03D\"\210\211\317H\262=01\203g=01\211\317H\211\326H=0D= >\204[=01\311\341\342=03D\"\210\211\211\317\351=06 =06 = \"I\266=03=0E-=02\343=06=06\351=06 =06 = \"\"I\210\345=03=06=07\"\210\346=03=02\"\266\203)\207\352\353=03\354#\205\= 215=01\313\207" [nil (#) (#4) message ert--results-ewoc = cl-struct-ert--ewoc-entry-tags eql run-started 1 signal = wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer = run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" = "Aborted: " ert-stats-total ert-stats-completed-expected = ert-stats-completed-unexpected 0 format ", %s unexpected" = ert-stats-skipped ", %s skipped" ert--results-update-stats-display = test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node = wrong-type-argument ert--ewoc-entry ert-char-for-test-result t = ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 = ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started = run-ended test-started test-ended) ert--results-progress-bar-string] 16 = "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) (t = ert-results-rerun-test-at-point) (t = ert-results-rerun-test-at-point-debugging-errors) (t = funcall-interactively ert-results-rerun-test-at-point-debugging-errors) = (t call-interactively ert-results-rerun-test-at-point-debugging-errors = nil nil) (t command-execute = ert-results-rerun-test-at-point-debugging-errors)) nil] #[0 = "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] debug t]) ert-run-test([cl-struct-ert-test should-error-bug nil (lambda nil = (testcover-enter (quote test@should-error-bug) (function (lambda nil = (testcover-after 3 (let (... ...) (let ... ... value-9))))))) nil = :passed nil]) ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test = should-error-bug nil (lambda nil (testcover-enter (quote = test@should-error-bug) (function (lambda nil (testcover-after 3 ...))))) = nil :passed nil]] #s(hash-table size 1 test eql rehash-size 1.5 = rehash-threshold 0.8 data (should-error-bug 0)) [nil] [(22483 23504 1016 = 0)] [(22483 22641 595275 0)] 0 0 0 0 0 (22483 22641 578681 0) (22483 = 22641 595513 0) nil [cl-struct-ert-test should-error-bug nil (lambda nil = (testcover-enter (quote test@should-error-bug) (function (lambda nil = (testcover-after 3 (let ... ...)))))) nil :passed nil] = 1473469392.100925] [cl-struct-ert-test should-error-bug nil (lambda nil = (testcover-enter (quote test@should-error-bug) (function (lambda nil = (testcover-after 3 (let (... ...) (let ... ... value-9))))))) nil = :passed nil] #[385 = "\306=02\307\"\203)=00\211\211G\310U\203=14=00\211@\202=1B=00\311\312\313=03= GD\"\301\314=02\302\242\300#\240\210\315\301\242!\207\306=02\316\"\203\222= =00\211\211G\317U\203A=00\211=01A\262=02\242\202H=00\311\312\313=03GD\"=01= @\303\320=02\204T=00\321\202U=00\322\323=05!\324=06=06!\325=06=07!\211\326= U\203j=00\321\202n=00\327\330=02\"\262=01\331=06=08!\211\326U\203~=00\321\= 202\202=00\327\332=02\"\262=01&=06\210\333r\301\242q\210\f)=03\"\207\306=02= \334\"\203\372=00\211\211G\317U\203\252=00\211=01A\262=02\242\202\261=00\3= 11\312\313=03GD\"=01@r\301\242q\210\f\335=03=03\"\336=02=02\"\211\204\311=00= \337\340!\210\211\317H\211\326H=0D= >\204\333=00\311\341\342=03D\"\210\211\211\310=06=07I\266=03=0E-=02\343\31= 3\344\"I\210\345=03=06=06\"\210\346=03=02\"\266\203)\207\306=02\347\"\203\= 204=01\211\211G\350U\203=12=01\211=01A\262=02\242\202=19=01\311\312\313=03= GD\"=01\211A\262=03\242=02@r\301\242q\210\f\335=04=04\"\336=02=02\"\211\31= 7H\211\326H=0D= >\204A=01\311\341\342=03D\"\210\211\317H\262=01\203g=01\211\317H\211\326H=0D= >\204[=01\311\341\342=03D\"\210\211\211\317\351=06 =06 = \"I\266=03=0E-=02\343=06=06\351=06 =06 = \"\"I\210\345=03=06=07\"\210\346=03=02\"\266\203)\207\352\353=03\354#\205\= 215=01\313\207" [nil (#) (#0) message ert--results-ewoc = cl-struct-ert--ewoc-entry-tags eql run-started 1 signal = wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer = run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" = "Aborted: " ert-stats-total ert-stats-completed-expected = ert-stats-completed-unexpected 0 format ", %s unexpected" = ert-stats-skipped ", %s skipped" ert--results-update-stats-display = test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node = wrong-type-argument ert--ewoc-entry ert-char-for-test-result t = ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 = ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started = run-ended test-started test-ended) ert--results-progress-bar-string] 16 = "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]) ert-results-rerun-test-at-point() ert-results-rerun-test-at-point-debugging-errors() = funcall-interactively(ert-results-rerun-test-at-point-debugging-errors) call-interactively(ert-results-rerun-test-at-point-debugging-errors = nil nil) command-execute(ert-results-rerun-test-at-point-debugging-errors) --Apple-Mail=_6ECBAF97-8E4F-4898-9530-07141E44E087 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 In GNU Emacs 25.1.50.8 (x86_64-apple-darwin15.6.0, NS appkit-1404.47 = Version 10.11.6 (Build 15G1004)) of 2016-09-09 built on rainbow.local Windowing system distributor 'Apple', version 10.3.1404 Recent messages: For information about GNU Emacs and the GNU system, type C-h C-a. You can run the command =E2=80=98eval-buffer=E2=80=99 with M-x ev-b RET Ran 1 tests, 1 results were as expected Edebug: test@should-error-bug Edebug: my-error You can run the command =E2=80=98testcover-start=E2=80=99 with M-x tes-s = RET Edebug: my-error Ran 1 tests, 0 results were as expected, 1 unexpected Configured using: 'configure --with-ns --without-gnutls' Configured features: JPEG IMAGEMAGICK NOTIFY ACL LIBXML2 ZLIB TOOLKIT_SCROLL_BARS NS Important settings: value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: ERT-Results Minor modes in effect: tooltip-mode: t global-eldoc-mode: t electric-indent-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t buffer-read-only: t line-number-mode: t transient-mark-mode: t Load-path shadows: None found. Features: (shadow sort mail-extr emacsbug message subr-x puny dired dired-loaddefs format-spec rfc822 mml mml-sec password-cache epa derived epg epg-config gnus-util rmail rmail-loaddefs mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils cl-seq cl-macs testcover edebug ert pp find-func seq byte-opt gv bytecomp byte-compile cl-extra help-mode cconv ewoc easymenu debug cl-loaddefs pcase cl-lib time-date mule-util tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/ns-win ns-win ucs-normalize term/common-win tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment elisp-mode lisp-mode prog-mode register page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core term/tty-colors frame cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese charscript case-table epa-hook jka-cmpr-hook help simple abbrev obarray minibuffer cl-preloaded nadvice loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote kqueue cocoa ns multi-tty make-network-process emacs) --Apple-Mail=_6ECBAF97-8E4F-4898-9530-07141E44E087--