10 eval "use DBD::SQLite";
12 ? ( skip_all => 'needs DBD::SQLite for testing' )
16 my $schema = DBICTest->init_schema(no_populate => 1);
18 ok($schema, 'Created a Schema');
19 isa_ok($schema->_journal_schema, 'DBIx::Class::Schema::Journal::DB', 'Actually have a schema object for the journaling');
20 isa_ok($schema->_journal_schema->source('CDAuditHistory'), 'DBIx::Class::ResultSource', 'CDAuditHistory source exists');
21 isa_ok($schema->_journal_schema->source('ArtistAuditLog'), 'DBIx::Class::ResultSource', 'ArtistAuditLog source exists');
23 my $new_cd = $schema->txn_do( sub {
24 my $artist = $schema->resultset('Artist')->create({
25 name => 'Fred Bloggs',
27 return $schema->resultset('CD')->create({
28 title => 'Angry young man',
33 isa_ok($new_cd, 'DBIx::Class::Journal', 'Created CD object');
35 my $search = $schema->_journal_schema->resultset('CDAuditLog')->search();
36 ok($search->count, 'Created an entry in the CD audit log');