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

[email protected]
Newsgroups perl.dbd.pg.changes
Message-ID <[email protected]>
Author: turnstep
Date: Wed Sep 17 14:24:03 2008
New Revision: 11802

Modified:
   DBD-Pg/trunk/t/02attribs.t

Log:
Don't check unicode stuff if server is LATIN1


Modified: DBD-Pg/trunk/t/02attribs.t
==============================================================================
--- DBD-Pg/trunk/t/02attribs.t	(original)
+++ DBD-Pg/trunk/t/02attribs.t	Wed Sep 17 14:24:03 2008
@@ -411,6 +411,11 @@
 SKIP: {
 	eval { require Encode; };
 	skip ('Encode module is needed for unicode tests', 5) if $@;
+
+	my $server_encoding = $dbh->selectall_arrayref('SHOW server_encoding')->[0][0];
+	skip ('Cannot test unicode with a LATIN1 database', 5)
+		if $server_encoding eq 'LATIN1';
+
 	my $SQL = 'SELECT id, pname FROM dbd_pg_test WHERE id = ?';
 	my $sth = $dbh->prepare($SQL);
 	$sth->execute(1);
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.