5 use Test::More tests => 2;
10 my $yaml = q/--- #YAML:1.0
146 database_event: insert
151 perform_action_when: ~
158 select pr.person_id, pr.name as person_name, pt.name as pet_name
159 from person pr, pet pt
160 where person.person_id=pet.pet_id
163 my $tr = SQL::Translator->new(
166 filename => "$Bin/data/sqlite/create.sql",
170 ok( $out = $tr->translate, 'Translate SQLite to YAML' );
171 eq_or_diff( $out, $yaml, 'YAML matches expected' );