Skip utf8 tests when DBD::mysql less than 4.0

This commit is contained in:
Baron Schwartz
2012-06-04 00:23:55 -04:00
parent 45c85ba40d
commit 40017ec5bd
2 changed files with 15 additions and 5 deletions
+11 -5
View File
@@ -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();
+4
View File
@@ -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;
}