diff options
| author | Glenn Morris | 2015-03-03 13:27:21 -0500 |
|---|---|---|
| committer | Glenn Morris | 2015-03-03 13:27:21 -0500 |
| commit | 88f8a9d7d827b3780ae25e99b67e01d897fd5959 (patch) | |
| tree | 2e983a82c5e1b1c685961bfc96cdede0a39a3ecd /test | |
| parent | 15ddf7a6f211545b34f22bbab286df91e391b5aa (diff) | |
| download | emacs-88f8a9d7d827b3780ae25e99b67e01d897fd5959.tar.gz emacs-88f8a9d7d827b3780ae25e99b67e01d897fd5959.zip | |
generator-tests.el: make cps-test-iter-cleanup-once-only work
* test/automated/generator-tests.el (cps-test-iter-cleanup-once-only):
Replace undefined incf with cl-incf.
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 4 | ||||
| -rw-r--r-- | test/automated/generator-tests.el | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 6ff35afa66b..ea2e0eef179 100644 --- a/test/ChangeLog +++ b/test/ChangeLog | |||
| @@ -9,8 +9,8 @@ | |||
| 9 | 9 | ||
| 10 | 2015-03-03 Glenn Morris <rgm@gnu.org> | 10 | 2015-03-03 Glenn Morris <rgm@gnu.org> |
| 11 | 11 | ||
| 12 | * automated/generator-tests.el (cps-while-incf): | 12 | * automated/generator-tests.el (cps-while-incf) |
| 13 | Replace undefined incf with cl-incf. | 13 | (cps-test-iter-cleanup-once-only): Replace undefined incf with cl-incf. |
| 14 | (cps-test-iter-do): Use should not undefined assert. | 14 | (cps-test-iter-do): Use should not undefined assert. |
| 15 | 15 | ||
| 16 | 2015-03-03 Daniel Colascione <dancol@dancol.org> | 16 | 2015-03-03 Daniel Colascione <dancol@dancol.org> |
diff --git a/test/automated/generator-tests.el b/test/automated/generator-tests.el index a8607f9274d..893c0d2e724 100644 --- a/test/automated/generator-tests.el +++ b/test/automated/generator-tests.el | |||
| @@ -283,7 +283,7 @@ identical output. | |||
| 283 | (iter-yield 1) | 283 | (iter-yield 1) |
| 284 | (error "test") | 284 | (error "test") |
| 285 | (iter-yield 2)) | 285 | (iter-yield 2)) |
| 286 | (incf nr-unwound)))))) | 286 | (cl-incf nr-unwound)))))) |
| 287 | (should (equal (iter-next iter) 1)) | 287 | (should (equal (iter-next iter) 1)) |
| 288 | (should-error (iter-next iter)) | 288 | (should-error (iter-next iter)) |
| 289 | (should (equal nr-unwound 1)))) | 289 | (should (equal nr-unwound 1)))) |