From 1b3a437a1993e1a155a91f511ac6f31b3879986b Mon Sep 17 00:00:00 2001 From: Andrew Dunstan Date: Fri, 12 Feb 2010 19:38:14 +0000 Subject: [PATCH] Add regression test files inadvertantly omitted in plperl.on_plperl{u}_init patch --- src/pl/plperl/expected/plperl_init.out | 14 ++++++++++++++ src/pl/plperl/sql/plperl_init.sql | 10 ++++++++++ 2 files changed, 24 insertions(+) create mode 100644 src/pl/plperl/expected/plperl_init.out create mode 100644 src/pl/plperl/sql/plperl_init.sql diff --git a/src/pl/plperl/expected/plperl_init.out b/src/pl/plperl/expected/plperl_init.out new file mode 100644 index 0000000000..a2d4e18d2a --- /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 index 0000000000..69b12e9d25 --- /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; -- 2.39.5