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::Archive::SQLite;

has tempdir => (
  is => 'ro',
  isa => 'Object',
  default => sub {
    return File::Temp->newdir;
  },
);

sub _build_archive {
  my $self = shift;
  my $archive = Metabase::Archive::SQLite->new(
    filename => catfile( $self->tempdir, "test" . int(rand(2**31)) ),
  );
  $archive->initialize;
  return $archive;
}

before 'clear_archive' => sub {
  my $self = shift;
  my $dbis = $self->archive->dbis;
  $dbis->query("DROP TABLE " . $self->archive->_table_name . ";");
  return;
};

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

done_testing;