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