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

[email protected]
Newsgroups perl.dbd.pg.changes
Message-ID <[email protected]>
Author: turnstep
Date: Wed Sep 17 15:19:48 2008
New Revision: 11804

Modified:
   DBD-Pg/trunk/t/09arrays.t

Log:
More LATIN1 workarounds.


Modified: DBD-Pg/trunk/t/09arrays.t
==============================================================================
--- DBD-Pg/trunk/t/09arrays.t	(original)
+++ DBD-Pg/trunk/t/09arrays.t	Wed Sep 17 15:19:48 2008
@@ -499,6 +499,10 @@
 	eval { require Encode; };
 	skip ('Encode module is needed for unicode tests', 14) if $@;
 
+	my $server_encoding = $dbh->selectall_arrayref('SHOW server_encoding')->[0][0];
+	skip ('Cannot test unicode with a LATIN1 database', 14)
+		if $server_encoding eq 'LATIN1';
+
 	$t='String should be UTF-8';
 	local $dbh->{pg_enable_utf8} = 1;
 	my $utf8_str = chr(0x100).'dam'; # LATIN CAPITAL LETTER A WITH MACRON
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.