blob: 8f93db24e918a6c52702deae1b0b8eaf5f2ae352 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
proc setup {} {
save_env
}
proc teardown {} {
assert_env_unmodified
}
setup
if {[assert_exec {look foo | grep ^foo} words]} {
assert_complete $words "look foo"
}
sync_after_int
teardown
|