From 88f8a9d7d827b3780ae25e99b67e01d897fd5959 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 3 Mar 2015 13:27:21 -0500 Subject: [PATCH] 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. --- test/ChangeLog | 4 ++-- test/automated/generator-tests.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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)))) -- 2.39.2