use strict;
use warnings;
use Test::More tests => 6;
use_ok('SWISH::Prog');
use_ok('SWISH::Prog::Config');
use_ok('SWISH::Prog::Native::Indexer');
SKIP: {
# is executable present?
my $test = SWISH::Prog::Native::Indexer->new;
if ( !$test->swish_check ) {
skip "swish-e not installed", 3;
}
ok( my $config = SWISH::Prog::Config->new('t/test.conf'),
"config from t/test.conf" );
$config->IndexFile("foo/bar");
ok( my $prog = SWISH::Prog->new( config => $config, ),
"new prog object" );
is( $prog->indexer->invindex->path, "foo/bar",
"ad hoc IndexFile config" );
}