7 use DBICTest::ExplodingStorage;
11 my $schema = DBICTest->init_schema();
13 is( ref($schema->storage), 'DBIx::Class::Storage::DBI::SQLite',
14 'Storage reblessed correctly into DBIx::Class::Storage::DBI::SQLite' );
17 my $storage = $schema->storage;
18 $storage->ensure_connected;
20 bless $storage, "DBICTest::ExplodingStorage";
21 $schema->storage($storage);
24 $schema->resultset('Artist')->create({ name => "Exploding Sheep" })
27 is($@, "", "Exploding \$sth->execute was caught");
29 is(1, $schema->resultset('Artist')->search({name => "Exploding Sheep" })->count,
30 "And the STH was retired");