use strict;
use warnings;
use lib './t';
use Test::More;
use Test::Exception;

use DBI;
use Mock::SQLite;

BEGIN {
    my $dbh = DBI->connect('dbi:SQLite:test.db', '', '');
    Mock::SQLite->dbh($dbh);
    Mock::SQLite->setup_test_db;
}
END { Mock::SQLite->clean_test_db }

use DBIx::Skinny::Schema::Loader;
ok my $loader = DBIx::Skinny::Schema::Loader->new, 'created loader instance';

throws_ok { $loader->make_schema_at('MyApp::DB::Schema') } qr/^Could not parse DSN/;

ok $loader->connect('dbi:SQLite:test.db', '', ''), 'connect manually';
ok my $schema = $loader->make_schema_at('MyApp::DB::Schema'), 'created schema';
like $schema, qr/^install_table books => schema/m, 'install_table section exists';

done_testing;