PgSQL diff patch from wries

[dbsrgits/SQL-Translator.git] / t / 46xml-to-pg.t

diff --git a/t/46xml-to-pg.t b/t/46xml-to-pg.t
index 7bb025f..04b2f5c 100644 (file)
--- a/t/46xml-to-pg.t
+++ b/t/46xml-to-pg.t
@@ -33,7 +33,7 @@ my $sql = $sqlt->translate(
 ) or die $sqlt->error;
 
 is($sql, << "SQL");
-DROP TABLE "Basic";
+DROP TABLE "Basic" CASCADE;
 CREATE TABLE "Basic" (
   "id" serial NOT NULL,
   "title" character varying(100) DEFAULT 'hello' NOT NULL,
@@ -43,9 +43,24 @@ CREATE TABLE "Basic" (
   "explicitemptystring" character varying DEFAULT '',
   -- Hello emptytagdef
   "emptytagdef" character varying DEFAULT '',
+  "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")
+);
+
+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