mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Fix some errors in recently added tests

Browse Source 
* test/automated/generator-tests.el (cps-while-incf):
Replace undefined incf with cl-incf.
(cps-test-iter-do): Use should not undefined assert.
This commit is contained in:
Glenn Morris 2015-03-03 09:00:12 -08:00
parent a0b78cb64f
commit 27c02b02fe
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/ChangeLog
View File

@ -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

5
test/automated/generator-tests.el
View File

@ -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)