summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorNoam Postavsky <npostavs@gmail.com>2020-04-30 19:35:45 -0400
committerNoam Postavsky <npostavs@gmail.com>2020-05-05 21:07:58 -0400
commit1e09364d677b0fb57efd18369c55e8c2d0e826f5 (patch)
treee9a71de9b52a451fcbfacf3df7c345e005e7be35 /test
parentde1b33f5a8c6ceee9be59285f70370c3cb2efd34 (diff)
downloademacs-1e09364d677b0fb57efd18369c55e8c2d0e826f5.tar.gz
; Mark Bug#29799 tests as failing since we reverted the fix
* test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs-loop-for-as-equals-and) (cl-macs-loop-conditional-step-clauses): Set :expected-result to :failed. Don't merge to master. The mentioned reverts are a safe-for-release fix for Bug#40727.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/emacs-lisp/cl-macs-tests.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el b/test/lisp/emacs-lisp/cl-macs-tests.el
index 9ca84f156a0..c357ecde951 100644
--- a/test/lisp/emacs-lisp/cl-macs-tests.el
+++ b/test/lisp/emacs-lisp/cl-macs-tests.el
@@ -498,6 +498,7 @@ collection clause."
(ert-deftest cl-macs-loop-for-as-equals-and ()
"Test for https://debbugs.gnu.org/29799 ."
+ :expected-result :failed
(let ((arr (make-vector 3 0)))
(should (equal '((0 0) (1 1) (2 2))
(cl-loop for k below 3 for x = k and z = (elt arr k)
@@ -531,6 +532,7 @@ collection clause."
(ert-deftest cl-macs-loop-conditional-step-clauses ()
"These tests failed under the initial fixes in #bug#29799."
+ :expected-result :failed
(should (cl-loop for i from 1 upto 100 and j = 1 then (1+ j)
if (not (= i j))
return nil