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;
}
my ($textback, $bytesback) =
database_roundtrip($bytestring, $bytestring);
my ($textback, $bytesback) = database_roundtrip($bytestring, $bytestring);
Test(! is_utf8($bytesback), "Reading blob gives binary");
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");
# Start over but now activate Unicode support.
$dbh->{unicode} = 1;
if ( $ENV{DBI_AUTOPROXY} ) {
# 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);
($textback, $bytesback) = database_roundtrip($utfstring, $bytestring);
Test(! is_utf8($bytesback), "Reading blob still gives binary");
Test(is_utf8($textback), "Reading text returns UTF-8");
Test($bytesback eq $bytestring, "Still no blob corruption");
Test($textback eq $utfstring, "Same text");
my $lengths = $dbh->selectall_arrayref
("SELECT length(a), length(b) FROM $table");
my $lengths = $dbh->selectall_arrayref(
"SELECT length(a), length(b) FROM $table"
);
Test($lengths->[0]->[0] == $lengths->[0]->[1],
"Database actually understands char set") or
warn "($lengths->[0]->[0] != $lengths->[0]->[1])";
END {
$dbh->do("DROP TABLE $table");
$dbh->disconnect;
}
$dbh->do("DROP TABLE $table");
$dbh->disconnect;