proc setup {} {
    save_env
}


proc teardown {} {
    assert_env_unmodified
}


setup


assert_complete_any "slapt-src -"


sync_after_int


set test "--bu<TAB> should complete \"--build\""
assert_complete "--build" "slapt-src --bu" $test


sync_after_int


set test "--ins<TAB> should complete \"--install\""
assert_complete "--install" "slapt-src --ins" $test


sync_after_int


set test "--install should complete available packages"
set config $::srcdir/fixtures/slackware/etc/slapt-get/slapt-srcrc
set workdir [file normalize $::srcdir/fixtures/slackware/usr/src/slapt-src/]
set slb_data "$workdir/slackbuilds_data"
set f [open $config w]; puts $f "BUILDDIR=$workdir"; close $f
set slackbuilds [split [exec bash -c "sed -n \
        -e '/^SLACKBUILD NAME: /{s/^SLACKBUILD NAME: \\{1,\\}//;p}' \
        -e '/^SLACKBUILD VERSION: /{s/^SLACKBUILD VERSION: \\{1,\\}//;p}' \
        $slb_data | sed -e 'N;s/\\n/:/'"] "\n"]
assert_complete $slackbuilds "slapt-src --config $config --install " $test


sync_after_int


teardown