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

DBD::SQLite: applied a failing test patch by Andy Grundman (#54271)

Browse source
This commit is contained in:
Kenichi Ishigaki 2010-02-09 15:04:56 +00:00
parent e542758add
commit c20792782a
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
t/12_unicode.t
View file

@ -13,7 +13,7 @@ use t::lib::Test;
use Test::More;
BEGIN {
if ( $] >= 5.008005 ) {
plan( tests => 19 );
plan( tests => 26 );
} else {
plan( skip_all => 'Unicode is not supported before 5.8.5' );
}
@ -105,6 +105,23 @@ SCOPE: {
warn "($lengths->[0]->[0] != $lengths->[0]->[1])";
}
# Test that passing a string with the utf-8 flag on is handled properly in a BLOB field
SCOPE: {
my $dbh = connect_ok( dbfile => 'foo' );
ok( utf8::upgrade($bytestring), 'bytestring upgraded to utf-8' );
ok( utf8::is_utf8($bytestring), 'bytestring has utf-8 flag' );
($textback, $bytesback) = database_roundtrip($dbh, $utfstring, $bytestring);
ok( $bytesback eq $bytestring, 'No blob corruption with utf-8 flag on' );
ok( utf8::downgrade($bytestring), 'bytestring downgraded to bytes' );
ok( !utf8::is_utf8($bytestring), 'bytestring does not have utf-8 flag' );
($textback, $bytesback) = database_roundtrip($dbh, $utfstring, $bytestring);
ok( $bytesback eq $bytestring, 'No blob corruption with utf-8 flag off' );
}
sub database_roundtrip {
my ($dbh, $ain, $bin) = @_;
$dbh->do("DELETE FROM table1");