diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2010-02-12 19:38:14 +0000 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2010-02-12 19:38:14 +0000 |
| commit | 1b3a437a1993e1a155a91f511ac6f31b3879986b (patch) | |
| tree | 6088b69fecfaf660e17c68714175e2180bb7c589 /src | |
| parent | 3ad7dbb1b93e809d882c683b1872620aec391a3c (diff) | |
| download | postgresql-1b3a437a1993e1a155a91f511ac6f31b3879986b.tar.gz postgresql-1b3a437a1993e1a155a91f511ac6f31b3879986b.zip | |
Add regression test files inadvertantly omitted in plperl.on_plperl{u}_init patch
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/plperl/expected/plperl_init.out | 14 | ||||
| -rw-r--r-- | src/pl/plperl/sql/plperl_init.sql | 10 |
2 files changed, 24 insertions, 0 deletions
diff --git a/src/pl/plperl/expected/plperl_init.out b/src/pl/plperl/expected/plperl_init.out new file mode 100644 index 00000000000..a2d4e18d2ac --- /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 00000000000..69b12e9d25f --- /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; |