[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 27c02b0: Fix some errors in recently added tests
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 27c02b0: Fix some errors in recently added tests |
Date: |
Tue, 03 Mar 2015 17:00:23 +0000 |
branch: master
commit 27c02b02fe598ee3ceee988865b3df6b370d34a5
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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.
---
test/ChangeLog | 6 ++++++
test/automated/generator-tests.el | 5 ++---
2 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/test/ChangeLog b/test/ChangeLog
index 3a311e9..d8d3fc8 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
+2015-03-03 Glenn Morris <address@hidden>
+
+ * 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 <address@hidden>
* automated/finalizer-tests.el (finalizer-object-type): Test that
diff --git a/test/automated/generator-tests.el
b/test/automated/generator-tests.el
index 875255f..0721009 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 27c02b0: Fix some errors in recently added tests,
Glenn Morris <=