t/48xml-to-sqlite.t

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 use FindBin qw/$Bin/;
   5 use Test::More;
   6 use Test::SQL::Translator;
   7 use Test::Exception;
   8 use Test::Differences;
   9 use Data::Dumper;
  10 use SQL::Translator;
  11 use SQL::Translator::Schema::Constants;
  12
  13
  14 BEGIN {
  15     maybe_plan(2, 'SQL::Translator::Parser::XML::SQLFairy',
  16               'SQL::Translator::Producer::SQLite');
  17 }
  18
  19 my $xmlfile = "$Bin/data/xml/schema.xml";
  20
  21 my $sqlt;
  22 $sqlt = SQL::Translator->new(
  23     no_comments => 1,
  24     show_warnings  => 1,
  25     add_drop_table => 1,
  26 );
  27
  28 die "Can't find test schema $xmlfile" unless -e $xmlfile;
  29
  30 my $sql = $sqlt->translate(
  31     from     => 'XML-SQLFairy',
  32     to       => 'SQLite',
  33     filename => $xmlfile,
  34 ) or die $sqlt->error;
  35
  36 eq_or_diff($sql, << "SQL");
  37
  38
  39 BEGIN TRANSACTION;
  40
  41 DROP TABLE Basic;
  42
  43 CREATE TABLE Basic (
  44   id INTEGER PRIMARY KEY NOT NULL,
  45   title varchar(100) NOT NULL DEFAULT 'hello',
  46   description text DEFAULT '',
  47   email varchar(255),
  48   explicitnulldef varchar,
  49   explicitemptystring varchar DEFAULT '',
  50   -- Hello emptytagdef
  51   emptytagdef varchar DEFAULT '',
  52   another_id int(10) DEFAULT '2',
  53   timest timestamp
  54 );
  55
  56 CREATE INDEX titleindex_Basic ON Basic (title);
  57
  58 CREATE UNIQUE INDEX emailuniqueindex_Basic ON Basic (email);
  59
  60 DROP TABLE Another;
  61
  62 CREATE TABLE Another (
  63   id INTEGER PRIMARY KEY NOT NULL
  64 );
  65
  66 DROP VIEW IF EXISTS email_list;
  67 CREATE VIEW email_list AS
  68     SELECT email FROM Basic WHERE email IS NOT NULL;
  69
  70 DROP TRIGGER IF EXISTS foo_trigger;
  71
  72 CREATE TRIGGER foo_trigger after insert on Basic BEGIN update modified=timestamp(); END;
  73
  74 COMMIT;
  75 SQL
  76
  77 # Test in list context
  78 my @sql = $sqlt->translate(
  79     from     => 'XML-SQLFairy',
  80     to       => 'SQLite',
  81     filename => $xmlfile,
  82 ) or die $sqlt->error;
  83
  84 eq_or_diff(\@sql,
  85           [
  86           "\n\nBEGIN TRANSACTION",
  87           'DROP TABLE Basic',
  88           'CREATE TABLE Basic (
  89   id INTEGER PRIMARY KEY NOT NULL,
  90   title varchar(100) NOT NULL DEFAULT \'hello\',
  91   description text DEFAULT \'\',
  92   email varchar(255),
  93   explicitnulldef varchar,
  94   explicitemptystring varchar DEFAULT \'\',
  95   -- Hello emptytagdef
  96   emptytagdef varchar DEFAULT \'\',
  97   another_id int(10) DEFAULT \'2\',
  98   timest timestamp
  99 )',
 100           'CREATE INDEX titleindex_Basic02 ON Basic (title)',
 101           'CREATE UNIQUE INDEX emailuniqueindex_Basic02 ON Basic (email)',
 102           'DROP TABLE Another',
 103           'CREATE TABLE Another (
 104   id INTEGER PRIMARY KEY NOT NULL
 105 )',
 106           'DROP VIEW IF EXISTS email_list;
 107 CREATE VIEW email_list AS
 108     SELECT email FROM Basic WHERE email IS NOT NULL',
 109           'DROP TRIGGER IF EXISTS foo_trigger',
 110           'CREATE TRIGGER foo_trigger after insert on Basic BEGIN update modified=timestamp(); END',
 111           'COMMIT'
 112           ], 'SQLite translate in list context matches');
 113
 114