5 use Test::SQL::Translator qw(maybe_plan);
11 'SQL::Translator::Parser::SQLite',
12 'SQL::Translator::Producer::YAML');
15 my $sqlt_version = $SQL::Translator::VERSION;
17 my $yaml = Load(<<YAML);
155 reference_table: person
207 - update pet set name=name
215 perform_action_when: after
223 select pr.person_id, pr.name as person_name, pt.name as pet_name
224 from person pr, pet pt
225 where person.person_id=pet.pet_id
231 parser_type: SQL::Translator::Parser::SQLite
233 producer_type: SQL::Translator::Producer::YAML
236 version: $sqlt_version
239 my $file = "$Bin/data/sqlite/create.sql";
240 open FH, "<$file" or die "Can't read '$file': $!\n";
243 my $tr = SQL::Translator->new(
250 lives_ok { $out = Load($tr->translate) } 'Translate SQLite to YAML';
251 is_deeply( $out, $yaml, 'YAML matches expected' );