Skip to content

G
Gpdb

Greenplum / Gpdb

通知 7
Star 1
Fork 0
G
Gpdb

体验新版 GitCode，发现更多精彩内容 >>

提交 ee28d8b3 编写于 作者: T Tom Lane
浏览文件
操作

plpgsql regress tests seem a tad out of date ... repair bit rot.

上级 e91932eb
展开全部 显示空白变更内容
内联 并排
Showing with 557 addition and 571 deletion
src/pl/plpgsql/test/expected/tables.out
浏览文件 @ ee28d8b3
QUERY: create table Room ( create table Room (
roomno char(8), roomno char(8),
comment text comment text
); );
QUERY: create unique index Room_rno on Room using btree (roomno bpchar_ops); create unique index Room_rno on Room using btree (roomno bpchar_ops);
QUERY: create table WSlot ( create table WSlot (
slotname char(20), slotname char(20),
roomno char(8), roomno char(8),
slotlink char(20), slotlink char(20),
backlink char(20) backlink char(20)
); );
QUERY: create unique index WSlot_name on WSlot using btree (slotname bpchar_ops); create unique index WSlot_name on WSlot using btree (slotname bpchar_ops);
QUERY: create table PField ( create table PField (
name text, name text,
comment text comment text
); );
QUERY: create unique index PField_name on PField using btree (name text_ops); create unique index PField_name on PField using btree (name text_ops);
QUERY: create table PSlot ( create table PSlot (
slotname char(20), slotname char(20),
pfname text, pfname text,
slotlink char(20), slotlink char(20),
backlink char(20) backlink char(20)
); );
QUERY: create unique index PSlot_name on PSlot using btree (slotname bpchar_ops); create unique index PSlot_name on PSlot using btree (slotname bpchar_ops);
QUERY: create table PLine ( create table PLine (
slotname char(20), slotname char(20),
phonenumber char(20), phonenumber char(20),
comment text, comment text,
backlink char(20) backlink char(20)
); );
QUERY: create unique index PLine_name on PLine using btree (slotname bpchar_ops); create unique index PLine_name on PLine using btree (slotname bpchar_ops);
QUERY: create table Hub ( create table Hub (
name char(14), name char(14),
comment text, comment text,
nslots integer nslots integer
); );
QUERY: create unique index Hub_name on Hub using btree (name bpchar_ops); create unique index Hub_name on Hub using btree (name bpchar_ops);
QUERY: create table HSlot ( create table HSlot (
slotname char(20), slotname char(20),
hubname char(14), hubname char(14),
slotno integer, slotno integer,
slotlink char(20) slotlink char(20)
); );
QUERY: create unique index HSlot_name on HSlot using btree (slotname bpchar_ops); create unique index HSlot_name on HSlot using btree (slotname bpchar_ops);
QUERY: create index HSlot_hubname on HSlot using btree (hubname bpchar_ops); create index HSlot_hubname on HSlot using btree (hubname bpchar_ops);
QUERY: create table System ( create table System (
name text, name text,
comment text comment text
); );
QUERY: create unique index System_name on System using btree (name text_ops); create unique index System_name on System using btree (name text_ops);
QUERY: create table IFace ( create table IFace (
slotname char(20), slotname char(20),
sysname text, sysname text,
ifname text, ifname text,
slotlink char(20) slotlink char(20)
); );
QUERY: create unique index IFace_name on IFace using btree (slotname bpchar_ops); create unique index IFace_name on IFace using btree (slotname bpchar_ops);
QUERY: create table PHone ( create table PHone (
slotname char(20), slotname char(20),
comment text, comment text,
slotlink char(20) slotlink char(20)
); );
QUERY: create unique index PHone_name on PHone using btree (slotname bpchar_ops); create unique index PHone_name on PHone using btree (slotname bpchar_ops);
src/pl/plpgsql/test/expected/triggers.out
浏览文件 @ ee28d8b3
QUERY: create function tg_room_au() returns opaque as ' create function tg_room_au() returns opaque as '
begin begin
if new.roomno != old.roomno then if new.roomno != old.roomno then
update WSlot set roomno = new.roomno where roomno = old.roomno; update WSlot set roomno = new.roomno where roomno = old.roomno;
...@@ -6,17 +6,17 @@ begin ...@@ -6,17 +6,17 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_room_au after update create trigger tg_room_au after update
on Room for each row execute procedure tg_room_au(); on Room for each row execute procedure tg_room_au();
QUERY: create function tg_room_ad() returns opaque as ' create function tg_room_ad() returns opaque as '
begin begin
delete from WSlot where roomno = old.roomno; delete from WSlot where roomno = old.roomno;
return old; return old;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_room_ad after delete create trigger tg_room_ad after delete
on Room for each row execute procedure tg_room_ad(); on Room for each row execute procedure tg_room_ad();
QUERY: create function tg_wslot_biu() returns opaque as ' create function tg_wslot_biu() returns opaque as '
begin begin
if count(*) = 0 from Room where roomno = new.roomno then if count(*) = 0 from Room where roomno = new.roomno then
raise exception ''Room % does not exist'', new.roomno; raise exception ''Room % does not exist'', new.roomno;
...@@ -24,9 +24,9 @@ begin ...@@ -24,9 +24,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_wslot_biu before insert or update create trigger tg_wslot_biu before insert or update
on WSlot for each row execute procedure tg_wslot_biu(); on WSlot for each row execute procedure tg_wslot_biu();
QUERY: create function tg_pfield_au() returns opaque as ' create function tg_pfield_au() returns opaque as '
begin begin
if new.name != old.name then if new.name != old.name then
update PSlot set pfname = new.name where pfname = old.name; update PSlot set pfname = new.name where pfname = old.name;
...@@ -34,17 +34,17 @@ begin ...@@ -34,17 +34,17 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_pfield_au after update create trigger tg_pfield_au after update
on PField for each row execute procedure tg_pfield_au(); on PField for each row execute procedure tg_pfield_au();
QUERY: create function tg_pfield_ad() returns opaque as ' create function tg_pfield_ad() returns opaque as '
begin begin
delete from PSlot where pfname = old.name; delete from PSlot where pfname = old.name;
return old; return old;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_pfield_ad after delete create trigger tg_pfield_ad after delete
on PField for each row execute procedure tg_pfield_ad(); on PField for each row execute procedure tg_pfield_ad();
QUERY: create function tg_pslot_biu() returns opaque as ' create function tg_pslot_biu() returns opaque as '
declare declare
pfrec record; pfrec record;
rename new to ps; rename new to ps;
...@@ -56,9 +56,9 @@ begin ...@@ -56,9 +56,9 @@ begin
return ps; return ps;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_pslot_biu before insert or update create trigger tg_pslot_biu before insert or update
on PSlot for each row execute procedure tg_pslot_biu(); on PSlot for each row execute procedure tg_pslot_biu();
QUERY: create function tg_system_au() returns opaque as ' create function tg_system_au() returns opaque as '
begin begin
if new.name != old.name then if new.name != old.name then
update IFace set sysname = new.name where sysname = old.name; update IFace set sysname = new.name where sysname = old.name;
...@@ -66,9 +66,9 @@ begin ...@@ -66,9 +66,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_system_au after update create trigger tg_system_au after update
on System for each row execute procedure tg_system_au(); on System for each row execute procedure tg_system_au();
QUERY: create function tg_iface_biu() returns opaque as ' create function tg_iface_biu() returns opaque as '
declare declare
sname text; sname text;
sysrec record; sysrec record;
...@@ -87,9 +87,9 @@ begin ...@@ -87,9 +87,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_iface_biu before insert or update create trigger tg_iface_biu before insert or update
on IFace for each row execute procedure tg_iface_biu(); on IFace for each row execute procedure tg_iface_biu();
QUERY: create function tg_hub_a() returns opaque as ' create function tg_hub_a() returns opaque as '
declare declare
hname text; hname text;
dummy integer; dummy integer;
...@@ -111,9 +111,9 @@ begin ...@@ -111,9 +111,9 @@ begin
end if; end if;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_hub_a after insert or update or delete create trigger tg_hub_a after insert or update or delete
on Hub for each row execute procedure tg_hub_a(); on Hub for each row execute procedure tg_hub_a();
QUERY: create function tg_hub_adjustslots(bpchar, integer, integer) create function tg_hub_adjustslots(bpchar, integer, integer)
returns integer as ' returns integer as '
declare declare
hname alias for $1; hname alias for $1;
...@@ -134,7 +134,7 @@ begin ...@@ -134,7 +134,7 @@ begin
return 0; return 0;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create function tg_hslot_biu() returns opaque as ' create function tg_hslot_biu() returns opaque as '
declare declare
sname text; sname text;
xname HSlot.slotname%TYPE; xname HSlot.slotname%TYPE;
...@@ -164,9 +164,9 @@ begin ...@@ -164,9 +164,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_hslot_biu before insert or update create trigger tg_hslot_biu before insert or update
on HSlot for each row execute procedure tg_hslot_biu(); on HSlot for each row execute procedure tg_hslot_biu();
QUERY: create function tg_hslot_bd() returns opaque as ' create function tg_hslot_bd() returns opaque as '
declare declare
hubrec record; hubrec record;
begin begin
...@@ -180,9 +180,9 @@ begin ...@@ -180,9 +180,9 @@ begin
raise exception ''no manual manipulation of HSlot''; raise exception ''no manual manipulation of HSlot'';
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_hslot_bd before delete create trigger tg_hslot_bd before delete
on HSlot for each row execute procedure tg_hslot_bd(); on HSlot for each row execute procedure tg_hslot_bd();
QUERY: create function tg_chkslotname() returns opaque as ' create function tg_chkslotname() returns opaque as '
begin begin
if substr(new.slotname, 1, 2) != tg_argv[0] then if substr(new.slotname, 1, 2) != tg_argv[0] then
raise exception ''slotname must begin with %'', tg_argv[0]; raise exception ''slotname must begin with %'', tg_argv[0];
...@@ -190,17 +190,17 @@ begin ...@@ -190,17 +190,17 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_chkslotname before insert create trigger tg_chkslotname before insert
on PSlot for each row execute procedure tg_chkslotname('PS'); on PSlot for each row execute procedure tg_chkslotname('PS');
QUERY: create trigger tg_chkslotname before insert create trigger tg_chkslotname before insert
on WSlot for each row execute procedure tg_chkslotname('WS'); on WSlot for each row execute procedure tg_chkslotname('WS');
QUERY: create trigger tg_chkslotname before insert create trigger tg_chkslotname before insert
on PLine for each row execute procedure tg_chkslotname('PL'); on PLine for each row execute procedure tg_chkslotname('PL');
QUERY: create trigger tg_chkslotname before insert create trigger tg_chkslotname before insert
on IFace for each row execute procedure tg_chkslotname('IF'); on IFace for each row execute procedure tg_chkslotname('IF');
QUERY: create trigger tg_chkslotname before insert create trigger tg_chkslotname before insert
on PHone for each row execute procedure tg_chkslotname('PH'); on PHone for each row execute procedure tg_chkslotname('PH');
QUERY: create function tg_chkslotlink() returns opaque as ' create function tg_chkslotlink() returns opaque as '
begin begin
if new.slotlink isnull then if new.slotlink isnull then
new.slotlink := ''''; new.slotlink := '''';
...@@ -208,17 +208,17 @@ begin ...@@ -208,17 +208,17 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_chkslotlink before insert or update create trigger tg_chkslotlink before insert or update
on PSlot for each row execute procedure tg_chkslotlink(); on PSlot for each row execute procedure tg_chkslotlink();
QUERY: create trigger tg_chkslotlink before insert or update create trigger tg_chkslotlink before insert or update
on WSlot for each row execute procedure tg_chkslotlink(); on WSlot for each row execute procedure tg_chkslotlink();
QUERY: create trigger tg_chkslotlink before insert or update create trigger tg_chkslotlink before insert or update
on IFace for each row execute procedure tg_chkslotlink(); on IFace for each row execute procedure tg_chkslotlink();
QUERY: create trigger tg_chkslotlink before insert or update create trigger tg_chkslotlink before insert or update
on HSlot for each row execute procedure tg_chkslotlink(); on HSlot for each row execute procedure tg_chkslotlink();
QUERY: create trigger tg_chkslotlink before insert or update create trigger tg_chkslotlink before insert or update
on PHone for each row execute procedure tg_chkslotlink(); on PHone for each row execute procedure tg_chkslotlink();
QUERY: create function tg_chkbacklink() returns opaque as ' create function tg_chkbacklink() returns opaque as '
begin begin
if new.backlink isnull then if new.backlink isnull then
new.backlink := ''''; new.backlink := '''';
...@@ -226,13 +226,13 @@ begin ...@@ -226,13 +226,13 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_chkbacklink before insert or update create trigger tg_chkbacklink before insert or update
on PSlot for each row execute procedure tg_chkbacklink(); on PSlot for each row execute procedure tg_chkbacklink();
QUERY: create trigger tg_chkbacklink before insert or update create trigger tg_chkbacklink before insert or update
on WSlot for each row execute procedure tg_chkbacklink(); on WSlot for each row execute procedure tg_chkbacklink();
QUERY: create trigger tg_chkbacklink before insert or update create trigger tg_chkbacklink before insert or update
on PLine for each row execute procedure tg_chkbacklink(); on PLine for each row execute procedure tg_chkbacklink();
QUERY: create function tg_pslot_bu() returns opaque as ' create function tg_pslot_bu() returns opaque as '
begin begin
if new.slotname != old.slotname then if new.slotname != old.slotname then
delete from PSlot where slotname = old.slotname; delete from PSlot where slotname = old.slotname;
...@@ -252,9 +252,9 @@ begin ...@@ -252,9 +252,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_pslot_bu before update create trigger tg_pslot_bu before update
on PSlot for each row execute procedure tg_pslot_bu(); on PSlot for each row execute procedure tg_pslot_bu();
QUERY: create function tg_wslot_bu() returns opaque as ' create function tg_wslot_bu() returns opaque as '
begin begin
if new.slotname != old.slotname then if new.slotname != old.slotname then
delete from WSlot where slotname = old.slotname; delete from WSlot where slotname = old.slotname;
...@@ -274,9 +274,9 @@ begin ...@@ -274,9 +274,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_wslot_bu before update create trigger tg_wslot_bu before update
on WSlot for each row execute procedure tg_Wslot_bu(); on WSlot for each row execute procedure tg_Wslot_bu();
QUERY: create function tg_pline_bu() returns opaque as ' create function tg_pline_bu() returns opaque as '
begin begin
if new.slotname != old.slotname then if new.slotname != old.slotname then
delete from PLine where slotname = old.slotname; delete from PLine where slotname = old.slotname;
...@@ -296,9 +296,9 @@ begin ...@@ -296,9 +296,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_pline_bu before update create trigger tg_pline_bu before update
on PLine for each row execute procedure tg_pline_bu(); on PLine for each row execute procedure tg_pline_bu();
QUERY: create function tg_iface_bu() returns opaque as ' create function tg_iface_bu() returns opaque as '
begin begin
if new.slotname != old.slotname then if new.slotname != old.slotname then
delete from IFace where slotname = old.slotname; delete from IFace where slotname = old.slotname;
...@@ -318,9 +318,9 @@ begin ...@@ -318,9 +318,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_iface_bu before update create trigger tg_iface_bu before update
on IFace for each row execute procedure tg_iface_bu(); on IFace for each row execute procedure tg_iface_bu();
QUERY: create function tg_hslot_bu() returns opaque as ' create function tg_hslot_bu() returns opaque as '
begin begin
if new.slotname != old.slotname or new.hubname != old.hubname then if new.slotname != old.slotname or new.hubname != old.hubname then
delete from HSlot where slotname = old.slotname; delete from HSlot where slotname = old.slotname;
...@@ -340,9 +340,9 @@ begin ...@@ -340,9 +340,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_hslot_bu before update create trigger tg_hslot_bu before update
on HSlot for each row execute procedure tg_hslot_bu(); on HSlot for each row execute procedure tg_hslot_bu();
QUERY: create function tg_phone_bu() returns opaque as ' create function tg_phone_bu() returns opaque as '
begin begin
if new.slotname != old.slotname then if new.slotname != old.slotname then
delete from PHone where slotname = old.slotname; delete from PHone where slotname = old.slotname;
...@@ -360,9 +360,9 @@ begin ...@@ -360,9 +360,9 @@ begin
return new; return new;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_phone_bu before update create trigger tg_phone_bu before update
on PHone for each row execute procedure tg_phone_bu(); on PHone for each row execute procedure tg_phone_bu();
QUERY: create function tg_backlink_a() returns opaque as ' create function tg_backlink_a() returns opaque as '
declare declare
dummy integer; dummy integer;
begin begin
...@@ -395,13 +395,13 @@ begin ...@@ -395,13 +395,13 @@ begin
end if; end if;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_backlink_a after insert or update or delete create trigger tg_backlink_a after insert or update or delete
on PSlot for each row execute procedure tg_backlink_a('PS'); on PSlot for each row execute procedure tg_backlink_a('PS');
QUERY: create trigger tg_backlink_a after insert or update or delete create trigger tg_backlink_a after insert or update or delete
on WSlot for each row execute procedure tg_backlink_a('WS'); on WSlot for each row execute procedure tg_backlink_a('WS');
QUERY: create trigger tg_backlink_a after insert or update or delete create trigger tg_backlink_a after insert or update or delete
on PLine for each row execute procedure tg_backlink_a('PL'); on PLine for each row execute procedure tg_backlink_a('PL');
QUERY: create function tg_backlink_set(bpchar, bpchar) create function tg_backlink_set(bpchar, bpchar)
returns integer as ' returns integer as '
declare declare
myname alias for $1; myname alias for $1;
...@@ -423,7 +423,7 @@ begin ...@@ -423,7 +423,7 @@ begin
if mytype = ''PS'' then if mytype = ''PS'' then
select into rec * from PSlot where slotname = myname; select into rec * from PSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.backlink != blname then if rec.backlink != blname then
update PSlot set backlink = blname where slotname = myname; update PSlot set backlink = blname where slotname = myname;
...@@ -433,7 +433,7 @@ begin ...@@ -433,7 +433,7 @@ begin
if mytype = ''WS'' then if mytype = ''WS'' then
select into rec * from WSlot where slotname = myname; select into rec * from WSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.backlink != blname then if rec.backlink != blname then
update WSlot set backlink = blname where slotname = myname; update WSlot set backlink = blname where slotname = myname;
...@@ -443,7 +443,7 @@ begin ...@@ -443,7 +443,7 @@ begin
if mytype = ''PL'' then if mytype = ''PL'' then
select into rec * from PLine where slotname = myname; select into rec * from PLine where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.backlink != blname then if rec.backlink != blname then
update PLine set backlink = blname where slotname = myname; update PLine set backlink = blname where slotname = myname;
...@@ -453,7 +453,7 @@ begin ...@@ -453,7 +453,7 @@ begin
raise exception ''illegal backlink beginning with %'', mytype; raise exception ''illegal backlink beginning with %'', mytype;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create function tg_backlink_unset(bpchar, bpchar) create function tg_backlink_unset(bpchar, bpchar)
returns integer as ' returns integer as '
declare declare
myname alias for $1; myname alias for $1;
...@@ -494,7 +494,7 @@ begin ...@@ -494,7 +494,7 @@ begin
end if; end if;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create function tg_slotlink_a() returns opaque as ' create function tg_slotlink_a() returns opaque as '
declare declare
dummy integer; dummy integer;
begin begin
...@@ -527,17 +527,17 @@ begin ...@@ -527,17 +527,17 @@ begin
end if; end if;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create trigger tg_slotlink_a after insert or update or delete create trigger tg_slotlink_a after insert or update or delete
on PSlot for each row execute procedure tg_slotlink_a('PS'); on PSlot for each row execute procedure tg_slotlink_a('PS');
QUERY: create trigger tg_slotlink_a after insert or update or delete create trigger tg_slotlink_a after insert or update or delete
on WSlot for each row execute procedure tg_slotlink_a('WS'); on WSlot for each row execute procedure tg_slotlink_a('WS');
QUERY: create trigger tg_slotlink_a after insert or update or delete create trigger tg_slotlink_a after insert or update or delete
on IFace for each row execute procedure tg_slotlink_a('IF'); on IFace for each row execute procedure tg_slotlink_a('IF');
QUERY: create trigger tg_slotlink_a after insert or update or delete create trigger tg_slotlink_a after insert or update or delete
on HSlot for each row execute procedure tg_slotlink_a('HS'); on HSlot for each row execute procedure tg_slotlink_a('HS');
QUERY: create trigger tg_slotlink_a after insert or update or delete create trigger tg_slotlink_a after insert or update or delete
on PHone for each row execute procedure tg_slotlink_a('PH'); on PHone for each row execute procedure tg_slotlink_a('PH');
QUERY: create function tg_slotlink_set(bpchar, bpchar) create function tg_slotlink_set(bpchar, bpchar)
returns integer as ' returns integer as '
declare declare
myname alias for $1; myname alias for $1;
...@@ -567,7 +567,7 @@ begin ...@@ -567,7 +567,7 @@ begin
if mytype = ''PS'' then if mytype = ''PS'' then
select into rec * from PSlot where slotname = myname; select into rec * from PSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update PSlot set slotlink = blname where slotname = myname; update PSlot set slotlink = blname where slotname = myname;
...@@ -577,7 +577,7 @@ begin ...@@ -577,7 +577,7 @@ begin
if mytype = ''WS'' then if mytype = ''WS'' then
select into rec * from WSlot where slotname = myname; select into rec * from WSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update WSlot set slotlink = blname where slotname = myname; update WSlot set slotlink = blname where slotname = myname;
...@@ -587,7 +587,7 @@ begin ...@@ -587,7 +587,7 @@ begin
if mytype = ''IF'' then if mytype = ''IF'' then
select into rec * from IFace where slotname = myname; select into rec * from IFace where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update IFace set slotlink = blname where slotname = myname; update IFace set slotlink = blname where slotname = myname;
...@@ -597,7 +597,7 @@ begin ...@@ -597,7 +597,7 @@ begin
if mytype = ''HS'' then if mytype = ''HS'' then
select into rec * from HSlot where slotname = myname; select into rec * from HSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update HSlot set slotlink = blname where slotname = myname; update HSlot set slotlink = blname where slotname = myname;
...@@ -607,7 +607,7 @@ begin ...@@ -607,7 +607,7 @@ begin
if mytype = ''PH'' then if mytype = ''PH'' then
select into rec * from PHone where slotname = myname; select into rec * from PHone where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update PHone set slotlink = blname where slotname = myname; update PHone set slotlink = blname where slotname = myname;
...@@ -617,7 +617,7 @@ begin ...@@ -617,7 +617,7 @@ begin
raise exception ''illegal slotlink beginning with %'', mytype; raise exception ''illegal slotlink beginning with %'', mytype;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create function tg_slotlink_unset(bpchar, bpchar) create function tg_slotlink_unset(bpchar, bpchar)
returns integer as ' returns integer as '
declare declare
myname alias for $1; myname alias for $1;
......
src/pl/plpgsql/test/expected/views.out
浏览文件 @ ee28d8b3
QUERY: create function pslot_backlink_view(bpchar) create function pslot_backlink_view(bpchar)
returns text as ' returns text as '
<<outer>> <<outer>>
declare declare
...@@ -38,7 +38,7 @@ begin ...@@ -38,7 +38,7 @@ begin
return rec.backlink; return rec.backlink;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create function pslot_slotlink_view(bpchar) create function pslot_slotlink_view(bpchar)
returns text as ' returns text as '
declare declare
psrec record; psrec record;
...@@ -69,7 +69,7 @@ begin ...@@ -69,7 +69,7 @@ begin
return psrec.slotlink; return psrec.slotlink;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create function wslot_slotlink_view(bpchar) create function wslot_slotlink_view(bpchar)
returns text as ' returns text as '
declare declare
rec record; rec record;
...@@ -114,7 +114,7 @@ begin ...@@ -114,7 +114,7 @@ begin
return rec.slotlink; return rec.slotlink;
end; end;
' language 'plpgsql'; ' language 'plpgsql';
QUERY: create view Pfield_v1 as select PF.pfname, PF.slotname, create view Pfield_v1 as select PF.pfname, PF.slotname,
pslot_backlink_view(PF.slotname) as backside, pslot_backlink_view(PF.slotname) as backside,
pslot_slotlink_view(PF.slotname) as patch pslot_slotlink_view(PF.slotname) as patch
from PSlot PF; from PSlot PF;
src/pl/plpgsql/test/mklang.sql 已删除 100644 → 0
浏览文件 @ e91932eb
--
-- PL/pgSQL language declaration
--
-- $Header: /cvsroot/pgsql/src/pl/plpgsql/test/Attic/mklang.sql,v 1.1 1998/08/24 19:16:27 momjian Exp $
--
create function plpgsql_call_handler() returns opaque
as '/usr/local/pgsql/lib/plpgsql.so'
language 'C';
create trusted procedural language 'plpgsql'
handler plpgsql_call_handler
lancompiler 'PL/pgSQL';
src/pl/plpgsql/test/runtest
浏览文件 @ ee28d8b3
...@@ -3,17 +3,17 @@ ...@@ -3,17 +3,17 @@
DB=plpgsql_test DB=plpgsql_test
export DB export DB
FRONTEND="psql -n -e -q" FRONTEND="psql -e -q -X"
export FRONTEND export FRONTEND
echo "*** destroy old $DB database ***" echo "*** destroy old $DB database ***"
destroydb $DB dropdb $DB
echo "*** create new $DB database ***" echo "*** create new $DB database ***"
createdb $DB createdb $DB
echo "*** install PL/pgSQL ***" echo "*** install PL/pgSQL ***"
$FRONTEND -f mklang.sql -d $DB >/dev/null 2>&1 createlang plpgsql $DB
echo "*** create tables ***" echo "*** create tables ***"
$FRONTEND -f tables.sql -d $DB >output/tables.out 2>&1 $FRONTEND -f tables.sql -d $DB >output/tables.out 2>&1
......
src/pl/plpgsql/test/triggers.sql
浏览文件 @ ee28d8b3
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
-- * Trigger procedures and functions for the patchfield -- * Trigger procedures and functions for the patchfield
-- * test of PL/pgSQL -- * test of PL/pgSQL
-- * -- *
-- * $Header: /cvsroot/pgsql/src/pl/plpgsql/test/Attic/triggers.sql,v 1.1 1998/08/24 19:16:27 momjian Exp $ -- * $Header: /cvsroot/pgsql/src/pl/plpgsql/test/Attic/triggers.sql,v 1.2 2000/10/22 23:25:11 tgl Exp $
-- * -- *
-- ************************************************************ -- ************************************************************
...@@ -603,7 +603,7 @@ begin ...@@ -603,7 +603,7 @@ begin
if mytype = ''PS'' then if mytype = ''PS'' then
select into rec * from PSlot where slotname = myname; select into rec * from PSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.backlink != blname then if rec.backlink != blname then
update PSlot set backlink = blname where slotname = myname; update PSlot set backlink = blname where slotname = myname;
...@@ -613,7 +613,7 @@ begin ...@@ -613,7 +613,7 @@ begin
if mytype = ''WS'' then if mytype = ''WS'' then
select into rec * from WSlot where slotname = myname; select into rec * from WSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.backlink != blname then if rec.backlink != blname then
update WSlot set backlink = blname where slotname = myname; update WSlot set backlink = blname where slotname = myname;
...@@ -623,7 +623,7 @@ begin ...@@ -623,7 +623,7 @@ begin
if mytype = ''PL'' then if mytype = ''PL'' then
select into rec * from PLine where slotname = myname; select into rec * from PLine where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.backlink != blname then if rec.backlink != blname then
update PLine set backlink = blname where slotname = myname; update PLine set backlink = blname where slotname = myname;
...@@ -771,7 +771,7 @@ begin ...@@ -771,7 +771,7 @@ begin
if mytype = ''PS'' then if mytype = ''PS'' then
select into rec * from PSlot where slotname = myname; select into rec * from PSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update PSlot set slotlink = blname where slotname = myname; update PSlot set slotlink = blname where slotname = myname;
...@@ -781,7 +781,7 @@ begin ...@@ -781,7 +781,7 @@ begin
if mytype = ''WS'' then if mytype = ''WS'' then
select into rec * from WSlot where slotname = myname; select into rec * from WSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update WSlot set slotlink = blname where slotname = myname; update WSlot set slotlink = blname where slotname = myname;
...@@ -791,7 +791,7 @@ begin ...@@ -791,7 +791,7 @@ begin
if mytype = ''IF'' then if mytype = ''IF'' then
select into rec * from IFace where slotname = myname; select into rec * from IFace where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update IFace set slotlink = blname where slotname = myname; update IFace set slotlink = blname where slotname = myname;
...@@ -801,7 +801,7 @@ begin ...@@ -801,7 +801,7 @@ begin
if mytype = ''HS'' then if mytype = ''HS'' then
select into rec * from HSlot where slotname = myname; select into rec * from HSlot where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update HSlot set slotlink = blname where slotname = myname; update HSlot set slotlink = blname where slotname = myname;
...@@ -811,7 +811,7 @@ begin ...@@ -811,7 +811,7 @@ begin
if mytype = ''PH'' then if mytype = ''PH'' then
select into rec * from PHone where slotname = myname; select into rec * from PHone where slotname = myname;
if not found then if not found then
raise exception ''% does not exists'', myname; raise exception ''% does not exist'', myname;
end if; end if;
if rec.slotlink != blname then if rec.slotlink != blname then
update PHone set slotlink = blname where slotname = myname; update PHone set slotlink = blname where slotname = myname;
......
Markdown is supported
0% 或 .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑！
想要评论请 注册 或