develooper Front page | perl.dbd.pg.changes | Postings from May 2008

[svn:DBD-Pg] r11194 - DBD-Pg/trunk/t

From:
turnstep
Date:
May 4, 2008 17:42
Subject:
[svn:DBD-Pg] r11194 - DBD-Pg/trunk/t
Author: turnstep
Date: Sun May  4 17:42:42 2008
New Revision: 11194

Modified:
   DBD-Pg/trunk/t/dbdpg_test_setup.pl

Log:
Force locale a well as encoding.
Always use localhost when on a Windows box.


Modified: DBD-Pg/trunk/t/dbdpg_test_setup.pl
==============================================================================
--- DBD-Pg/trunk/t/dbdpg_test_setup.pl	(original)
+++ DBD-Pg/trunk/t/dbdpg_test_setup.pl	Sun May  4 17:42:42 2008
@@ -203,7 +203,7 @@
 		warn "Please wait, creating new database for testing\n";
 		$info = '';
 		eval {
-			$info = qx{initdb -E UTF8 -D $test_database_dir 2>&1};
+			$info = qx{initdb -E UTF8 --locale=C -D $test_database_dir 2>&1};
 		};
 		last GETHANDLE if $@;
 
@@ -235,7 +235,7 @@
 				$founduser++;
 				$info = '';
 				eval {
-					$info = qx{su -l $user -c "initdb -E UTF8 -D $test_database_dir" 2>&1};
+					$info = qx{su -l $user -c "initdb -E UTF8 --locale=C -D $test_database_dir" 2>&1};
 				};
 				if (!$@ and $info =~ /owned by user "$user"/) {
 					$testuser = $user;
@@ -321,6 +321,7 @@
 		## Attempt to connect to this server
 		sleep 1;
 		$testdsn = "dbi:Pg:dbname=postgres;port=$testport";
+		$^O =~ /Win32/ and $testdsn .= ";host=localhost";
 		my $loop = 1;
 	  STARTUP: {
 			eval {



Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About