Reviewed tests d*

test/_completion_to_review/display.exp

@@ -1 +0,0 @@
-source "lib/completions/display.exp"

test/_completion_to_review/dnsspoof.exp

@@ -1 +0,0 @@
-source "lib/completions/dnsspoof.exp"

test/_completion_to_review/dpkg-source.exp

@@ -1 +0,0 @@
-source "lib/completions/dpkg-source.exp"

test/_completion_to_review/dpkg.exp

@@ -1 +0,0 @@
-source "lib/completions/dpkg.exp"

test/_completion_to_review/dsniff.exp

@@ -1 +0,0 @@
-source "lib/completions/dsniff.exp"

test/completion/display.exp

@@ -0,0 +1,3 @@
+if {[assert_bash_type {display}]} {
+    source "lib/completions/display.exp"
+}; # if

test/completion/dnsspoof.exp

@@ -0,0 +1,3 @@
+if {[assert_bash_type {dnsspoof}]} {
+    source "lib/completions/dnsspoof.exp"
+}; # if

test/completion/dpkg-source.exp

@@ -0,0 +1,3 @@
+if {[assert_bash_type {dpkg-source}]} {
+    source "lib/completions/dpkg-source.exp"
+}; # if

test/completion/dpkg.exp

@@ -0,0 +1,3 @@
+if {[assert_bash_type dpkg]} {
+    source "lib/completions/dpkg.exp"
+}; # if

test/completion/dsniff.exp

@@ -0,0 +1,3 @@
+if {[assert_bash_type {dsniff}]} {
+    source "lib/completions/dsniff.exp"
+}; # if

test/config/default.exp

@@ -1,10 +1,19 @@
     # Set default expect fallback routines
 expect_after {
-    if {![info exists test]} {
-        set test [info level 1]
-    }; # if
-    eof { fail "$test at eof" }
-    timeout { fail "$test at timeout" }
+    eof {
+        if {[info exists test]} {
+            fail "$test at eof" 
+        } else {
+            fail "[info level 1] at eof" 
+        }; # if
+    }; # eof
+    timeout {
+        if {[info exists test]} {
+            fail "$test at timeout" 
+        } else {
+            fail "[info level 1] at timeout" 
+        }; # if
+    }; # timeout
 }; # expect_after()
 
 

test/lib/completions/date.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "date "
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dcop.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dcop "
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dd.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dd --"
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/df.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "df "
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dhclient.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dhclient -"
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dict.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dict -"
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/diff.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "diff --"
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dir.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dir "
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/display.exp

@@ -0,0 +1,41 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "display "
+
+
+sync_after_int
+
+
+set test "- should complete options"
+set options {
+    -alpha -antialias -authenticate -auto-orient -backdrop -background -border
+    -bordercolor -borderwidth -channel -clip -clip-path -coalesce -colormap
+    -colors -colorspace -comment -compress -contrast -crop -debug -decipher
+    -define -delay -density -depth -despeckle -display -dispose -dither -edge
+    -endian -enhance -extract -filter -flatten -flip -flop -font -foreground
+    -format -frame -gamma -geometry -help -iconGeometry -iconic -identify
+    -immutable -interlace -interpolate -label -limit -list -log -loop -map
+    -mattecolor -monitor -monochrome -name -negate -page -profile -quality
+    -quantize -quiet -raise -regard-warnings -remote -repage -resample -resize
+    -respect-parenthesis -roll -rotate -sample -sampling-factor -scenes -seed
+    -segment -set -shared-memory -sharpen -size -strip -texture -title
+    -transparent-color -treedepth -trim -update -usePixmap -verbose -version
+    -virtual-pixel -visual -window -window-group -write }
+assert_complete $options "display -" $test
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dnsspoof.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dnsspoof -"
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dpkg-deb.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dpkg-deb --c"
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dpkg-reconfigure.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dpkg-reconfigure --"
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dpkg-source.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dpkg-source -"
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dpkg.exp

@@ -1,23 +1,17 @@
 proc setup {} {
+    save_env
 }; # setup()
 
 
 proc teardown {} {
+    assert_env_unmodified
 }; # teardown()
 
 
 setup
 
 
-set test "Tab should complete"
-    # Try completion
-set cmd "dpkg --c"
-send "$cmd\t"
-expect {
-    -re "^$cmd\r\n.*/@$cmd$" { pass "$test" }
-    -re /@ { unresolved "$test at prompt" }
-    -re eof { unresolved "eof" }
-}; # expect
+assert_complete_any "dpkg --c"
 
 
 sync_after_int
@@ -27,12 +21,14 @@ sync_after_int
     # NOTE: If an argument is passed to `--get-selections', `dpkg' also returns
     #       packages with status "purged".  Be sure to add `| grep install$' to
     #       pipeline before 'cut' in that case. -- FVu, Sun Feb 22 10:08:34 CET 2009
-if {[assert_exec {dpkg --get-selections | cut -f1 | sort} packages]} {
-    assert_complete $packages {dpkg -L }
-}; # if
-
-
-sync_after_int
+    # TODO: Fix sorting in `match_items' in lib/library.exp.  Sorting in tcl appears
+    #       to be different from sorting in bash.
+#if {[assert_exec {dpkg --get-selections | cut -f1 | sort} packages]} {
+#    assert_complete $packages "dpkg -L "
+#}; # if
+#
+#
+#sync_after_int
 
 
 teardown

