Commitdaf554d

committed

Add a TAP test for test_json_parser_perf

This just makes sure the test can run with a single iteration. A realperformance test would test with many more.

1 parent661ab4e commitdaf554dCopy full SHA for daf554d

File tree

+37

-1

lines changed

+37

-1

lines changed

Lines changed: 2 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -46,7 +46,8 @@ tests += {`
`46`	`46`	`'tests': [`
`47`	`47`	`'t/001_test_json_parser_incremental.pl',`
`48`	`48`	`'t/002_inline.pl',`
`49`		`-'t/003_test_semantic.pl'`
	`49`	`+'t/003_test_semantic.pl',`
	`50`	`+'t/004_test_parser_perf.pl'`
`50`	`51`	`],`
`51`	`52`	`},`
`52`	`53`	`}`

Lines changed: 35 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,35 @@`
	`1`	`+`
	`2`	`+use strict;`
	`3`	`+use warnings;`
	`4`	`+`
	`5`	`+use PostgreSQL::Test::Utils;`
	`6`	`+use Test::More;`
	`7`	`+use FindBin;`
	`8`	`+`
	`9`	`+use File::Tempqw(tempfile);`
	`10`	`+`
	`11`	`+my$test_file ="$FindBin::RealBin/../tiny.json";`
	`12`	`+`
	`13`	`+my$exe ="test_json_parser_perf";`
	`14`	`+`
	`15`	`+my$contents = slurp_file($test_file);`
	`16`	`+`
	`17`	`+my ($fh,$fname) = tempfile(UNLINK=> 1);`
	`18`	`+`
	`19`	`+# repeat the input json file 50 times in an array`
	`20`	`+`
	`21`	`+print$fh,'[',$contents ,",$contents"x49 ,']';`
	`22`	`+`
	`23`	`+close($fh);`
	`24`	`+`
	`25`	`+# but only do one iteration`
	`26`	`+`
	`27`	`+my ($result) = run_log([$exe,"1",$fname ] );`
	`28`	`+`
	`29`	`+ok($result == 0,"perf test runs with RD parser");`
	`30`	`+`
	`31`	`+$result = run_log([$exe,"-i" ,"1",$fname ]);`
	`32`	`+`
	`33`	`+ok($result == 0,"perf test runs with table driven parser");`
	`34`	`+`
	`35`	`+done_testing();`

Comments

(0)