6 use Test::More tests => 3;
10 use SQL::Translator::Parser::SQLite;
11 use SQL::Translator::Diff;
15 "foo" INTEGER PRIMARY KEY NOT NULL,
16 "bar" VARCHAR(10) NOT NULL,
26 my $unquoted = SQL::Translator
30 eq_or_diff($unquoted, <<'DDL', 'DDL with default quoting');
34 foo INTEGER PRIMARY KEY NOT NULL,
35 bar VARCHAR(10) NOT NULL,
42 dies_ok { SQL::Translator
43 ->new(%common_args, quote_table_names=>0, quote_field_names => 1)
44 ->translate(\$ddl) } 'mix and match quotes is asinine';
46 my $quoteall = SQL::Translator
47 ->new(%common_args, quote_identifiers=>1)
50 eq_or_diff($quoteall, <<'DDL', 'DDL with quoting');
54 "foo" INTEGER PRIMARY KEY NOT NULL,
55 "bar" VARCHAR(10) NOT NULL,
64 # FIGURE OUT HOW TO DO QUOTED DIFFS EVEN WHEN QUOTING IS DEFAULT OFF
67 eq_or_diff($upgrade_sql, <<'## END OF DIFF', "Diff as expected");
68 -- Convert schema '' to '':;
72 CREATE TEMPORARY TABLE "Foo_temp_alter" (
73 "foo" INTEGER PRIMARY KEY NOT NULL,
74 "bar" VARCHAR(10) NOT NULL,
79 INSERT INTO "Foo_temp_alter"( "foo", "bar") SELECT "foo", "bar" FROM "Foo";
84 "foo" INTEGER PRIMARY KEY NOT NULL,
85 "bar" VARCHAR(10) NOT NULL,
90 INSERT INTO "Foo" SELECT "foo", "bar", "baz", "doomed" FROM "Foo_temp_alter";
92 DROP TABLE "Foo_temp_alter";