diff options
| -rw-r--r-- | test/ChangeLog | 6 | ||||
| -rw-r--r-- | test/automated/generator-tests.el | 5 |
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 @@ +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) |