view release on metacpan or  search on metacpan

t/PgSet.pm  view on Meta::CPAN

	my $COM = qq{$binDir/pg_ctl $option -l $testdir/dbdpg_test.logfile -D $testdir/data start};
	$output = `$COM 2>&1`;
	die "pg_ctl failed: $output" if $?;
	sleep 2;
	$testdsn = "dbi:Pg:dbname=postgres;client_encoding=utf8;port=$testport";
	if ($^O =~ /Win32/) {
		$testdsn .= ';host=localhost';
	} else {
		$testdsn .= ";host=$testdir/data/socket";
	}
	$testuser = ((getpwuid $>)[0]);
	die "not connected $testdsn/$testuser: " . DBI::errstr()
		unless DBI->connect($testdsn, $testuser, '', {RaiseError => 0, PrintError => 0, AutoCommit => 1});
	1;
}

1;