mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2025-01-12 18:34:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Andrew Dunstan 2010-02-12 19:38:14 +00:00
parent 3ad7dbb1b9
commit 1b3a437a19
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/pl/plperl/expected/plperl_init.out Normal file
View File

@ -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

10
src/pl/plperl/sql/plperl_init.sql Normal file
View File

@ -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;