summaryrefslogtreecommitdiff
path: root/test/lib/completions/xhost.exp
diff options
context:
space:
mode:
Diffstat (limited to 'test/lib/completions/xhost.exp')
-rw-r--r--test/lib/completions/xhost.exp22
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