From: Glenn Morris Date: Tue, 3 Mar 2015 18:27:21 +0000 (-0500) Subject: generator-tests.el: make cps-test-iter-cleanup-once-only work X-Git-Tag: emacs-25.0.90~2564^2~250 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88f8a9d7d827b3780ae25e99b67e01d897fd5959;p=emacs.git generator-tests.el: make cps-test-iter-cleanup-once-only work * test/automated/generator-tests.el (cps-test-iter-cleanup-once-only): Replace undefined incf with cl-incf. --- diff --git a/test/ChangeLog b/test/ChangeLog index 6ff35afa66b..ea2e0eef179 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -9,8 +9,8 @@ 2015-03-03 Glenn Morris - * automated/generator-tests.el (cps-while-incf): - Replace undefined incf with cl-incf. + * automated/generator-tests.el (cps-while-incf) + (cps-test-iter-cleanup-once-only): Replace undefined incf with cl-incf. (cps-test-iter-do): Use should not undefined assert. 2015-03-03 Daniel Colascione diff --git a/test/automated/generator-tests.el b/test/automated/generator-tests.el index a8607f9274d..893c0d2e724 100644 --- a/test/automated/generator-tests.el +++ b/test/automated/generator-tests.el @@ -283,7 +283,7 @@ identical output. (iter-yield 1) (error "test") (iter-yield 2)) - (incf nr-unwound)))))) + (cl-incf nr-unwound)))))) (should (equal (iter-next iter) 1)) (should-error (iter-next iter)) (should (equal nr-unwound 1))))