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

1 files 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)))