7 use Test::SQL::Translator qw(maybe_plan);
13 'SQL::Translator::Parser::SQLite',
14 'SQL::Translator::Producer::YAML');
204 database_event: insert
209 perform_action_when: ~
216 select pr.person_id, pr.name as person_name, pt.name as pet_name
217 from person pr, pet pt
218 where person.person_id=pet.pet_id
224 parser_type: SQL::Translator::Parser::SQLite
226 producer_type: SQL::Translator::Producer::YAML
232 my $file = "$Bin/data/sqlite/create.sql";
233 open FH, "<$file" or die "Can't read '$file': $!\n";
236 my $tr = SQL::Translator->new(
243 ok( $out = $tr->translate, 'Translate SQLite to YAML' );
244 eq_or_diff( $out, $yaml, 'YAML matches expected' );