Commit90c37c0

committed

Test for old-style commit string and random order

1 parentf347f21 commit90c37c0Copy full SHA for 90c37c0

File tree

+14

-2

lines changed

+14

-2

lines changed

Lines changed: 14 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@`
`3`	`3`	`use warnings;`
`4`	`4`	`use PostgresNode;`
`5`	`5`	`use TestLib;`
`6`		`-use Test::Moretests=>28;`
	`6`	`+use Test::Moretests=>29;`
`7`	`7`
`8`	`8`	`# Initialize master node`
`9`	`9`
`@@ -228,6 +228,7 @@ sub psql_conninfo`
`228`	`228`	`{`
`229`	`229`	`my ($connstr) =shift;`
`230`	`230`	`my ($timed_out);`
	`231`	`+diag("connect string:$connstr");`
`231`	`232`	`my ($retcode,$stdout,$stderr) =`
`232`	`233`	`psql($connstr,'\conninfo',timed_out=> \$timed_out);`
`233`	`234`	`if ($retcode == 0 &&$stdout =~/on host "([^"])" at port "([^"])"/s)`
`@@ -352,7 +353,7 @@ sub psql_server_addr`
`352`	`353`	`# at least once`
`353`	`354`
`354`	`355`	`my%conncount = ();`
`355`		`-for (my$i = 0;$i <9;$i++)`
	`356`	`+for (my$i = 0;$i <15;$i++)`
`356`	`357`	`{`
`357`	`358`	`my$conn = psql_conninfo(`
`358`	`359`	`multiconnstring(`
`@@ -363,6 +364,17 @@ sub psql_server_addr`
`363`	`364`	`}`
`364`	`365`	`is(scalar(keys(%conncount)), 3,'random order, readonly connect');`
`365`	`366`
	`367`	`+%conncount = ();`
	`368`	`+for (my$i = 0;$i < 15;$i++)`
	`369`	`+{`
	`370`	`+my$conn = psql_conninfo(`
	`371`	`+connstring2(`
	`372`	`+[$node_master,$node_standby_1,$node_standby_2 ],`
	`373`	`+undef,`
	`374`	`+{target_server_type=>'any',hostorder=>'random' }));`
	`375`	`+$conncount{$conn}++;`
	`376`	`+}`
	`377`	`+is(scalar(keys(%conncount)), 3,'random order, readonly connect, old style connect string');`
`366`	`378`	`# Test 7.2 - alternate (jdbc compatible) syntax for randomized hosts`
`367`	`379`
`368`	`380`	`for (my$i = 0;$i < 6;$i++)`

Comments

(0)