use Test::Most tests => 4;
use strict;
use warnings;

use lib 't/lib';
use App::Mimosa::Test;
use Test::DBIx::Class;

fixtures_ok 'basic_ss';

BEGIN{ use_ok 'App::Mimosa::Database' }

my $job = App::Mimosa::Database->new( db_basename => "foo", alphabet => 'protein');
isa_ok $job, 'App::Mimosa::Database';

can_ok $job, qw/db_basename alphabet index/;


use Test::Most tests => 6;
use strict;
use warnings;

use lib 't/lib';
use App::Mimosa::Test;
use Test::DBIx::Class;
use File::Spec::Functions;

fixtures_ok 'basic_ss';

BEGIN{ use_ok 'App::Mimosa::Database' }

chdir catdir(qw/t data/);

my $db = App::Mimosa::Database->new(
    db_basename => catfile(qw/blastdb_test.nucleotide/),
    alphabet    => 'protein'
);
isa_ok $db, 'App::Mimosa::Database';

lives_ok sub { $db->index }, 'index does not die';

is( $db->db->title, 'blastdb_test.nucleotide', 'title is correct');

can_ok $db, qw/db_basename alphabet index/;


Add tests for indexing and setting a title on a db
Add tests for indexing and setting a title on a db
