Skip to content

Commit e773891

Browse files
michal-josef-spacekmichal-josef-spacek
committed
Add test for Japanese characters in table definition and errors
The test is taken from DBD::MariaDB and adopted to DBD::mysql. One version of test (55utf8_jp.t) is with default options. Second version of test (55utf8_jp_mysql_enable_utf8.t) is with mysql_enable_utf8 option set to 1.
1 parent f9eab6a commit e773891

File tree

3 files changed

+241
-0
lines changed

3 files changed

+241
-0
lines changed

‎MANIFEST

+2
Original file line numberDiff line numberDiff line change
@@ -53,6 +53,8 @@ t/51bind_type_guessing.t
5353
t/52comment.t
5454
t/53comment.t
5555
t/55utf8.t
56+
t/55utf8_jp.t
57+
t/55utf8_jp_mysql_enable_utf8.t
5658
t/55utf8mb4.t
5759
t/56connattr.t
5860
t/57trackgtid.t

‎t/55utf8_jp.t

+119
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,119 @@
1+
use strict;
2+
use warnings;
3+
4+
use Test::More;
5+
use DBI;
6+
use Encode;
7+
8+
use vars qw($test_dsn $test_user $test_password);
9+
use lib 't', '.';
10+
require "lib.pl";
11+
12+
sub skip_rt_102404 {
13+
skip "(Perl 5.13.1 and DBI 1.635) or DBI 1.639 is required due to bug RT 102404", $_[0] unless ($] >= 5.013001 and eval { DBI->VERSION(1.635) }) or eval { DBI->VERSION(1.639) };
14+
}
15+
16+
my $dbh;
17+
eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
18+
{ RaiseError => 1, PrintError => 1, AutoCommit => 0 });};
19+
if ($@) {
20+
plan skip_all => "no database connection";
21+
}
22+
diag "Disabled mysql_enable_utf8.";
23+
24+
eval {
25+
$dbh->do("SET lc_messages = 'ja_JP'");
26+
} or do {
27+
$dbh->disconnect();
28+
plan skip_all => "Server lc_messages ja_JP are needed for this test";
29+
};
30+
31+
plan tests => 21;
32+
33+
my $jpnTable = "\N{U+8868}"; # Japanese table
34+
my $jpnGender = "\N{U+6027}\N{U+5225}"; # Japanese word "gender"
35+
my $jpnYamadaTaro = "\N{U+5c71}\N{U+7530}\N{U+592a}\N{U+90ce}"; # a Japanese person name
36+
my $jpnMale = "\N{U+7537}"; # Japanese word "male"
37+
my $jpnErr = qr/\x{4ed8}\x{8fd1}.*\x{884c}\x{76ee}/; # Use \x{...} instead \N{U+...} due to Perl 5.12.0 bug
38+
39+
my $sth;
40+
my $row;
41+
42+
ok($dbh->do("
43+
CREATE TEMPORARY TABLE $jpnTable (
44+
name VARCHAR(20),
45+
$jpnGender CHAR(1)
46+
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_bin
47+
"), 'Create temporay table with Japanese characters.');
48+
49+
ok($sth = $dbh->prepare("INSERT INTO $jpnTable (name, $jpnGender) VALUES (?, ?)"), 'Prepare insert statement.');
50+
ok($sth->execute($jpnYamadaTaro, $jpnMale), 'Execute insert statement with Japanese values.');
51+
52+
ok($sth = $dbh->prepare("SELECT * FROM $jpnTable"), 'Prepare select statement.');
53+
ok($sth->execute(), 'Execute select statement.');
54+
ok($row = $sth->fetchrow_hashref(), 'Fetch hashref.');
55+
56+
is($row->{name}, Encode::encode('UTF-8', $jpnYamadaTaro), "Value of 'name' is in octets.");
57+
ok(!exists $row->{$jpnGender}, 'Not exists key in internal Perl Unicode.');
58+
is($row->{Encode::encode("UTF-8", $jpnGender)}, Encode::encode('UTF-8', $jpnMale), 'Exists key and value in octets.');
59+
60+
is_deeply($sth->{NAME}, [ 'name', Encode::encode('UTF-8', $jpnGender) ], 'Statement column name is in octets.');
61+
is_deeply($sth->{mysql_table}, [ Encode::encode('UTF-8', $jpnTable), Encode::encode('UTF-8', $jpnTable) ], 'Statement table name is in octets.');
62+
63+
my $warn;
64+
my $dieerr;
65+
my $dbierr;
66+
my $failed;
67+
68+
$failed = 0;
69+
$dieerr = undef;
70+
$dbierr = undef;
71+
$dbh->{HandleError} = sub { $dbierr = $_[0]; die $_[0]; };
72+
eval {
73+
$sth = $dbh->prepare("foo");
74+
$sth->execute();
75+
1;
76+
} or do {
77+
$dieerr = $@;
78+
$failed = 1;
79+
};
80+
$dbh->{HandleError} = undef;
81+
82+
ok($failed, 'Execution of bad statement is failing (HandleError version).');
83+
like(Encode::decode('UTF-8', $dbierr), $jpnErr, 'DBI error is in octets (HandleError version).');
84+
like(Encode::decode('UTF-8', $DBI::errstr), $jpnErr, 'DBI::errstr is in octets (HandleError version).');
85+
like(Encode::decode('UTF-8', $dbh->errstr), $jpnErr, 'DBI handler errstr() method is in octets (HandleError version).');
86+
87+
SKIP : {
88+
skip_rt_102404 1;
89+
like(Encode::decode('UTF-8', $dieerr), $jpnErr, 'Error from eval is in octets (HandleError version).');
90+
}
91+
92+
$failed = 0;
93+
$warn = undef;
94+
$dieerr = undef;
95+
$dbh->{PrintError} = 1;
96+
$SIG{__WARN__} = sub { $warn = $_[0] };
97+
eval {
98+
$sth = $dbh->prepare("foo");
99+
$sth->execute();
100+
1;
101+
} or do {
102+
$dieerr = $@;
103+
$failed = 1;
104+
};
105+
$dbh->{PrintError} = 0;
106+
$SIG{__WARN__} = 'DEFAULT';
107+
108+
ok($failed, 'Execution of bad statement is failing (PrintError version).');
109+
like(Encode::decode('UTF-8', $DBI::errstr), $jpnErr, 'DBI::errstr is in octets (PrintError version).');
110+
like(Encode::decode('UTF-8', $dbh->errstr), $jpnErr, 'DBI handler errstr() method is in octets (PrintError version).');
111+
112+
SKIP : {
113+
skip_rt_102404 2;
114+
like(Encode::decode('UTF-8', $warn), $jpnErr, 'Warning is in octets (PrintError version).');
115+
like(Encode::decode('UTF-8', $dieerr), $jpnErr, 'Error from eval is in octets (PrintError version).');
116+
}
117+
118+
$dbh->disconnect();
119+
done_testing;

‎t/55utf8_jp_mysql_enable_utf8.t

+120
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,120 @@
1+
use strict;
2+
use warnings;
3+
4+
use Test::More;
5+
use DBI;
6+
use Encode;
7+
8+
use vars qw($test_dsn $test_user $test_password);
9+
use lib 't', '.';
10+
require "lib.pl";
11+
12+
sub skip_rt_102404 {
13+
skip "(Perl 5.13.1 and DBI 1.635) or DBI 1.639 is required due to bug RT 102404", $_[0] unless ($] >= 5.013001 and eval { DBI->VERSION(1.635) }) or eval { DBI->VERSION(1.639) };
14+
}
15+
16+
my $dbh;
17+
eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
18+
{ RaiseError => 1, PrintError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 });};
19+
if ($@) {
20+
print $@;
21+
plan skip_all => "no database connection";
22+
}
23+
diag "Enabled mysql_enable_utf8.";
24+
25+
eval {
26+
$dbh->do("SET lc_messages = 'ja_JP'");
27+
} or do {
28+
$dbh->disconnect();
29+
plan skip_all => "Server lc_messages ja_JP are needed for this test";
30+
};
31+
32+
plan tests => 21;
33+
34+
my $jpnTable = "\N{U+8868}"; # Japanese table
35+
my $jpnGender = "\N{U+6027}\N{U+5225}"; # Japanese word "gender"
36+
my $jpnYamadaTaro = "\N{U+5c71}\N{U+7530}\N{U+592a}\N{U+90ce}"; # a Japanese person name
37+
my $jpnMale = "\N{U+7537}"; # Japanese word "male"
38+
my $jpnErr = qr/\x{4ed8}\x{8fd1}.*\x{884c}\x{76ee}/; # Use \x{...} instead \N{U+...} due to Perl 5.12.0 bug
39+
40+
my $sth;
41+
my $row;
42+
43+
ok($dbh->do("
44+
CREATE TEMPORARY TABLE $jpnTable (
45+
name VARCHAR(20),
46+
$jpnGender CHAR(1)
47+
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_bin
48+
"), 'Create temporay table with Japanese characters.');
49+
50+
ok($sth = $dbh->prepare("INSERT INTO $jpnTable (name, $jpnGender) VALUES (?, ?)"), 'Prepare insert statement.');
51+
ok($sth->execute($jpnYamadaTaro, $jpnMale), 'Execute insert statement with Japanese values.');
52+
53+
ok($sth = $dbh->prepare("SELECT * FROM $jpnTable"), 'Prepare select statement.');
54+
ok($sth->execute(), 'Execute select statement.');
55+
ok($row = $sth->fetchrow_hashref(), 'Fetch hashref.');
56+
57+
is($row->{name}, $jpnYamadaTaro, "Value of 'name' is in internal Perl Unicode.");
58+
ok(!exists $row->{$jpnGender}, 'Not exists key in internal Perl Unicode.');
59+
is($row->{Encode::encode("UTF-8", $jpnGender)}, $jpnMale, 'Exists key in octets and value in internal Perl Unicode.');
60+
61+
is_deeply($sth->{NAME}, [ 'name', Encode::encode('UTF-8', $jpnGender) ], 'Statement column name is in octets.');
62+
is_deeply($sth->{mysql_table}, [ Encode::encode('UTF-8', $jpnTable), Encode::encode('UTF-8', $jpnTable) ], 'Statement table name is in octets.');
63+
64+
my $warn;
65+
my $dieerr;
66+
my $dbierr;
67+
my $failed;
68+
69+
$failed = 0;
70+
$dieerr = undef;
71+
$dbierr = undef;
72+
$dbh->{HandleError} = sub { $dbierr = $_[0]; die $_[0]; };
73+
eval {
74+
$sth = $dbh->prepare("foo");
75+
$sth->execute();
76+
1;
77+
} or do {
78+
$dieerr = $@;
79+
$failed = 1;
80+
};
81+
$dbh->{HandleError} = undef;
82+
83+
ok($failed, 'Execution of bad statement is failing (HandleError version).');
84+
like(Encode::decode('UTF-8', $dbierr), $jpnErr, 'DBI error is in octets (HandleError version).');
85+
like(Encode::decode('UTF-8', $DBI::errstr), $jpnErr, 'DBI::errstr is in octets (HandleError version).');
86+
like(Encode::decode('UTF-8', $dbh->errstr), $jpnErr, 'DBI handler errstr() method is in octets (HandleError version).');
87+
88+
SKIP : {
89+
skip_rt_102404 1;
90+
like(Encode::decode('UTF-8', $dieerr), $jpnErr, 'Error from eval is in octets (HandleError version).');
91+
}
92+
93+
$failed = 0;
94+
$warn = undef;
95+
$dieerr = undef;
96+
$dbh->{PrintError} = 1;
97+
$SIG{__WARN__} = sub { $warn = $_[0] };
98+
eval {
99+
$sth = $dbh->prepare("foo");
100+
$sth->execute();
101+
1;
102+
} or do {
103+
$dieerr = $@;
104+
$failed = 1;
105+
};
106+
$dbh->{PrintError} = 0;
107+
$SIG{__WARN__} = 'DEFAULT';
108+
109+
ok($failed, 'Execution of bad statement is failing (PrintError version).');
110+
like(Encode::decode('UTF-8', $DBI::errstr), $jpnErr, 'DBI::errstr is in octets (PrintError version).');
111+
like(Encode::decode('UTF-8', $dbh->errstr), $jpnErr, 'DBI handler errstr() method is in octets (PrintError version).');
112+
113+
SKIP : {
114+
skip_rt_102404 2;
115+
like(Encode::decode('UTF-8', $warn), $jpnErr, 'Warning is in octets (PrintError version).');
116+
like(Encode::decode('UTF-8', $dieerr), $jpnErr, 'Error from eval is in octets (PrintError version).');
117+
}
118+
119+
$dbh->disconnect();
120+
done_testing;

0 commit comments

Comments
 (0)