1package My::Suite::TokuDB; 2use File::Basename; 3@ISA = qw(My::Suite); 4 5# Ensure we can run the TokuDB tests even if hugepages are enabled 6$ENV{TOKU_HUGE_PAGES_OK}=1; 7my $exe_tokuftdump= 8 ::mtr_exe_maybe_exists( 9 ::vs_config_dirs('storage/tokudb/PerconaFT/tools', 'tokuftdump'), 10 "$::path_client_bindir/tokuftdump", 11 "$::bindir/storage/tokudb/PerconaFT/tools/tokuftdump"); 12$ENV{'MYSQL_TOKUFTDUMP'}= ::native_path($exe_tokuftdump); 13 14#return "Not run for embedded server" if $::opt_embedded_server; 15return "No TokuDB engine" unless $ENV{HA_TOKUDB_SO} or $::mysqld_variables{tokudb}; 16 17sub is_default { not $::opt_embedded_server } 18 19bless { }; 20 21