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


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

package My::Suite::TokuDB;
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;
my $exe_tokuftdump=
    ::mtr_exe_maybe_exists(
           ::vs_config_dirs('storage/tokudb/PerconaFT/tools', 'tokuftdump'),
           "$::path_client_bindir/tokuftdump",
           "$::bindir/storage/tokudb/PerconaFT/tools/tokuftdump");
$ENV{'MYSQL_TOKUFTDUMP'}= ::native_path($exe_tokuftdump);

#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 { };