branch: elpa/paredit
commit 6c14694056158ee8fb86baeb0975fbd20e735ce3
Author: Taylor R Campbell <[email protected]>
Commit: Taylor R Campbell <[email protected]>
Use `call-interactively' rather than `funcall' in `paredit-test'.
Ignore-this: 12e8ee22270320abed65e401d2f0b267
This more faithfully tests the behaviour human users will see, and it
lets us also use `current-prefix-arg', &c., to test more modes of the
commands.
darcs-hash:20110409192317-00fcc-5d0b0bf50b928d8adf5658afa3d63cdb788405ec
---
test.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/test.el b/test.el
index 87b5fad..0b964d4 100644
--- a/test.el
+++ b/test.el
@@ -47,10 +47,10 @@ Four arguments: the paredit command, the text of the buffer
(if (cond ((eq expected 'error)
;++ Check that there are no more expected states.
(condition-case condition
- (progn (funcall command) t)
+ (progn (call-interactively command) t)
(error nil)))
((stringp expected)
- (funcall command)
+ (call-interactively command)
(insert ?\|)
(not (string= expected (buffer-string))))
(t (error "Bad test expectation:" expected)))
