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

[turnstep]

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);