diff options
Diffstat (limited to 'test/lib/completions/tar.exp')
-rw-r--r-- | test/lib/completions/tar.exp | 132 |
1 files changed, 0 insertions, 132 deletions
diff --git a/test/lib/completions/tar.exp b/test/lib/completions/tar.exp deleted file mode 100644 index 75434e94..00000000 --- a/test/lib/completions/tar.exp +++ /dev/null @@ -1,132 +0,0 @@ -proc setup {} { - save_env -} - -proc teardown {} { - assert_env_unmodified { - /OLDPWD=/d - /declare -f _tar/d - } -} - -setup - -# Detect whether system's tar is GNU tar -set cmd "tar --version" -send "$cmd\r" -expect "^$cmd\r\n" -expect { - -re "GNU\[^\n\]*\n" { - set tar_version gnu - } - -re ".*\n" { - set tar_version unknown - } -} -sync_after_int - - -set test "old option: list escaped chars" -assert_complete_dir "a/b\\'c/" "tar tf escape.tar a/b\\\'" $::srcdir/fixtures/tar $test -sync_after_int - -# TODO: "tar tf escape.tar a/b" - -set test "check that any completion done" -assert_complete_any "tar " -sync_after_int - -# Use bsdtar as the it completes to only 'zc zt zx' ('tar' can be GNU tar and it -# can would have more options) -set test "old option: mode is not on first place" -assert_complete {zc zt zx} "bsdtar z" $test -sync_after_int - -set test "old option: test 'f' when mode is not as a first option" -assert_complete_dir "dir/ dir2/" "tar zfc " $::srcdir/fixtures/tar -sync_after_int - -set test "old option: creating archive and 'f' option" -assert_complete_dir "dir/ dir2/" "tar cf " $::srcdir/fixtures/tar -sync_after_int - -set test "old option: archive listing" -assert_complete_dir "dir/fileA dir/fileB dir/fileC" "tar tf archive.tar.xz dir/file" $::srcdir/fixtures/tar -sync_after_int - -set test "old option: check _second_ option in \"old\" argument" -assert_complete_dir "dir/ dir2/" "bsdtar cbfvv NOT_EXISTS " $::srcdir/fixtures/tar -sync_after_int - -set test "old option: create and members" -assert_complete_dir "dir/ dir2/ archive.tar.xz escape.tar" "tar cTfvv NOT_EXISTS DONT_CREATE.tar " $::srcdir/fixtures/tar -sync_after_int - -set test "old option: extract and archive" -assert_complete_dir "dir/ dir2/ archive.tar.xz escape.tar" "tar xvf " $::srcdir/fixtures/tar -sync_after_int - -if { "$tar_version" == "gnu" } { - set test "check short options" - assert_complete_any "tar -c" - sync_after_int - - set test "mode not as a first option" - assert_complete_dir "dir/ dir2/" "tar -zcf " $::srcdir/fixtures/tar - sync_after_int - - # Only directories should be completed. - set test "check that we do not suggest re-writing existing archive" - assert_complete_dir "dir/ dir2/" "tar -cf " $::srcdir/fixtures/tar - sync_after_int - - set test "check --file option" - assert_complete_dir "dir/ dir2/" "tar -c --file " $::srcdir/fixtures/tar - sync_after_int - - set test "check --file option #2" - assert_complete_dir "dir/ dir2/" "tar -cvv --file " $::srcdir/fixtures/tar - sync_after_int - - set test "archive listing" - assert_complete_dir "dir/fileA dir/fileB dir/fileC" "tar -tf archive.tar.xz dir/file" $::srcdir/fixtures/tar - sync_after_int - - set test "archive listing with --file" - assert_complete_dir "dir/fileA dir/fileB dir/fileC" "tar -t --file archive.tar.xz dir/file" $::srcdir/fixtures/tar - sync_after_int - - # Some random options should work: - set test "test random tar's long option #1" - assert_complete "--blocking-factor= --block-number" "tar --block" $test - sync_after_int - - set test "test random tar's long option #2" - assert_complete "--add-file=" "tar --add-fil" $test -nospace - sync_after_int - - set test "test random tar's long option #3" - assert_complete "--posix" "tar -cf /dev/null --posi" $test - sync_after_int - - # --owner - set users [exec bash -c "compgen -A user"] - set test "test --owner option" - assert_complete $users "tar --owner=" $test - sync_after_int - - # --group - set groups [exec bash -c "compgen -A group"] - set test "test --group option" - assert_complete $groups "tar --group=" $test - sync_after_int - - # use -b for this as -b is still not handled by tar's completion - set test "short opt -XXXb <TAB> (arg required)" - assert_no_complete "tar -cvvfb " $test - sync_after_int - - # TODO: how to test that 'tar -cf<TAB>' completes to 'tar -cf ' -} - -teardown |