simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

Added more test to asymmetric_unicode to make sure binding param works

Browse source
This commit is contained in:
Tatsuhiko Miyagawa 2009-04-08 00:12:59 +00:00
parent ac243161a9
commit a90d0d6146
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
t/rt_25371_asymmetric_unicode.t
View file

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