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

Removing the use of DBI_AUTOPROXY

Browse source
This commit is contained in:
Adam Kennedy 2009-04-03 20:28:01 +00:00
parent 6988f6c9f4
commit ec81ab8513
1 changed files with 8 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
t/12_unicode.t
View file

@ -100,8 +100,7 @@ sub database_roundtrip {
@row; @row;
} }
my ($textback, $bytesback) = my ($textback, $bytesback) = database_roundtrip($bytestring, $bytestring);
database_roundtrip($bytestring, $bytestring);
Test(! is_utf8($bytesback), "Reading blob gives binary"); Test(! is_utf8($bytesback), "Reading blob gives binary");
Test(! is_utf8($textback), "Reading text gives binary too (for now)"); Test(! is_utf8($textback), "Reading text gives binary too (for now)");
@ -109,35 +108,22 @@ Test($bytesback eq $bytestring, "No blob corruption");
Test($textback eq $bytestring, "Same text, different encoding"); Test($textback eq $bytestring, "Same text, different encoding");
# Start over but now activate Unicode support. # Start over but now activate Unicode support.
$dbh->{unicode} = 1;
if ( $ENV{DBI_AUTOPROXY} ) { ($textback, $bytesback) = database_roundtrip($utfstring, $bytestring);
# for testing DBD::Gofer we have to create a new dbh with unicode enabled
# because we can't change the attribute for an existing dbh
$dbh = DBI->connect('DBI:SQLite:dbname=foo', '', '', {
RaiseError => 1,
unicode => 1,
})
}
else {
$dbh->{unicode} = 1;
}
($textback, $bytesback) =
database_roundtrip($utfstring, $bytestring);
Test(! is_utf8($bytesback), "Reading blob still gives binary"); Test(! is_utf8($bytesback), "Reading blob still gives binary");
Test(is_utf8($textback), "Reading text returns UTF-8"); Test(is_utf8($textback), "Reading text returns UTF-8");
Test($bytesback eq $bytestring, "Still no blob corruption"); Test($bytesback eq $bytestring, "Still no blob corruption");
Test($textback eq $utfstring, "Same text"); Test($textback eq $utfstring, "Same text");
my $lengths = $dbh->selectall_arrayref my $lengths = $dbh->selectall_arrayref(
("SELECT length(a), length(b) FROM $table"); "SELECT length(a), length(b) FROM $table"
);
Test($lengths->[0]->[0] == $lengths->[0]->[1], Test($lengths->[0]->[0] == $lengths->[0]->[1],
"Database actually understands char set") or "Database actually understands char set") or
warn "($lengths->[0]->[0] != $lengths->[0]->[1])"; warn "($lengths->[0]->[0] != $lengths->[0]->[1])";
END { $dbh->do("DROP TABLE $table");
$dbh->do("DROP TABLE $table"); $dbh->disconnect;
$dbh->disconnect;
}