8 my $sqlt_version = $SQL::Translator::VERSION;
144 reference_table: person
196 - update pet set name=name
204 perform_action_when: after
211 select pr.person_id, pr.name as person_name, pt.name as pet_name
212 from person pr, pet pt
213 where person.person_id=pet.pet_id
224 version: $sqlt_version
227 my $file = "$Bin/data/sqlite/create.sql";
228 open (my $fh, '<', $file) or die "Can't read '$file': $!";
230 my $tr = SQL::Translator->new(
233 data => do { local $/; <$fh>; },
237 ok( $out = $tr->translate, 'Translate SQLite to YAML' );
238 eq_or_diff( $out, $yaml, 'YAML matches expected' );