Add some trivial tests for region deletion/killing commands.

Ignore-this: 5ba090d8b5214e6b53419108126e74f7

darcs-hash:20110411185319-00fcc-9d494301c54ca406124f243a884c163dc92be27c

1 files changed, 13 insertions, 0 deletions

diff --git a/test.el b/test.el
index 107652a..3ff0544 100644
--- a/test.el
+++ b/test.el
@@ -239,6 +239,19 @@ Four arguments: the paredit command, the text of the buffer
 (paredit-test 'paredit-kill
   '((";foo|\n(bar)\n" ";foo|(bar)\n")
     (";foo|\n(bar\n baz)\n" error)))
+
+(dolist (command '(paredit-delete-region paredit-kill-region))
+  ;++ Need to check whether `paredit-kill-region' updates the kill ring
+  ;++ correctly.
+  (paredit-test command
+    '(("|foo" error)
+      ("|foo_" "|")
+      ("|(foo)_" "|")
+      (";;; f|oo (bar ;_baz\n(zot)\n" ";;; f|baz\n(zot)\n")
+      ("(foo |bar_ baz)\n" "(foo | baz)\n")
+      ("(foo |(bar \"baz\" ; quux\n          zot)\n     _mumble)"
+       "(foo |mumble)")
+      ("(foo (bar |baz) (quux _zot) mumble)" "(foo (bar |zot) mumble)"))))
 
 (defun paredit-canary-indent-method (state indent-point normal-indent)
   (check-parens)