[DBD::Pg 2/3] Remove old, redundant Unicode tests

Committed by =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= <[email protected]>

Subject: [DBD::Pg 2/3] Remove old, redundant Unicode tests

These tests are remnants from before the more thorough data-driven
test were introduced, and make it hard to skip the right tests based
on server_encoding (see next commit).
---
 t/30unicode.t | 29 -----------------------------
 1 file changed, 29 deletions(-)

diff --git a/t/30unicode.t b/t/30unicode.t
index 87d4ac1..ac9229f 100644
--- a/t/30unicode.t
+++ b/t/30unicode.t
@@ -115,35 +115,6 @@ foreach (@tests) {
     }
 }
 
-my $t = 'Generated string is not utf8';
-my $name = 'Ada Lovelace';
-utf8::encode($name);
-ok (!utf8::is_utf8($name), $t);
-
-$dbh->{pg_enable_utf8} = -1;
-my $SQL = 'SELECT ?::text';
-my $sth = $dbh->prepare($SQL);
-$sth->execute($name);
-my $result = $sth->fetchall_arrayref->[0][0];
-$t = 'Fetching ASCII string from the database returns proper string';
-is ($result, $name, $t);
-$t = 'Fetching ASCII string from the database returns string with UTF-8 flag on';
-ok (utf8::is_utf8($result), $t);
-
-$dbh->{pg_enable_utf8} = 0;
-$sth->execute($name);
-$result = $sth->fetchall_arrayref->[0][0];
-$t = 'Fetching ASCII string from the database returns proper string (pg_enable_utf8=0)';
-is ($result, $name, $t);
-$t = 'Fetching ASCII string from the database returns string with UTF-8 flag off (pg_enable_utf8=0)';
-ok (!utf8::is_utf8($result), $t);
-
-$dbh->{pg_enable_utf8} = 1;
-my $before = "\N{WHITE SMILING FACE}";
-my ($after) = $dbh->selectrow_array('SELECT ?::text', {}, $before);
-is($after, $before, 'string is the same after round trip');
-ok(utf8::is_utf8($after), 'string has utf8 flag set');
-
 # Test that what we get is the same as the database's idea of characters:
 for my $name ("LATIN CAPITAL LETTER N",
               "LATIN SMALL LETTER E WITH ACUTE",
-- 
1.8.4