Commit2c059c8

committed

Add $Test::Builder::Level to pgbench test functions

same asc4309f4

1 parent6837078 commit2c059c8Copy full SHA for 2c059c8

File tree

-0

lines changed

-0

lines changed

Lines changed: 4 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -13,6 +13,8 @@`
`13`	`13`	`# invoke pgbench`
`14`	`14`	`subpgbench`
`15`	`15`	`{`
	`16`	`+local$Test::Builder::Level =$Test::Builder::Level + 1;`
	`17`	`+`
`16`	`18`	`my ($opts,$stat,$out,$err,$name,$files) =@_;`
`17`	`19`	`my@cmd = ('pgbench',split /\s+/,$opts);`
`18`	`20`	`my@filenames = ();`
`@@ -798,6 +800,8 @@ sub pgbench`
`798`	`800`	`# check log contents and cleanup`
`799`	`801`	`subcheck_pgbench_logs`
`800`	`802`	`{`
	`803`	`+local$Test::Builder::Level =$Test::Builder::Level + 1;`
	`804`	`+`
`801`	`805`	`my ($prefix,$nb,$min,$max,$re) =@_;`
`802`	`806`
`803`	`807`	`my@logs =glob"$prefix.*";`

Lines changed: 4 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -20,6 +20,8 @@`
`20`	`20`	`# invoke pgbench`
`21`	`21`	`subpgbench`
`22`	`22`	`{`
	`23`	`+local$Test::Builder::Level =$Test::Builder::Level + 1;`
	`24`	`+`
`23`	`25`	`my ($opts,$stat,$out,$err,$name) =@_;`
`24`	`26`	`printSTDERR"opts=$opts, stat=$stat, out=$out, err=$err, name=$name";`
`25`	`27`	`command_checks_all(['pgbench',split(/\s+/,$opts) ],`
`@@ -30,6 +32,8 @@ sub pgbench`
`30`	`32`	`# invoke pgbench with scripts`
`31`	`33`	`subpgbench_scripts`
`32`	`34`	`{`
	`35`	`+local$Test::Builder::Level =$Test::Builder::Level + 1;`
	`36`	`+`
`33`	`37`	`my ($opts,$stat,$out,$err,$name,$files) =@_;`
`34`	`38`	`my@cmd = ('pgbench',split /\s+/,$opts);`
`35`	`39`	`my@filenames = ();`

Comments

(0)