diff options
Diffstat (limited to 'test/lib/completions/xhost.exp')
-rw-r--r-- | test/lib/completions/xhost.exp | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/test/lib/completions/xhost.exp b/test/lib/completions/xhost.exp index aeceadb6..d4098ade 100644 --- a/test/lib/completions/xhost.exp +++ b/test/lib/completions/xhost.exp @@ -1,12 +1,12 @@ proc setup {} { assert_bash_exec {HOME=$TESTDIR} save_env -}; # setup() +} proc teardown {} { assert_env_unmodified -}; # teardown() +} setup @@ -17,7 +17,7 @@ set test "Tab should complete hostnames" set hosts {} foreach h [exec bash -c "compgen -A hostname"] { lappend hosts $h -}; # foreach +} assert_complete $hosts "xhost " $test @@ -33,8 +33,8 @@ foreach h [exec bash -c "compgen -A hostname"] { # Only append hostname if starting with $char if {[string range $h 0 0] == "$char"} { lappend hosts $h - }; # if -}; # foreach + } +} assert_complete $hosts "xhost $char" $test @@ -46,7 +46,7 @@ set test "Tab should complete hostnames prefixed with +" set hosts {} foreach h [exec bash -c "compgen -A hostname"] { lappend hosts "+$h" -}; # foreach +} assert_complete $hosts "xhost \+" $test @@ -61,8 +61,8 @@ foreach h [exec bash -c "compgen -A hostname"] { # Only append hostname if starting with $char if {[string range $h 0 0] == "$char"} { lappend hosts "+$h" - }; # if -}; # foreach + } +} assert_complete $hosts "xhost +$char" @@ -74,7 +74,7 @@ set test "Tab should complete hostnames prefixed with -" set hosts {} foreach h [exec bash -c "compgen -A hostname"] { lappend hosts "-$h" -}; # foreach +} assert_complete $hosts "xhost -" $test @@ -89,8 +89,8 @@ foreach h [exec bash -c "compgen -A hostname"] { # Only append hostname if starting with $char if {[string range $h 0 0] == "$char"} { lappend hosts "-$h" - }; # if -}; # foreach + } +} assert_complete $hosts "xhost -$char" $test |