package Test;

use Moose;
use MyApp::Schema;

our $dsn    = "dbi:SQLite::memory:";
our $schema = MyApp::Schema->connect($dsn);

sub initialize
{
    my $dbh = $schema->storage->dbh;
    my ($sql, $in);

    open ($in, "<", "t/sql/sqlite.sql");
    { local $/ = undef; $sql = <$in>; }
    close $in;

    $dbh->do($_) for split(/\n\n/, $sql);

    return $schema;
}

1;