44 lines
905 B
Plaintext
44 lines
905 B
Plaintext
proc setup {} {
|
|
assert_bash_exec "unalias -a"; # Remove all aliases
|
|
assert_bash_exec "alias foo=bar"
|
|
assert_bash_exec "alias bar='foo foo'"
|
|
save_env
|
|
}; # setup()
|
|
|
|
|
|
proc teardown {} {
|
|
assert_bash_exec "unalias -a"; # Remove all aliases
|
|
assert_env_unmodified
|
|
}; # teardown()
|
|
|
|
|
|
setup
|
|
|
|
|
|
set test "Tab should complete alias"
|
|
# Try completion
|
|
set cmd "alias "
|
|
assert_complete {bar foo} $cmd $test
|
|
|
|
|
|
sync_after_int
|
|
|
|
|
|
set test "Tab should complete alias at cursor position"
|
|
# Try completion
|
|
set cmd "alias foo"
|
|
append cmd \002\002\002; # \002 = ^B = Move cursor left in bash emacs mode
|
|
send "$cmd\t"
|
|
expect {
|
|
-re "^alias foo\b\b\b\r\nbar +foo *\r\n/@alias foo\b\b\b$" { pass "$test" }
|
|
-re "^alias foo\b\b\bfoo=foo\b\b\b$" { fail "$test: Wrong cursor position" }
|
|
-re /@ { unresolved "$test" }
|
|
default { unresolved "$test" }
|
|
}; # expect
|
|
|
|
|
|
sync_after_int
|
|
|
|
|
|
teardown
|