Skip to content
Browse files

add test to ensure padding of EOL happens to make up rectangle

  • Loading branch information...
1 parent 8eb9caa commit 27de77eda5a251b1ba54fe0e5b8e3efccb2335cb Le Wang committed Oct 22, 2012
Showing with 17 additions and 0 deletions.
  1. +17 −0 iedit-tests.el
View
17 iedit-tests.el
@@ -475,6 +475,23 @@ arfoo
foo"))
(should (equal killed-rectangle '("foo" " fo" " b" " "))))))
+(ert-deftest iedit-kill-rectangle-fill-extra-spaces ()
+ "lines within rectangle shorter than rectangle right column
+ should have spaces filled in."
+ (with-iedit-test-fixture
+ "foo
+ foo
+ barfoo
+ foo"
+ (lambda ()
+ (iedit-mode)
+ (setq indent-tabs-mode nil)
+ (set-mark-command nil)
+ (goto-word "barfoo")
+ (call-interactively 'iedit-rectangle-mode)
+ (should (iedit-same-column))
+ (should (equal '(1 27) (marker-position-list iedit-rectangle))))))
+
(ert-deftest iedit-restrict-defun-test ()
(with-iedit-test-fixture
"a

0 comments on commit 27de77e

Please sign in to comment.
Something went wrong with that request. Please try again.