6 use Test::SQL::Translator;
10 use SQL::Translator::Schema::Constants;
14 maybe_plan(1, 'SQL::Translator::Parser::XML::SQLFairy',
15 'SQL::Translator::Producer::SQLite');
18 my $xmlfile = "$Bin/data/xml/schema.xml";
21 $sqlt = SQL::Translator->new(
27 die "Can't find test schema $xmlfile" unless -e $xmlfile;
29 my $sql = $sqlt->translate(
30 from => 'XML-SQLFairy',
33 ) or die $sqlt->error;
43 id INTEGER PRIMARY KEY NOT NULL,
44 title varchar(100) NOT NULL DEFAULT 'hello',
45 description text DEFAULT '',
47 explicitnulldef varchar,
48 explicitemptystring varchar DEFAULT '',
50 emptytagdef varchar DEFAULT '',
54 CREATE INDEX titleindex_Basic on Basic (title);
55 CREATE UNIQUE INDEX emailuniqueindex_Basic on Basic (email);