Commit1b3a437

committed

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

1 parent3ad7dbb commit1b3a437Copy full SHA for 1b3a437

File tree

+24

-0

lines changed

+24

-0

lines changed

Lines changed: 14 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,14 @@`
	`1`	`+-- test plperl.on_plperl_init errors are fatal`
	`2`	`+-- Avoid need for custom_variable_classes = 'plperl'`
	`3`	`+LOAD 'plperl';`
	`4`	`+SET SESSION plperl.on_plperl_init = ' eval "1+1" ';`
	`5`	`+SHOW plperl.on_plperl_init;`
	`6`	`+ plperl.on_plperl_init`
	`7`	`+-----------------------`
	`8`	`+ eval "1+1"`
	`9`	`+(1 row)`
	`10`	`+`
	`11`	`+DO $$ warn 42 $$ language plperl;`
	`12`	`+ERROR: while executing plperl.on_plperl_init`
	`13`	`+DETAIL: 'eval "string"' trapped by operation mask at line 2.`
	`14`	`+CONTEXT: PL/Perl anonymous code block`

Lines changed: 10 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,10 @@`
	`1`	`+-- test plperl.on_plperl_init errors are fatal`
	`2`	`+`
	`3`	`+-- Avoid need for custom_variable_classes = 'plperl'`
	`4`	`+LOAD'plperl';`
	`5`	`+`
	`6`	`+SET SESSIONplperl.on_plperl_init=' eval "1+1"';`
	`7`	`+`
	`8`	`+SHOWplperl.on_plperl_init;`
	`9`	`+`
	`10`	`+DO $$ warn42 $$ language plperl;`

Comments

(0)