view release on metacpan or  search on metacpan

t/storage/on_connect_call.t  view on Meta::CPAN

use strict;
use warnings;
no warnings qw/once redefine/;

use DBI;
use DBIO::SQLite::Test;
use DBIO::Test::Schema;
use DBIO::Storage::DBI;

# !!! do not replace this with done_testing - tests reside in the callbacks
# !!! number of calls is important
use Test::More tests => 17;
# !!!
use Test::Warn;

my $schema = DBIO::Test::Schema->clone;

{
  *DBIO::Storage::DBI::connect_call_foo = sub {
    isa_ok $_[0], 'DBIO::Storage::DBI',

t/storage/on_connect_do.t  view on Meta::CPAN

use strict;
use warnings;

# !!! do not replace this with done_testing - tests reside in the callbacks
# !!! number of calls is important
use Test::More tests => 13;
# !!!
use Test::Warn;
use Test::Exception;

use DBIO::SQLite::Test;
require DBI;