The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package # hide from PAUSE
    Test;

use strict;
use warnings;

use Schema;

our $dbfile = './t/tmp/test.db';
our $dsn    = "dbi:SQLite:${dbfile}";
our $schema = Schema->connect($dsn);

sub initialize
{
    unlink($dbfile) if -e './t/tmp/test.db';
    mkdir('./t/tmp/') unless -d './t/tmp';

    my $dbh = $schema->storage->dbh;

    if ($ENV{"DBICTEST_SQLT_DEPLOY"}) {
        $schema->deploy;
    }
    else {
        open IN, "t/sql/sqlite.sql";

        my $sql;
        { local $/ = undef; $sql = <IN>; }
        close IN;

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

    return($schema);
}

1;