use Test::More;
use Test::SQL::Translator;
use Test::Exception;
+use Test::Differences;
use Data::Dumper;
use SQL::Translator;
use SQL::Translator::Schema::Constants;
filename => $xmlfile,
) or die $sqlt->error;
-is($sql, << "SQL");
+eq_or_diff($sql, << "SQL");
DROP TABLE "Basic" CASCADE;
CREATE TABLE "Basic" (
"id" serial NOT NULL,
"another_id" integer DEFAULT '2',
"timest" timestamp(0),
PRIMARY KEY ("id"),
- Constraint "emailuniqueindex" UNIQUE ("email")
+ CONSTRAINT "emailuniqueindex" UNIQUE ("email")
);
CREATE INDEX "titleindex" on "Basic" ("title");
-
DROP TABLE "Another" CASCADE;
CREATE TABLE "Another" (
"id" serial NOT NULL,
PRIMARY KEY ("id")
);
-
-
-CREATE OR REPLACE VIEW "email_list" ( "email" ) AS (
+DROP VIEW "email_list";
+CREATE VIEW "email_list" ( "email" ) AS (
SELECT email FROM Basic WHERE email IS NOT NULL
);
ALTER TABLE "Basic" ADD FOREIGN KEY ("another_id")
REFERENCES "Another" ("id") DEFERRABLE;
+
SQL