aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2015-03-03 09:00:12 -0800
committerGlenn Morris2015-03-03 09:00:12 -0800
commit27c02b02fe598ee3ceee988865b3df6b370d34a5 (patch)
treeea936d52fab55a708449b87639a736f5b3091287
parenta0b78cb64f295f52c67916362ec1eaf75b1259c4 (diff)
downloademacs-27c02b02fe598ee3ceee988865b3df6b370d34a5.tar.gz
emacs-27c02b02fe598ee3ceee988865b3df6b370d34a5.zip
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.
-rw-r--r--test/ChangeLog6
-rw-r--r--test/automated/generator-tests.el5
2 files changed, 8 insertions, 3 deletions
diff --git a/test/ChangeLog b/test/ChangeLog
index 3a311e97aa5..d8d3fc80f06 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
12015-03-03 Glenn Morris <rgm@gnu.org>
2
3 * automated/generator-tests.el (cps-while-incf):
4 Replace undefined incf with cl-incf.
5 (cps-test-iter-do): Use should not undefined assert.
6
12015-03-03 Daniel Colascione <dancol@dancol.org> 72015-03-03 Daniel Colascione <dancol@dancol.org>
2 8
3 * automated/finalizer-tests.el (finalizer-object-type): Test that 9 * 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.
109(cps-testcase cps-while-incf 109(cps-testcase cps-while-incf
110 (let* ((i 0) (j 10)) 110 (let* ((i 0) (j 10))
111 (while (< i 10) 111 (while (< i 10)
112 (incf i) 112 (cl-incf i)
113 (setf j (+ j (* i 10)))) 113 (setf j (+ j (* i 10))))
114 j)) 114 j))
115 115
@@ -202,8 +202,7 @@ identical output.
202 (let (mylist) 202 (let (mylist)
203 (iter-do (x (mygenerator 4)) 203 (iter-do (x (mygenerator 4))
204 (push x mylist)) 204 (push x mylist))
205 205 (should (equal mylist '(2 4 1)))))
206 (assert (equal mylist '(2 4 1)))))
207 206
208(iter-defun gen-using-yield-value () 207(iter-defun gen-using-yield-value ()
209 (let (f) 208 (let (f)