From 139f19c30221968e7d3bf64fe303cb41517e4601 Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Mon, 17 Jul 2000 02:22:50 +0000
Subject: [PATCH] update pltcl test to have at least some chance of running ...
 still seems to be busted though ...

---
 src/pl/tcl/test/runtest         | 4 ++--
 src/pl/tcl/test/test_mklang.sql | 9 ---------
 2 files changed, 2 insertions(+), 11 deletions(-)
 delete mode 100644 src/pl/tcl/test/test_mklang.sql

diff --git a/src/pl/tcl/test/runtest b/src/pl/tcl/test/runtest
index 08b55e1b1b..d1cfb33082 100755
--- a/src/pl/tcl/test/runtest
+++ b/src/pl/tcl/test/runtest
@@ -4,13 +4,13 @@ DBNAME=pltcl_test
 export DBNAME
 
 echo "**** Destroy old database $DBNAME ****"
-destroydb $DBNAME
+dropdb $DBNAME
 
 echo "**** Create test database $DBNAME ****"
 createdb $DBNAME
 
 echo "**** Create procedural language pltcl ****"
-psql -q -n $DBNAME <test_mklang.sql
+createlang pltcl $DBNAME
 
 echo "**** Create tables, functions and triggers ****"
 psql -q -n $DBNAME <test_setup.sql
diff --git a/src/pl/tcl/test/test_mklang.sql b/src/pl/tcl/test/test_mklang.sql
deleted file mode 100644
index 48176f4850..0000000000
--- a/src/pl/tcl/test/test_mklang.sql
+++ /dev/null
@@ -1,9 +0,0 @@
-
-create function pltcl_call_handler() returns opaque
-	as '/usr/local/pgsql/lib/pltcl.so'
-	language 'C';
-
-create trusted procedural language 'pltcl'
-	handler pltcl_call_handler
-	lancompiler 'PL/Tcl';
-
-- 
2.40.0