ref($storage),
'DBIx::Class::Storage::DBI::SQLite',
'Storage reblessed correctly into DBIx::Class::Storage::DBI::SQLite'
-) unless $ENV{DBICTEST_VIA_REPLICATED};
+) unless $storage->isa('DBIx::Class::Storage::DBI::Replicated');
throws_ok {
$schema->storage->throw_exception('test_exception_42');
};
}
-
# testing various invocations of connect_info ([ ... ])
my $coderef = sub { 42 };