Add regression test files inadvertantly omitted in plperl.on_plperl{u}_init patch

diff --git a/src/pl/plperl/expected/plperl_init.out b/src/pl/plperl/expected/plperl_init.out
new file mode 100644 (file)
index 0000000..a2d4e18
--- /dev/null
+++ b/src/pl/plperl/expected/plperl_init.out
@@ -0,0 +1,14 @@
+-- test plperl.on_plperl_init errors are fatal
+-- Avoid need for custom_variable_classes = 'plperl'
+LOAD 'plperl';
+SET SESSION plperl.on_plperl_init = ' eval "1+1" ';
+SHOW plperl.on_plperl_init;
+ plperl.on_plperl_init 
+-----------------------
+  eval "1+1" 
+(1 row)
+
+DO $$ warn 42 $$ language plperl;
+ERROR:  while executing plperl.on_plperl_init
+DETAIL:  'eval "string"' trapped by operation mask at line 2.
+CONTEXT:  PL/Perl anonymous code block

diff --git a/src/pl/plperl/sql/plperl_init.sql b/src/pl/plperl/sql/plperl_init.sql
new file mode 100644 (file)
index 0000000..69b12e9
--- /dev/null
+++ b/src/pl/plperl/sql/plperl_init.sql
@@ -0,0 +1,10 @@
+-- test plperl.on_plperl_init errors are fatal
+
+-- Avoid need for custom_variable_classes = 'plperl'
+LOAD 'plperl';
+
+SET SESSION plperl.on_plperl_init = ' eval "1+1" ';
+
+SHOW plperl.on_plperl_init;
+
+DO $$ warn 42 $$ language plperl;