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 tests to asymmetric_unicode.t to make sure the inserted string's length is 1 besides null

Browse source
This commit is contained in:
Tatsuhiko Miyagawa 2009-04-07 22:05:13 +00:00
parent ef56832c32
commit be2e535f53
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 => 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' );
}