The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
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" );

}