mirror of
https://github.com/fish-shell/fish-shell.git
synced 2024-11-25 09:39:52 +08:00
1d205d0bbd
This reimplements abbreviation to support quiet abbreviations. Quiet abbreviations expand "in secret" before execution.
155 lines
4.1 KiB
Python
155 lines
4.1 KiB
Python
#!/usr/bin/env python3
|
|
from pexpect_helper import SpawnedProc
|
|
|
|
import re
|
|
|
|
sp = SpawnedProc()
|
|
send, sendline, sleep, expect_prompt, expect_re, expect_str = (
|
|
sp.send,
|
|
sp.sendline,
|
|
sp.sleep,
|
|
sp.expect_prompt,
|
|
sp.expect_re,
|
|
sp.expect_str,
|
|
)
|
|
expect_prompt()
|
|
|
|
# ? prints the command line, bracketed by <>, then clears it.
|
|
sendline(r"""bind '?' 'echo "<$(commandline)>"; commandline ""'; """)
|
|
expect_prompt()
|
|
|
|
# Basic test.
|
|
# Default abbreviations expand only in command position.
|
|
sendline(r"abbr alpha beta")
|
|
expect_prompt()
|
|
|
|
send(r"alpha ?")
|
|
expect_str(r"<beta >")
|
|
|
|
send(r"echo alpha ?")
|
|
expect_str(r"<echo alpha >")
|
|
|
|
# Abbreviation expansions may have multiple words.
|
|
sendline(r"abbr --add emacsnw emacs -nw")
|
|
expect_prompt()
|
|
send(r"emacsnw ?")
|
|
expect_str(r"<emacs -nw >")
|
|
|
|
# Regression test that abbreviations still expand in incomplete positions.
|
|
sendline(r"""abbr --erase (abbr --list)""")
|
|
expect_prompt()
|
|
sendline(r"""abbr --add foo echo bar""")
|
|
expect_prompt()
|
|
sendline(r"if foo")
|
|
expect_str(r"if echo bar")
|
|
sendline(r"end")
|
|
expect_prompt(r"bar")
|
|
|
|
# Regression test that 'echo (' doesn't hang.
|
|
sendline(r"echo )")
|
|
expect_str(r"Unexpected ')' for unopened parenthesis")
|
|
send(r"?")
|
|
expect_str(r"<echo )>")
|
|
|
|
# Support position anywhere.
|
|
sendline(r"abbr alpha --position anywhere beta2")
|
|
expect_prompt()
|
|
|
|
send(r"alpha ?")
|
|
expect_str(r"<beta2 >")
|
|
|
|
send(r"echo alpha ?")
|
|
expect_str(r"<echo beta2 >")
|
|
|
|
# Support regex.
|
|
sendline(r"abbr alpha --regex 'A[0-9]+Z' beta3")
|
|
expect_prompt()
|
|
send(r"A123Z ?")
|
|
expect_str(r"<beta3 >")
|
|
send(r"AZ ?")
|
|
expect_str(r"<AZ >")
|
|
send(r"QA123Z ?") # fails as the regex must match the entire string
|
|
expect_str(r"<QA123Z >")
|
|
send(r"A0000000000000000000009Z ?")
|
|
expect_str(r"<beta3 >")
|
|
|
|
# Support functions. Here anything in between @@ is uppercased, except 'nope'.
|
|
sendline(
|
|
r"""function uppercaser
|
|
string match --quiet '*nope*' $argv[1] && return 1
|
|
string trim --chars @ $argv | string upper
|
|
end
|
|
""".strip()
|
|
)
|
|
expect_prompt()
|
|
sendline(r"abbr uppercaser --regex '@.+@' --function uppercaser")
|
|
expect_prompt()
|
|
send(r"@abc@ ?")
|
|
expect_str(r"<ABC >")
|
|
send(r"@nope@ ?")
|
|
expect_str(r"<@nope@ >")
|
|
sendline(r"abbr --erase uppercaser")
|
|
expect_prompt()
|
|
|
|
# -f works as shorthand for --function.
|
|
sendline(r"abbr uppercaser2 --regex '@.+@' -f uppercaser")
|
|
expect_prompt()
|
|
send(r"@abc@ ?")
|
|
expect_str(r"<ABC >")
|
|
send(r"@nope@ ?")
|
|
expect_str(r"<@nope@ >")
|
|
sendline(r"abbr --erase uppercaser2")
|
|
expect_prompt()
|
|
|
|
# Abbreviations which cause the command line to become incomplete or invalid
|
|
# are visibly expanded, even if they are quiet.
|
|
sendline(r"abbr openparen --position anywhere --quiet '('")
|
|
expect_prompt()
|
|
sendline(r"abbr closeparen --position anywhere --quiet ')'")
|
|
expect_prompt()
|
|
sendline(r"echo openparen")
|
|
expect_str(r"echo (")
|
|
send(r"?")
|
|
expect_str(r"<echo (>")
|
|
sendline(r"echo closeparen")
|
|
expect_str(r"echo )")
|
|
send(r"?")
|
|
expect_str(r"<echo )>")
|
|
sendline(r"echo openparen seq 5 closeparen")
|
|
expect_prompt(r"1 2 3 4 5")
|
|
|
|
# Verify that 'commandline' is accurate.
|
|
# Abbreviation functions cannot usefully change the command line, but they can read it.
|
|
sendline(
|
|
r"""function check_cmdline
|
|
set -g last_cmdline (commandline)
|
|
set -g last_cursor (commandline --cursor)
|
|
false
|
|
end
|
|
""".strip()
|
|
)
|
|
expect_prompt()
|
|
sendline(r"abbr check_cmdline --regex '@.+@' --function check_cmdline")
|
|
expect_prompt()
|
|
send(r"@abc@ ?")
|
|
expect_str(r"<@abc@ >")
|
|
sendline(r"echo $last_cursor : $last_cmdline")
|
|
expect_prompt(r"6 : @abc@ ")
|
|
|
|
|
|
# Again but now we stack them. Noisy abbreviations expand first, then quiet ones.
|
|
sendline(r"""function strip_percents; string trim --chars % -- $argv; end""")
|
|
expect_prompt()
|
|
sendline(r"""function do_upper; string upper -- $argv; end""")
|
|
expect_prompt()
|
|
|
|
sendline(r"abbr noisy1 --regex '%.+%' --function strip_percents --position anywhere")
|
|
expect_prompt()
|
|
|
|
sendline(r"abbr quiet1 --regex 'a.+z' --function do_upper --quiet --position anywhere")
|
|
expect_prompt()
|
|
# The noisy abbr strips the %
|
|
# The quiet one sees a token starting with 'a' and ending with 'z' and uppercases it.
|
|
sendline(r"echo %abcdez%")
|
|
expect_prompt(r"ABCDEZ")
|