t/72-sqlite-add-drop-fields.t

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7 use Test::Differences;
   8 use SQL::Translator;
   9 use SQL::Translator::Parser::SQLite;
  10 use SQL::Translator::Diff;
  11
  12
  13 ok my $version1 = SQL::Translator->new(from=>'SQLite')
  14   ->translate(\<<SQL);
  15 CREATE TABLE "Foo" (
  16   "foo" INTEGER PRIMARY KEY NOT NULL,
  17   "bar" VARCHAR(10) NOT NULL,
  18   "biff" VARCHAR(10)
  19 );
  20 SQL
  21
  22 ok my $version2 = SQL::Translator->new(from=>'SQLite')
  23   ->translate(\<<SQL);
  24 CREATE TABLE "Foo" (
  25   "foo" INTEGER PRIMARY KEY NOT NULL,
  26   "bar" VARCHAR(10) NOT NULL,
  27   "baz" VARCHAR(10),
  28   "doomed" VARCHAR(10)
  29 );
  30 SQL
  31
  32 ok my $upgrade_sql = SQL::Translator::Diff->new({
  33   output_db     => 'SQLite',
  34   source_schema => $version1,
  35   target_schema => $version2,
  36 })->compute_differences->produce_diff_sql;
  37
  38 eq_or_diff($upgrade_sql, <<'## END OF DIFF', "Diff as expected");
  39 -- Convert schema '' to '':;
  40
  41 BEGIN;
  42
  43 CREATE TEMPORARY TABLE "Foo_temp_alter" (
  44   "foo" INTEGER PRIMARY KEY NOT NULL,
  45   "bar" VARCHAR(10) NOT NULL,
  46   "baz" VARCHAR(10),
  47   "doomed" VARCHAR(10)
  48 );
  49
  50 INSERT INTO "Foo_temp_alter"( "foo", "bar") SELECT "foo", "bar" FROM "Foo";
  51
  52 DROP TABLE "Foo";
  53
  54 CREATE TABLE "Foo" (
  55   "foo" INTEGER PRIMARY KEY NOT NULL,
  56   "bar" VARCHAR(10) NOT NULL,
  57   "baz" VARCHAR(10),
  58   "doomed" VARCHAR(10)
  59 );
  60
  61 INSERT INTO "Foo" SELECT "foo", "bar", "baz", "doomed" FROM "Foo_temp_alter";
  62
  63 DROP TABLE "Foo_temp_alter";
  64
  65
  66 COMMIT;
  67
  68 ## END OF DIFF
  69