diff options
Diffstat (limited to 'test/lib/completions/installpkg.exp')
-rw-r--r-- | test/lib/completions/installpkg.exp | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/test/lib/completions/installpkg.exp b/test/lib/completions/installpkg.exp new file mode 100644 index 00000000..48581aa1 --- /dev/null +++ b/test/lib/completions/installpkg.exp @@ -0,0 +1,49 @@ +proc setup {} { + save_env +} + + +proc teardown {} { + assert_env_unmodified {/OLDPWD=/d} +} + + +setup + + +assert_complete_any "installpkg -" + + +sync_after_int + + +set test "--<TAB> should complete all long options" +set options [list --warn --md5sum --root --infobox --terse --menu --ask \ + --priority --tagfile] +assert_complete $options "installpkg --" $test + + +sync_after_int + + +set test "--root should comlete only dirs" +set dirs [split [exec bash -c "find . -type d -mindepth 1 -maxdepth 1 \ + -printf '%P/\n'"] "\n"] +assert_complete $dirs "installpkg --root " $test + + +sync_after_int + + +set test "should complete *.t\[gbxl\]z files and dirs" +set dir $::srcdir/fixtures/slackware/home +set files [split [exec bash -c "cd $dir && find . -mindepth 1 -maxdepth 1 \ + \\( -type d -printf '%P/\\n' \\) -o \ + \\( -type f -name '*.t\[bglx\]z' -printf '%P\\n' \\)"] "\n"] +assert_complete_dir $files "installpkg " $dir $test + + +sync_after_int + + +teardown |