From: Glenn Morris <rgm@gnu.org>
Date: Tue, 3 Mar 2015 17:00:12 +0000 (-0800)
Subject: Fix some errors in recently added tests
X-Git-Tag: emacs-25.0.90~2564^2~253
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27c02b02fe598ee3ceee988865b3df6b370d34a5;p=emacs.git

Fix some errors in recently added tests

* test/automated/generator-tests.el (cps-while-incf):
Replace undefined incf with cl-incf.
(cps-test-iter-do): Use should not undefined assert.
---

diff --git a/test/ChangeLog b/test/ChangeLog
index 3a311e97aa5..d8d3fc80f06 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
+2015-03-03  Glenn Morris  <rgm@gnu.org>
+
+	* automated/generator-tests.el (cps-while-incf):
+	Replace undefined incf with cl-incf.
+	(cps-test-iter-do): Use should not undefined assert.
+
 2015-03-03  Daniel Colascione  <dancol@dancol.org>
 
 	* automated/finalizer-tests.el (finalizer-object-type): Test that
diff --git a/test/automated/generator-tests.el b/test/automated/generator-tests.el
index 875255ff11a..0721009d70b 100644
--- a/test/automated/generator-tests.el
+++ b/test/automated/generator-tests.el
@@ -109,7 +109,7 @@ identical output.
 (cps-testcase cps-while-incf
  (let* ((i 0) (j 10))
    (while (< i 10)
-     (incf i)
+     (cl-incf i)
      (setf j (+ j (* i 10))))
    j))
 
@@ -202,8 +202,7 @@ identical output.
   (let (mylist)
     (iter-do (x (mygenerator 4))
       (push x mylist))
-
-    (assert (equal mylist '(2 4 1)))))
+    (should (equal mylist '(2 4 1)))))
 
 (iter-defun gen-using-yield-value ()
   (let (f)