From a90d0d6146b02eb572588605034c234ed7e4b562 Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@cpan.org>
Date: Wed, 8 Apr 2009 00:12:59 +0000
Subject: [PATCH] Added more test to asymmetric_unicode to make sure binding
 param works

---
 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 a3c3d5b..30973de 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 => 18;
+# use Test::More tests => 22;
 use Test::More skip_all => 'Temporarily disabling known-bad test';
 use Test::NoWarnings;
 
@@ -26,5 +26,7 @@ foreach ( "\0", "A", "\xe9", "\x{20ac}" ) {
     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";
+    my $match = $dbh->selectall_arrayref("SELECT bar FROM foo WHERE bar = ?", {}, $_);
+    is $match->[0][0], $_;
     ok( $dbh->do("DELETE FROM foo"), 'DELETE ok' );
 }