tokuhirom/Amon2-DBI — Issue #2: mysql_enable_utf8 automaticallyとt/05_mysql.tについて
Author: makamaka
Created: 2011-11-05 09:01:53+00:00
State: open

Amon2::DBIのconnect内でmysql_enable_utf8に真値を与えるための判定条件が
$dsn =~ /-dbi:mysql:/ とケースセンシティブとなっていますが
05_mysql.tの$mysqld->dsnが返すdnsはDBI:mysqlからはじまります。
そのためsubtest utf8においてmysql_enable_utf8は有効になっていないのですが、
use utf8していないので、テスト自体はokになります。
これは意図された通りのテストなのでしょうか？

あるいは、下記のようなものが本来想定されているテストなのでしょうか？

diff --git a/lib/Amon2/DBI.pm b/lib/Amon2/DBI.pm
index f30d9aa..8ad59e6 100644
--- a/lib/Amon2/DBI.pm
+++ b/lib/Amon2/DBI.pm
@@ -12,12 +12,17 @@ sub connect {
if ($DBI::VERSION >= 1.614) {
$attr->{AutoInactiveDestroy} = 1 unless exists $attr->{AutoInactiveDestroy};
}
- if ($dsn =~ /^dbi:SQLite:/) {
+ if ($dsn =~ /^dbi:SQLite:/i) {
$attr->{sqlite_unicode} = 1 unless exists $attr->{sqlite_unicode};
}
- if ($dsn =~ /^dbi:mysql:/) {
+ if ($dsn =~ /^dbi:mysql:/i) {
$attr->{mysql_enable_utf8} = 1 unless exists $attr->{mysql_enable_utf8};
}

diff --git a/t/05_mysql.t b/t/05_mysql.t
index ad8a0c3..27fdd18 100644
--- a/t/05_mysql.t
+++ b/t/05_mysql.t
@@ -17,6 +17,7 @@ $dbh->do_i('INSERT INTO foo ', {e => 4});
is join(',', map { @$_ } @{$dbh->selectall_arrayref('SELECT * FROM foo ORDER BY e')}), '3,4';

subtest 'utf8' => sub {
+ use utf8;
$dbh->do(q{CREATE TABLE bar (x varchar(255))});
$dbh->insert(bar => { x => "こんにちは" });
my ($x) = $dbh->selectrow_array(q{SELECT x FROM bar});