mirror of
https://github.com/percona/percona-toolkit.git
synced 2026-04-26 01:02:25 +08:00
Skip utf8 tests when DBD::mysql less than 4.0
This commit is contained in:
+11
-5
@@ -194,11 +194,17 @@ SKIP: {
|
||||
. "]";
|
||||
$flat_string =~ s/\n/\\n/g;
|
||||
|
||||
is_deeply(
|
||||
[ $q->deserialize_list($selsth->fetchrow_array()) ],
|
||||
$serialize_tests[$test_index],
|
||||
"Serialize $flat_string"
|
||||
);
|
||||
# diag($test_index);
|
||||
SKIP: {
|
||||
skip "DBD::mysql version $DBD::mysql::VERSION has utf8 bugs. "
|
||||
. "See https://bugs.launchpad.net/percona-toolkit/+bug/932327",
|
||||
1 if $DBD::mysql::VERSION lt '4' && $test_index == 9;
|
||||
is_deeply(
|
||||
[ $q->deserialize_list($selsth->fetchrow_array()) ],
|
||||
$serialize_tests[$test_index],
|
||||
"Serialize $flat_string"
|
||||
);
|
||||
}
|
||||
}
|
||||
|
||||
$sth->finish();
|
||||
|
||||
@@ -22,6 +22,10 @@ my $dbh = $sb->get_dbh_for('master');
|
||||
if ( !$dbh ) {
|
||||
plan skip_all => 'Cannot connect to sandbox master';
|
||||
}
|
||||
elsif ( $DBD::mysql::VERSION lt '4' ) {
|
||||
plan skip_all => "DBD::mysql version $DBD::mysql::VERSION has utf8 bugs. "
|
||||
. "See https://bugs.launchpad.net/percona-toolkit/+bug/932327";
|
||||
}
|
||||
else {
|
||||
plan tests => 3;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user