branch: scratch/el-mock
commit 6f3da38bd30b654cdd0bcbb2e98a93144ccee3c3
Author: Philipp Stephani <p...@google.com>
Commit: Philipp Stephani <p...@google.com>
Add a test for evaluating arguments
---
test/el-mock-test.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/test/el-mock-test.el b/test/el-mock-test.el
index f71fa54d60..16886b1eec 100644
--- a/test/el-mock-test.el
+++ b/test/el-mock-test.el
@@ -17,6 +17,8 @@
(declare-function blah "el-mock-test")
(declare-function fugaga "el-mock-test")
+(defvar el-mock-test-var)
+
(expectations
(desc "stub setup/teardown")
(expect 2
@@ -104,6 +106,13 @@
(with-mock
(mock (me 1) => (+ 3 31))
(me 1)))
+ (expect nil
+ (let ((el-mock-test-var 11))
+ (with-mock
+ (setq el-mock-test-var 22)
+ (mock (me el-mock-test-var)) ; not yet evaluated
+ (setq el-mock-test-var 33)
+ (me 33))))
(desc "unfulfilled mock")
(expect (error mock-error '((foom 5) (foom 6)))
