Implement lowercase-r replace in fish_vi_mode

Fixes #1595

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/bind.expect b/tests/bind.expect
index 91585c96..9df5b37c 100644
--- a/tests/bind.expect
+++ b/tests/bind.expect
@@ -27,6 +27,16 @@ expect_prompt -re {\r\nsuccess\r\n} {
     puts stderr "Couldn't find expected output 'success'"
 }
 
+# Test lowercase-r replace
+send_line "\033ddiecho TEXT\033hhrAi"
+expect_prompt -re {\r\nTAXT\r\n} {
+    puts "replace success"
+} -nounmatched -re {\r\nfail} {
+    puts stderr "replace fail"
+} unmatched {
+    puts stderr "Couldn't find expected output 'TAXT'"
+}
+
 # still in insert mode, switch back to regular key bindings
 send_line "set -g fish_key_bindings fish_default_key_bindings"
 expect_prompt