tokuhirom / amon2-dbi Goto Github PK

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});