Implement transpose-words

1 files changed, 42 insertions, 0 deletions

diff --git a/test/reline/test_key_actor_emacs.rb b/test/reline/test_key_actor_emacs.rb
index b7dbb709ec..d79627a8c2 100644
--- a/test/reline/test_key_actor_emacs.rb
+++ b/test/reline/test_key_actor_emacs.rb
@@ -819,6 +819,48 @@ class Reline::KeyActor::Emacs::Test < Reline::TestCase
     assert_line("か\u3099あさ")
   end
 
+  def test_ed_transpose_words
+    input_keys('abc def')
+    assert_line('abc def')
+    assert_byte_pointer_size('abc def')
+    assert_cursor(7)
+    assert_cursor_max(7)
+    input_keys("\M-t", false)
+    assert_line('def abc')
+    assert_byte_pointer_size('def abc')
+    assert_cursor(7)
+    assert_cursor_max(7)
+    input_keys("\C-a\C-k", false)
+    input_keys(' abc  def   ')
+    input_keys("\C-b" * 4, false)
+    assert_line(' abc  def   ')
+    assert_byte_pointer_size(' abc  de')
+    assert_cursor(8)
+    assert_cursor_max(12)
+    input_keys("\M-t", false)
+    assert_line(' def  abc   ')
+    assert_byte_pointer_size(' def  abc')
+    assert_cursor(9)
+    assert_cursor_max(12)
+    input_keys("\C-a\C-k", false)
+    input_keys(' abc  def   ')
+    input_keys("\C-b" * 6, false)
+    assert_line(' abc  def   ')
+    assert_byte_pointer_size(' abc  ')
+    assert_cursor(6)
+    assert_cursor_max(12)
+    input_keys("\M-t", false)
+    assert_line(' def  abc   ')
+    assert_byte_pointer_size(' def  abc')
+    assert_cursor(9)
+    assert_cursor_max(12)
+    input_keys("\M-t", false)
+    assert_line(' abc     def')
+    assert_byte_pointer_size(' abc     def')
+    assert_cursor(12)
+    assert_cursor_max(12)
+  end
+
   def test_ed_digit
     input_keys('0123')
     assert_byte_pointer_size('0123')