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 6ff35afa66b880e08961d430764de50b63e468f1..ea2e0eef17900b0e5fffddc2f8baa81d246d8853 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -9,8 +9,8 @@
 
 2015-03-03  Glenn Morris  <rgm@gnu.org>
 
-       * 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  <dancol@dancol.org>

diff --git a/test/automated/generator-tests.el b/test/automated/generator-tests.el
index a8607f9274db572f1b469153ccaf4d19a17a9446..893c0d2e72489056eadb5ca6393c490321086475 100644 (file)
--- 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))))