mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-09-28 14:01:48 +02:00
b3a9e9897e
This will possibly help a subsequent patch by making sure the notice messages are distinct so that it's clear that they come out in the right order. Author: Fabien COELHO <coelho@cri.ensmp.fr> Discussion: https://www.postgresql.org/message-id/alpine.DEB.2.21.1904240654120.3407%40lancre
92 lines
3.8 KiB
PL/PgSQL
92 lines
3.8 KiB
PL/PgSQL
--
|
|
-- Test cases for COPY (INSERT/UPDATE/DELETE) TO
|
|
--
|
|
create table copydml_test (id serial, t text);
|
|
insert into copydml_test (t) values ('a');
|
|
insert into copydml_test (t) values ('b');
|
|
insert into copydml_test (t) values ('c');
|
|
insert into copydml_test (t) values ('d');
|
|
insert into copydml_test (t) values ('e');
|
|
|
|
--
|
|
-- Test COPY (insert/update/delete ...)
|
|
--
|
|
copy (insert into copydml_test (t) values ('f') returning id) to stdout;
|
|
copy (update copydml_test set t = 'g' where t = 'f' returning id) to stdout;
|
|
copy (delete from copydml_test where t = 'g' returning id) to stdout;
|
|
|
|
--
|
|
-- Test \copy (insert/update/delete ...)
|
|
--
|
|
\copy (insert into copydml_test (t) values ('f') returning id) to stdout;
|
|
\copy (update copydml_test set t = 'g' where t = 'f' returning id) to stdout;
|
|
\copy (delete from copydml_test where t = 'g' returning id) to stdout;
|
|
|
|
-- Error cases
|
|
copy (insert into copydml_test default values) to stdout;
|
|
copy (update copydml_test set t = 'g') to stdout;
|
|
copy (delete from copydml_test) to stdout;
|
|
|
|
create rule qqq as on insert to copydml_test do instead nothing;
|
|
copy (insert into copydml_test default values) to stdout;
|
|
drop rule qqq on copydml_test;
|
|
create rule qqq as on insert to copydml_test do also delete from copydml_test;
|
|
copy (insert into copydml_test default values) to stdout;
|
|
drop rule qqq on copydml_test;
|
|
create rule qqq as on insert to copydml_test do instead (delete from copydml_test; delete from copydml_test);
|
|
copy (insert into copydml_test default values) to stdout;
|
|
drop rule qqq on copydml_test;
|
|
create rule qqq as on insert to copydml_test where new.t <> 'f' do instead delete from copydml_test;
|
|
copy (insert into copydml_test default values) to stdout;
|
|
drop rule qqq on copydml_test;
|
|
|
|
create rule qqq as on update to copydml_test do instead nothing;
|
|
copy (update copydml_test set t = 'f') to stdout;
|
|
drop rule qqq on copydml_test;
|
|
create rule qqq as on update to copydml_test do also delete from copydml_test;
|
|
copy (update copydml_test set t = 'f') to stdout;
|
|
drop rule qqq on copydml_test;
|
|
create rule qqq as on update to copydml_test do instead (delete from copydml_test; delete from copydml_test);
|
|
copy (update copydml_test set t = 'f') to stdout;
|
|
drop rule qqq on copydml_test;
|
|
create rule qqq as on update to copydml_test where new.t <> 'f' do instead delete from copydml_test;
|
|
copy (update copydml_test set t = 'f') to stdout;
|
|
drop rule qqq on copydml_test;
|
|
|
|
create rule qqq as on delete to copydml_test do instead nothing;
|
|
copy (delete from copydml_test) to stdout;
|
|
drop rule qqq on copydml_test;
|
|
create rule qqq as on delete to copydml_test do also insert into copydml_test default values;
|
|
copy (delete from copydml_test) to stdout;
|
|
drop rule qqq on copydml_test;
|
|
create rule qqq as on delete to copydml_test do instead (insert into copydml_test default values; insert into copydml_test default values);
|
|
copy (delete from copydml_test) to stdout;
|
|
drop rule qqq on copydml_test;
|
|
create rule qqq as on delete to copydml_test where old.t <> 'f' do instead insert into copydml_test default values;
|
|
copy (delete from copydml_test) to stdout;
|
|
drop rule qqq on copydml_test;
|
|
|
|
-- triggers
|
|
create function qqq_trig() returns trigger as $$
|
|
begin
|
|
if tg_op in ('INSERT', 'UPDATE') then
|
|
raise notice '% % %', tg_when, tg_op, new.id;
|
|
return new;
|
|
else
|
|
raise notice '% % %', tg_when, tg_op, old.id;
|
|
return old;
|
|
end if;
|
|
end
|
|
$$ language plpgsql;
|
|
create trigger qqqbef before insert or update or delete on copydml_test
|
|
for each row execute procedure qqq_trig();
|
|
create trigger qqqaf after insert or update or delete on copydml_test
|
|
for each row execute procedure qqq_trig();
|
|
|
|
copy (insert into copydml_test (t) values ('f') returning id) to stdout;
|
|
copy (update copydml_test set t = 'g' where t = 'f' returning id) to stdout;
|
|
copy (delete from copydml_test where t = 'g' returning id) to stdout;
|
|
|
|
drop table copydml_test;
|
|
drop function qqq_trig();
|