9 eval "use DBD::SQLite; use SQL::Translator";
11 ? ( skip_all => 'needs DBD::SQLite and SQL::Translator for testing' )
15 my $schema = DBICTest->init_schema(no_populate => 1, no_deploy => 1);
17 ok($schema, 'Created a Schema');
18 isa_ok($schema->_journal_schema, 'DBIx::Class::Schema::Journal::DB', 'Actually have a schema object for the journaling');
19 isa_ok($schema->_journal_schema->source('CDAuditHistory'), 'DBIx::Class::ResultSource', 'CDAuditHistory source exists');
20 isa_ok($schema->_journal_schema->source('ArtistAuditLog'), 'DBIx::Class::ResultSource', 'ArtistAuditLog source exists');
23 $schema->_journal_schema->resultset('ChangeLog')->count;
27 is( $count, undef, "no count" );
28 like( $e, qr/table.*changelog/, "missing table error" );
30 $schema->journal_schema_deploy();
32 $count = eval { $schema->_journal_schema->resultset('ChangeLog')->count };
34 is( $@, '', "no error" );
35 is( $count, 0, "count is 0" );