mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-27 05:13:10 +00:00
68 lines
1.9 KiB
Text
68 lines
1.9 KiB
Text
# vim: set filetype=expect:
|
|
|
|
spawn $fish
|
|
|
|
expect_prompt
|
|
|
|
# test switching key bindings
|
|
# this should leave the mode in the appropriate state
|
|
|
|
send_line "set -g fish_key_bindings fish_vi_key_bindings"
|
|
expect_prompt
|
|
send_line -h "echo fail\033ddiecho success"
|
|
expect_prompt -re {\r\nsuccess\r\n} {
|
|
puts "success"
|
|
} -nounmatched -re {\r\nfail} {
|
|
puts stderr "fail"
|
|
} unmatched {
|
|
puts stderr "Couldn't find expected output 'success'"
|
|
}
|
|
# try again without the human typing
|
|
send_line -h "echo fail\033ddiecho success"
|
|
expect_prompt -re {\r\nsuccess\r\n} {
|
|
puts "success"
|
|
} -nounmatched -re {\r\nfail} {
|
|
puts stderr "fail"
|
|
} unmatched {
|
|
puts stderr "Couldn't find expected output 'success'"
|
|
}
|
|
|
|
# Test lowercase-r replace
|
|
send_line -h "\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'"
|
|
}
|
|
|
|
# Test 't' binding that contains non-zero arity function (forward-jump) followed
|
|
# by another function (and) https://github.com/fish-shell/fish-shell/issues/2357
|
|
send "\033"
|
|
sleep 0.500
|
|
send "ddiecho TEXT\033"
|
|
sleep 0.500
|
|
send "hhtTrN\r"
|
|
expect_prompt -re {\r\nTENT\r\n} {
|
|
puts "t-binding success"
|
|
} -nounmatched -re {\r\nfail} {
|
|
puts stderr "t-binding fail"
|
|
} unmatched {
|
|
puts stderr "Couldn't find expected output 'TENT'"
|
|
}
|
|
|
|
# still in insert mode, switch back to regular key bindings
|
|
send_line -h "set -g fish_key_bindings fish_default_key_bindings"
|
|
expect_prompt
|
|
send_line "echo success"
|
|
expect_prompt -re {\r\nsuccess\r\n} {
|
|
puts "success"
|
|
} unmatched {
|
|
puts stderr "Couldn't find expected output 'success'"
|
|
} timeout {
|
|
set msg ""
|
|
append msg "Timeout after setting fish_key_bindings to fish_default_key_bindings\n" \
|
|
"\$fish_bind_mode is most likely still set to 'insert'"
|
|
abort $msg
|
|
}
|