use lib qw(t/lib);
use DBICTest;
-my $schema = DBICTest::init_schema();
+my $schema = DBICTest->init_schema();
plan tests => 39;
eval {
(ref $schema)->txn_do(sub{});
};
- like($@, qr/class method/, '$self parameter check ok');
+ like($@, qr/storage/, "can't call txn_do without storage");
eval {
$schema->txn_do('');
};
# Force txn_rollback() to throw an exception
no warnings 'redefine';
no strict 'refs';
- local *{"DBIx::Class::Schema::txn_rollback"} = sub{die 'FAILED'};
+ local *{"DBIx::Class::Storage::DBI::SQLite::txn_rollback"} = sub{die 'FAILED'};
eval {
$schema->txn_do($fail_code, $artist);