42 lines
760 B
Plaintext
42 lines
760 B
Plaintext
proc setup {} {
|
|
save_env
|
|
}
|
|
|
|
|
|
proc teardown {} {
|
|
assert_env_unmodified
|
|
}
|
|
|
|
|
|
setup
|
|
|
|
|
|
set test "perldoc should complete word containing colons"
|
|
set cmd "perldoc File::"
|
|
send "$cmd\t"
|
|
expect {
|
|
# Assuming the module `File::Path' is always installed
|
|
-re "\\sPath\\s" { pass "$test" }
|
|
# Assuming there's no perl module named `fixtures', but only our directory
|
|
# `test/fixtures' which is presented falsely.
|
|
-re "\\sfixtures/\\s" { fail "$test" }
|
|
-re "perldoc File::File::" { fail "$test" }
|
|
-re /@ { unresolved "$test" }
|
|
default { unresolved "$test" }
|
|
}
|
|
|
|
|
|
sync_after_int
|
|
|
|
set test "- should complete options"
|
|
set options {
|
|
-h -v -t -u -m -l -F -X -f -q
|
|
}
|
|
assert_complete $options "perldoc -" $test
|
|
|
|
|
|
sync_after_int
|
|
|
|
|
|
teardown
|