From 6c14694056158ee8fb86baeb0975fbd20e735ce3 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 9 Apr 2011 19:23:17 +0000
Subject: 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(-)

(limited to 'test.el')

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)))
-- 
cgit v1.2.1