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

adunstan · adunstan · commit 1b3a437a1993 · 2010-02-12T19:38:14.000Z
diff --git a/src/pl/plperl/expected/plperl_init.out 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
@@ -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;
