-- Test Comment / Dropcreate domain domaindroptest int4;comment on domain domaindroptest is 'About to drop this..';-- currently this will be disallowedcreate domain basetypetest domaindroptest;drop domain domaindroptest;-- this should fail because already gonedrop domain domaindroptest cascade;-- TEST Domains.create domain domainvarchar varchar(5);create domain domainnumeric numeric(8,2);create domain domainint4 int4;create domain domaintext text;-- Test explicit coercions --- these should succeed (and truncate)SELECT cast('123456' as domainvarchar);SELECT cast('12345' as domainvarchar);-- Test tables using domainscreate table basictest           ( testint4 domainint4           , testtext domaintext           , testvarchar domainvarchar           , testnumeric domainnumeric           );INSERT INTO basictest values ('88', 'haha', 'short', '123.12');      -- GoodINSERT INTO basictest values ('88', 'haha', 'short text', '123.12'); -- Bad varcharINSERT INTO basictest values ('88', 'haha', 'short', '123.1212');    -- Truncate numeric-- Test copyCOPY basictest (testvarchar) FROM stdin; -- failnotsoshorttext\.COPY basictest (testvarchar) FROM stdin;short\.select * from basictest;-- check that domains inherit operations from base typesselect testtext || testvarchar as concat, testnumeric + 42 as sumfrom basictest;drop table basictest;drop domain domainvarchar restrict;drop domain domainnumeric restrict;drop domain domainint4 restrict;drop domain domaintext;-- Array Testcreate domain domainint4arr int4[1];create domain domaintextarr text[2][3];create table domarrtest           ( testint4arr domainint4arr           , testtextarr domaintextarr            );INSERT INTO domarrtest values ('{2,2}', '{{"a","b"}{"c","d"}}');INSERT INTO domarrtest values ('{{2,2}{2,2}}', '{{"a","b"}}');INSERT INTO domarrtest values ('{2,2}', '{{"a","b"}{"c","d"}{"e"}}');INSERT INTO domarrtest values ('{2,2}', '{{"a"}{"c"}}');INSERT INTO domarrtest values (NULL, '{{"a","b"}{"c","d","e"}}');select * from domarrtest;select testint4arr[1], testtextarr[2:2] from domarrtest;drop table domarrtest;drop domain domainint4arr restrict;drop domain domaintextarr restrict;create domain dnotnull varchar(15) NOT NULL;create domain dnull    varchar(15);create domain dcheck   varchar(15) NOT NULL CHECK (VALUE = 'a' OR VALUE = 'c' OR VALUE = 'd');create table nulltest           ( col1 dnotnull           , col2 dnotnull NULL  -- NOT NULL in the domain cannot be overridden           , col3 dnull    NOT NULL           , col4 dnull           , col5 dcheck CHECK (col5 IN ('c', 'd'))           );INSERT INTO nulltest DEFAULT VALUES;INSERT INTO nulltest values ('a', 'b', 'c', 'd', 'c');  -- Goodinsert into nulltest values ('a', 'b', 'c', 'd', NULL);insert into nulltest values ('a', 'b', 'c', 'd', 'a');INSERT INTO nulltest values (NULL, 'b', 'c', 'd', 'd');INSERT INTO nulltest values ('a', NULL, 'c', 'd', 'c');INSERT INTO nulltest values ('a', 'b', NULL, 'd', 'c');INSERT INTO nulltest values ('a', 'b', 'c', NULL, 'd'); -- Good-- Test copyCOPY nulltest FROM stdin; --faila	b	\N	d	\N\.-- Last row is badCOPY nulltest FROM stdin;a	b	c	\N	ca	b	c	\N	da	b	c	\N	a\.select * from nulltest;-- Test out coerced (casted) constraintsSELECT cast('1' as dnotnull);SELECT cast(NULL as dnotnull); -- failSELECT cast(cast(NULL as dnull) as dnotnull); -- failSELECT cast(col4 as dnotnull) from nulltest; -- fail-- cleanupdrop table nulltest;drop domain dnotnull restrict;drop domain dnull restrict;drop domain dcheck restrict;create domain ddef1 int4 DEFAULT 3;create domain ddef2 oid DEFAULT '12';-- Type mixing, function returns int8create domain ddef3 text DEFAULT 5;create sequence ddef4_seq;create domain ddef4 int4 DEFAULT nextval(cast('ddef4_seq' as text));create domain ddef5 numeric(8,2) NOT NULL DEFAULT '12.12';create table defaulttest            ( col1 ddef1            , col2 ddef2            , col3 ddef3            , col4 ddef4 PRIMARY KEY            , col5 ddef1 NOT NULL DEFAULT NULL            , col6 ddef2 DEFAULT '88'            , col7 ddef4 DEFAULT 8000            , col8 ddef5            );insert into defaulttest default values;insert into defaulttest default values;insert into defaulttest default values;-- Test defaults with copyCOPY defaulttest(col5) FROM stdin;42\.select * from defaulttest;drop sequence ddef4_seq;drop table defaulttest cascade;-- Test ALTER DOMAIN .. NOT NULLcreate domain dnotnulltest integer;create table domnotnull( col1 dnotnulltest, col2 dnotnulltest);insert into domnotnull default values;alter domain dnotnulltest set not null; -- failsupdate domnotnull set col1 = 5;alter domain dnotnulltest set not null; -- failsupdate domnotnull set col2 = 6;alter domain dnotnulltest set not null;update domnotnull set col1 = null; -- failsalter domain dnotnulltest drop not null;update domnotnull set col1 = null;drop domain dnotnulltest cascade;-- Test ALTER DOMAIN .. DEFAULT ..create table domdeftest (col1 ddef1);insert into domdeftest default values;select * from domdeftest;alter domain ddef1 set default '42';insert into domdeftest default values;select * from domdeftest;alter domain ddef1 drop default;insert into domdeftest default values;select * from domdeftest;drop table domdeftest;-- Test ALTER DOMAIN .. CONSTRAINT ..create domain con as integer;create table domcontest (col1 con);insert into domcontest values (1);insert into domcontest values (2);alter domain con add constraint t check (VALUE < 1); -- failsalter domain con add constraint t check (VALUE < 34);alter domain con add check (VALUE > 0);insert into domcontest values (-5); -- failsinsert into domcontest values (42); -- failsinsert into domcontest values (5);alter domain con drop constraint t;insert into domcontest values (-5); --failsinsert into domcontest values (42);-- Confirm ALTER DOMAIN with RULES.create table domtab (col1 integer);create domain dom as integer;create view domview as select cast(col1 as dom) from domtab;insert into domtab (col1) values (null);insert into domtab (col1) values (5);select * from domview;alter domain dom set not null;select * from domview; -- failalter domain dom drop not null;select * from domview;alter domain dom add constraint domchkgt6 check(value > 6);select * from domview; --failalter domain dom drop constraint domchkgt6 restrict;select * from domview;-- cleanupdrop domain ddef1 restrict;drop domain ddef2 restrict;drop domain ddef3 restrict;drop domain ddef4 restrict;drop domain ddef5 restrict;