From be2e535f53536c491a60bbe486b308f4a62cf552 Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@cpan.org>
Date: Tue, 7 Apr 2009 22:05:13 +0000
Subject: [PATCH] Added more tests to asymmetric_unicode.t to make sure the
 inserted string's length is 1 besides null

---
 t/rt_25371_asymmetric_unicode.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/rt_25371_asymmetric_unicode.t b/t/rt_25371_asymmetric_unicode.t
index 0619272..a3c3d5b 100644
--- a/t/rt_25371_asymmetric_unicode.t
+++ b/t/rt_25371_asymmetric_unicode.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 use t::lib::Test;
-# use Test::More tests => 15;
+# use Test::More tests => 18;
 use Test::More skip_all => 'Temporarily disabling known-bad test';
 use Test::NoWarnings;
 
@@ -24,5 +24,7 @@ foreach ( "\0", "A", "\xe9", "\x{20ac}" ) {
     ok( $dbh->do("INSERT INTO foo VALUES ( ? )", {}, $_), 'INSERT' );
     my $foo = $dbh->selectall_arrayref("SELECT bar FROM foo");
     is_deeply( $foo, [ [ $_ ] ], 'Value round-tripped ok' );
+    my $len = $dbh->selectall_arrayref("SELECT length(bar) FROM foo");
+    is $len->[0][0], 1 unless $_ eq "\0";
     ok( $dbh->do("DELETE FROM foo"), 'DELETE ok' );
 }