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

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

From:
turnstep
Date:
May 1, 2008 13:31
Subject:
[svn:DBD-Pg] r11172 - DBD-Pg/trunk/t
Author: turnstep
Date: Thu May  1 13:31:26 2008
New Revision: 11172

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

Log:
Create DB as UTF8.
In the future, we should make the tests smarter to handle any encoding.
Right now, it fails in 02attribs and 09arrays.


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	Thu May  1 13:31:26 2008
@@ -203,7 +203,7 @@
 		warn "Please wait, creating new database for testing\n";
 		$info = '';
 		eval {
-			$info = qx{initdb -D $test_database_dir 2>&1};
+			$info = qx{initdb -E UTF8 -D $test_database_dir 2>&1};
 		};
 		last GETHANDLE if $@;
 
@@ -240,7 +240,7 @@
 				$founduser++;
 				$info = '';
 				eval {
-					$info = qx{su -l $user -c "initdb -D $test_database_dir" 2>&1};
+					$info = qx{su -l $user -c "initdb -E UTF8 -D $test_database_dir" 2>&1};
 				};
 				if (!$@ and $info =~ /owned by user "$user"/) {
 					$testuser = $user;



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