1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
proc setup {} { }; # setup() proc teardown {} { }; # teardown() setup set test "Tab should complete" # Try completion set cmd "id " send "$cmd\t" expect { -re "^$cmd\r\n.*$cmd$" { pass "$test" } -re /@ { unresolved "$test at prompt" } -re eof { unresolved "eof" } }; # expect sync_after_int teardown