6 use Test::SQL::Translator qw(maybe_plan);
10 use SQL::Translator::Schema::Constants;
14 'SQL::Translator::Parser::SQLite',
15 'SQL::Translator::Producer::SQLite',
19 my $file = "$Bin/data/sqlite/create.sql";
23 open my $fh, "<$file" or die "Can't read file '$file': $!\n";
26 my $t = SQL::Translator->new;
32 my $schema1 = $t->schema;
33 isa_ok ($schema1, 'SQL::Translator::Schema', 'First parser pass produced a schema');
36 my $data2 = $t->translate (
39 like ($data2, qr/BEGIN.+COMMIT/is, 'Received some meaningful output from the producer');
41 # get a new translator
42 $t = SQL::Translator->new;
48 my $schema2 = $t->schema;
49 isa_ok ($schema2, 'SQL::Translator::Schema', 'Second parser pass produced a schema');
51 my @t1 = $schema1->get_tables;
52 my @t2 = $schema2->get_tables;
54 my @v1 = $schema1->get_views;
55 my @v2 = $schema2->get_views;
57 my @g1 = $schema1->get_triggers;
58 my @g2 = $schema2->get_triggers;
60 is (@t2, @t1, 'Equal amount of tables');
63 [ map { $_->name } (@t1) ],
64 [ map { $_->name } (@t2) ],
68 is (@v2, @v1, 'Equal amount of views');
70 is (@g2, @g1, 'Equal amount of triggers');