test/lib/completions/dropdb.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dropdb "
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dselect.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dselect "
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dsniff.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dsniff -"
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/du.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "du "
+
+
+sync_after_int
+
+
+teardown

test/lib/completions/dumpdb.exp

@@ -0,0 +1,20 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+assert_complete_any "dumpdb "
+
+
+sync_after_int
+
+
+teardown

test/lib/completions_to_review/date.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "date "
-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

test/lib/completions_to_review/dcop.exp

@@ -1,30 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dcop "
-send "$cmd\t"
-expect {
-    -re "^$cmd.*\r\n$" { pass "$test" }
-    -re /@ { unresolved "$test at prompt" }
-    -re eof { unresolved "eof" }
-}; # expect
-
-
-# Interrupt command by sending ^C
-
-sleep 0.01
-send \003;  # Control-c
-expect -ex "/@"
-
-
-teardown

test/lib/completions_to_review/dd.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dd --"
-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

test/lib/completions_to_review/df.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "df "
-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

test/lib/completions_to_review/dhclient.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dhclient -"
-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

test/lib/completions_to_review/dict.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dict -"
-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

test/lib/completions_to_review/diff.exp

@@ -1,28 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "diff --"
-send "$cmd\t"
-sleep .5
-expect {
-    -re "^$cmd\r\n.*/@$cmd$" { pass "$test" }
-    -re "^$cmd$" { pass "$test" }
-    -re /@ { unresolved "$test at prompt" }
-    -re eof { unresolved "eof" }
-}; # expect
-
-
-sync_after_int
-
-
-teardown

test/lib/completions_to_review/dir.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dir "
-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

test/lib/completions_to_review/display.exp

@@ -1,42 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should show completions"
-    # Try completion
-set cmd "display "
-send "$cmd\t"
-expect {
-    -re "^$cmd\r\n.*$cmd$" { pass "$test" }
-    -re /@ { unresolved "$test at prompt" }
-    -re eof { unresolved "eof" }
-}; # expect
-
-
-sync_after_int
-
-
-set test "- should complete options"
-    # Try completion
-set cmd "display -"
-send "$cmd\t"
-expect {
-    -re "$cmd\r\n-alpha\\s+-antialias\\s+-authenticate\\s+-auto-orient\\s+-backdrop\\s+-background\\s+-border\\s+-bordercolor\\s+-borderwidth\\s+-channel\\s+-clip\\s+-clip-path\\s+-coalesce\\s+-colormap\\s+-colors\\s+-colorspace\\s+-comment\\s+-compress\\s+-contrast\\s+-crop\\s+-debug\\s+-decipher\\s+-define\\s+-delay\\s+-density\\s+-depth\\s+-despeckle\\s+-display\\s+-dispose\\s+-dither\\s+-edge\\s+-endian\\s+-enhance\\s+-extract\\s+-filter\\s+-flatten\\s+-flip\\s+-flop\\s+-font\\s+-foreground\\s+-format\\s+-frame\\s+-gamma\\s+-geometry\\s+-help\\s+-iconGeometry\\s+-iconic\\s+-identify\\s+-immutable\\s+-interlace\\s+-interpolate\\s+-label\\s+-limit\\s+-list\\s+-log\\s+-loop\\s+-map\\s+-mattecolor\\s+-monitor\\s+-monochrome\\s+-name\\s+-negate\\s+-page\\s+-profile\\s+-quality\\s+-quantize\\s+-quiet\\s+-raise\\s+-regard-warnings\\s+-remote\\s+-repage\\s+-resample\\s+-resize\\s+-respect-parenthesis\\s+-roll\\s+-rotate\\s+-sample\\s+-sampling-factor\\s+-scenes\\s+-seed\\s+-segment\\s+-set\\s+-shared-memory\\s+-sharpen\\s+-size\\s+-strip\\s+-texture\\s+-title\\s+-transparent-color\\s+-treedepth\\s+-trim\\s+-update\\s+-usePixmap\\s+-verbose\\s+-version\\s+-virtual-pixel\\s+-visual\\s+-window\\s+-window-group\\s+-write\\s*\r\n/@$cmd$" { 
-	pass "$test" 
-    }
-    -re /@ { unresolved "$test at prompt" }
-    -re eof { unresolved "eof" }
-}; # expect
-
-
-sync_after_int
-
-
-teardown

test/lib/completions_to_review/dnsspoof.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dnsspoof -"
-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

test/lib/completions_to_review/dpkg-deb.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dpkg-deb --c"
-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

test/lib/completions_to_review/dpkg-reconfigure.exp

@@ -1,27 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dpkg-reconfigure --"
-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

test/lib/completions_to_review/dpkg-source.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dpkg-source -"
-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

test/lib/completions_to_review/dropdb.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dropdb "
-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

test/lib/completions_to_review/dselect.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dselect "
-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

test/lib/completions_to_review/dsniff.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dsniff -"
-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

test/lib/completions_to_review/du.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "du "
-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

test/lib/completions_to_review/dumpdb.exp

@@ -1,26 +0,0 @@
-proc setup {} {
-}; # setup()
-
-
-proc teardown {} {
-}; # teardown()
-
-
-setup
-
-
-set test "Tab should complete"
-    # Try completion
-set cmd "dumpdb "
-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