5 use Test::SQL::Translator qw(maybe_plan);
12 'SQL::Translator::Parser::SQLite',
13 'SQL::Translator::Producer::JSON',
17 my $sqlt_version = $SQL::Translator::VERSION;
36 "reference_fields" : [],
37 "reference_table" : "",
38 "type" : "PRIMARY KEY"
51 "reference_fields" : [],
52 "reference_table" : "",
58 "data_type" : "integer",
59 "default_value" : null,
71 "default_value" : null,
75 "name" : "description",
82 "data_type" : "tinyint",
83 "default_value" : "0",
94 "data_type" : "varchar",
95 "default_value" : null,
106 "data_type" : "INTEGER",
107 "default_value" : null,
108 "is_auto_increment" : 1,
110 "is_primary_key" : 1,
112 "name" : "person_id",
119 "data_type" : "double",
120 "default_value" : null,
122 "is_primary_key" : 0,
148 "reference_fields" : [],
149 "reference_table" : "",
164 "reference_fields" : [],
165 "reference_table" : "",
166 "type" : "PRIMARY KEY"
179 "reference_fields" : [
182 "reference_table" : "person",
183 "type" : "FOREIGN KEY"
189 "default_value" : null,
191 "is_primary_key" : 0,
200 "data_type" : "varchar",
201 "default_value" : null,
203 "is_primary_key" : 0,
213 "default_value" : null,
215 "is_primary_key" : 1,
217 "name" : "person_id",
225 "default_value" : null,
227 "is_primary_key" : 1,
247 "update pet set name=name"
251 "database_events" : [
258 "perform_action_when" : "after"
264 "name" : "person_pet",
266 "sql" : "select pr.person_id, pr.name as person_name, pt.name as pet_name\\n from person pr, pet pt\\n where person.person_id=pet.pet_id\\n"
271 "add_drop_table" : 0,
275 "parser_type" : "SQL::Translator::Parser::SQLite",
280 "producer_type" : "SQL::Translator::Producer::JSON",
283 "version" : "$sqlt_version"
288 my $file = "$Bin/data/sqlite/create.sql";
289 open my $fh, '<', $file or die "Can't read '$file': $!\n";
292 my $tr = SQL::Translator->new(
303 ok( $out = $tr->translate, 'Translate SQLite to JSON' );
304 eq_or_diff( $out, $json, 'JSON matches expected' );