move plpgsql

Author: bmomjian

src/pl/plpgsql/test/README

@@ -0,0 +1,22 @@
+Test suite for PL/pgSQL
+
+Scenario:
+
+    A building with a modern TP cabel installation where any
+    of the wall connectors can be used to plug in phones,
+    ethernet interfaces or local office hubs. The backside
+    of the wall connectors is wired to one of several patch-
+    fields in the building.
+
+    In the patchfields, there are hubs and all the slots
+    representing the wall connectors. In addition there are
+    slots that can represent a phone line from the central
+    phone system.
+
+    Triggers ensure consistency of the patching information.
+
+    Functions are used to build up powerful views that let
+    you look behind the wall when looking at a patchfield
+    or into a room.
+
+

src/pl/plpgsql/test/mklang.sql

@@ -0,0 +1,14 @@
+--
+-- 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

@@ -0,0 +1,49 @@
+#!/bin/sh
+
+DB=plpgsql_test
+export DB
+
+FRONTEND="psql -n -e -q"
+export FRONTEND
+
+echo "*** destroy old $DB database ***"
+destroydb $DB
+
+echo "*** create new $DB database ***"
+createdb $DB
+
+echo "*** install PL/pgSQL ***"
+$FRONTEND -f mklang.sql -d $DB >/dev/null 2>&1
+
+echo "*** create tables ***"
+$FRONTEND -f tables.sql -d $DB >output/tables.out 2>&1
+if cmp -s output/tables.out expected/tables.out ; then
+    echo "OK"
+else
+    echo "FAILED"
+fi
+
+echo "*** create triggers ***"
+$FRONTEND -f triggers.sql -d $DB >output/triggers.out 2>&1
+if cmp -s output/triggers.out expected/triggers.out ; then
+    echo "OK"
+else
+    echo "FAILED"
+fi
+
+echo "*** create views and support functions ***"
+$FRONTEND -f views.sql -d $DB >output/views.out 2>&1
+if cmp -s output/views.out expected/views.out ; then
+    echo "OK"
+else
+    echo "FAILED"
+fi
+
+echo "*** running tests ***"
+$FRONTEND -f test.sql -d $DB >output/test.out 2>&1
+if cmp -s output/test.out expected/test.out ; then
+    echo "OK"
+else
+    echo "FAILED"
+fi
+

src/pl/plpgsql/test/tables.sql

@@ -0,0 +1,101 @@
+-- ************************************************************
+-- * 
+-- * Tables for the patchfield test of PL/pgSQL
+-- * 
+-- * $Header: /cvsroot/pgsql/src/pl/plpgsql/test/Attic/tables.sql,v 1.1 1998/08/24 19:16:27 momjian Exp $
+-- * 
+-- ************************************************************
+
+create table Room (
+    roomno	char(8),
+    comment	text
+);
+
+create unique index Room_rno on Room using btree (roomno bpchar_ops);
+
+
+create table WSlot (
+    slotname	char(20),
+    roomno	char(8),
+    slotlink	char(20),
+    backlink	char(20)
+);
+
+create unique index WSlot_name on WSlot using btree (slotname bpchar_ops);
+
+
+create table PField (
+    name	text,
+    comment	text
+);
+
+create unique index PField_name on PField using btree (name text_ops);
+
+
+create table PSlot (
+    slotname	char(20),
+    pfname	text,
+    slotlink	char(20),
+    backlink	char(20)
+);
+
+create unique index PSlot_name on PSlot using btree (slotname bpchar_ops);
+
+
+create table PLine (
+    slotname	char(20),
+    phonenumber	char(20),
+    comment	text,
+    backlink	char(20)
+);
+
+create unique index PLine_name on PLine using btree (slotname bpchar_ops);
+
+
+create table Hub (
+    name	char(14),
+    comment	text,
+    nslots	integer
+);
+
+create unique index Hub_name on Hub using btree (name bpchar_ops);
+
+
+create table HSlot (
+    slotname	char(20),
+    hubname	char(14),
+    slotno	integer,
+    slotlink	char(20)
+);
+
+create unique index HSlot_name on HSlot using btree (slotname bpchar_ops);
+create index HSlot_hubname on HSlot using btree (hubname bpchar_ops);
+
+
+create table System (
+    name	text,
+    comment	text
+);
+
+create unique index System_name on System using btree (name text_ops);
+
+
+create table IFace (
+    slotname	char(20),
+    sysname	text,
+    ifname	text,
+    slotlink	char(20)
+);
+
+create unique index IFace_name on IFace using btree (slotname bpchar_ops);
+
+
+create table PHone (
+    slotname	char(20),
+    comment	text,
+    slotlink	char(20)
+);
+
+create unique index PHone_name on PHone using btree (slotname bpchar_ops);
+
+