The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use Test::Routine;
use Test::Routine::Util;
use File::Temp ();
use File::Spec::Functions qw/catfile/;

use Metabase::Index::SQLite;

use lib 't/lib';

with 'Metabase::Test::Index::SQLite';

sub _build_index {
  my $self = shift;
  my $index = Metabase::Index::SQLite->new(
    filename => catfile( $self->tempdir, "test-metabase.sqlite" ),
  );
  $index->initialize(
    [ qw/Metabase::Test::Fact/ ],
    [ qw/Metabase::Resource::cpan::distfile/ ],
  );
  return $index;
}

after 'clear_index' => sub { shift->clear_tempdir };

run_tests(
  "Run index tests on Metabase::Index::SQLite",
  ["main", "Metabase::Test::Index"]
);

done_testing;