storage/tokudb/mysql-test/tokudb_bugs/suite.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package My::Suite::TokuDB_bugs;
use File::Basename;
@ISA = qw(My::Suite);

# Ensure we can run the TokuDB tests even if hugepages are enabled
$ENV{TOKU_HUGE_PAGES_OK}=1;

return "Doesn't work with tcmalloc" if $ENV{LD_PRELOAD} =~ /tcmalloc/ and
                                       $mysql_version_id < 100000;

#return "Not run for embedded server" if $::opt_embedded_server;
return "No TokuDB engine" unless $ENV{HA_TOKUDB_SO} or $::mysqld_variables{tokudb};

sub is_default { not $::opt_embedded_server }

bless { };