use strict;
use warnings;
use FindBin;
use Test::More;
my $tests;
plan tests => $tests;
use Padre::Plugin::Vi::TabCompletition qw(clear_tab handle_tab set_original_cwd);
set_original_cwd($FindBin::Bin);
# if not prefix is given, show the available command
{
my $value = handle_tab();
is $value, 'e';
$value = handle_tab();
is $value, 'w';
$value = handle_tab();
is $value, 'e';
$value = handle_tab( '', 0 );
is $value, 'w';
$value = handle_tab( '', 1 );
is $value, 'e';
BEGIN { $tests += 5; }
}