diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-03-03 09:00:12 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-03-03 09:00:12 -0800 |
| commit | 27c02b02fe598ee3ceee988865b3df6b370d34a5 (patch) | |
| tree | ea936d52fab55a708449b87639a736f5b3091287 | |
| parent | a0b78cb64f295f52c67916362ec1eaf75b1259c4 (diff) | |
| download | emacs-27c02b02fe598ee3ceee988865b3df6b370d34a5.tar.gz | |
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/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) |
