view release on metacpan or  search on metacpan

t/lib/Role/SQLite.pm  view on Meta::CPAN

package Role::SQLite;

use Class::Load qw(try_load_class);
use File::Spec;
use File::Temp qw(tempfile);;

use Test::Roo::Role;
with 'Role::Database';

sub BUILD {
    try_load_class("DBD::SQLite") or plan skip_all => "DBD::SQLite required";
}

my ( $fh, $dbfile ) = tempfile(
    TEMPLATE => 'upgrade_test_XXXXX',
    EXLOCK   => 0,
    TMPDIR   => File::Spec->tmpdir
);

before clear_database => sub {
    unlink($dbfile)
      # can't unlink under Windows so on failure grab new tmpfile
      # all our tempfiles will disappear when test exits
      or ( $fh, $dbfile ) = tempfile(
        TEMPLATE => 'upgrade_test_XXXXX',
        EXLOCK   => 0,
        TMPDIR   => File::Spec->tmpdir
      );
};
after teardown => sub {
    shift->clear_database;
};

sub _build_database {

    # does nothing atm for SQLite
    return;
}

sub _build_dbd_version {
    return "DBD::SQLite $DBD::SQLite::VERSION";
}

sub connect_info {
    my $self = shift;

    return (
        "dbi:SQLite:dbname=$dbfile",
        undef, undef,
        {
            sqlite_unicode  => 1,
            on_connect_call => 'use_foreign_keys',
            on_connect_do   => 'PRAGMA synchronous = OFF',
            quote_names     => 1,
        }
    );

}

sub _build_database_info {
    my $self = shift;
    return "SQLite library version: "
      . $self->schema->storage->dbh->{sqlite_version};
}

1;