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