[DBD::Pg] Put a skeleton utf8 test place.

Committed by Greg Sabino Mullane <greg-O9fzpki4YnJWk0Htik3J/[email protected]>

Put a skeleton utf8 test place.

---
 MANIFEST      |    1 +
 README.dev    |    2 ++
 t/30unicode.t |   29 +++++++++++++++++++++++++++++
 3 files changed, 32 insertions(+), 0 deletions(-)

diff --git a/MANIFEST b/MANIFEST
index a056945..024fbda 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -41,6 +41,7 @@ t/08async.t
 t/09arrays.t
 t/12placeholders.t
 t/20savepoints.t
+t/30unicode.t
 t/99cleanup.t
 
 t/lib/App/Info.pm
diff --git a/README.dev b/README.dev
index e78b40a..fcc8b84 100644
--- a/README.dev
+++ b/README.dev
@@ -175,6 +175,8 @@ t/12placeholders.t - Tests placeholders.
 
 t/20savepoints.t - Test savepoints. Requires a server version 8.0 or up.
 
+t/30unicode.t - Test Unicode. Or at least UTF8.
+
 t/99cleanup.t - Removes anything we have created for the tests (e.g. tables)
 
 t/99_perlcritic.t - Uses Perl::Critic to check Pg.pm and all of the test files.
diff --git a/t/30unicode.t b/t/30unicode.t
new file mode 100644
index 0000000..650e410
--- /dev/null
+++ b/t/30unicode.t
@@ -0,0 +1,29 @@
+#!perl
+
+## Test everything related to Unicode.
+## At the moment, this basically means testing the UTF8 client_encoding
+## and $dbh->{pg_enable_utf8} bits
+
+use 5.006;
+use strict;
+use warnings;
+use Test::More;
+use lib 't','.';
+require 'dbdpg_test_setup.pl';
+select(($|=1,select(STDERR),$|=1)[1]);
+
+my $dbh = connect_database();
+
+if (! $dbh) {
+	plan skip_all => 'Connection to database failed, cannot continue testing';
+}
+plan tests => 1;
+
+isnt ($dbh, undef, 'Connect to database for unicode testing');
+
+my $pgversion = $dbh->{pg_server_version};
+
+my $t;
+
+cleanup_database($dbh,'test');
+$dbh->disconnect();
-- 
1.7.1