mariadb/mysql-test/suite/mariabackup/suite.pm

38 lines
931 B
Perl
Raw Normal View History

2017-04-18 21:52:03 +02:00
package My::Suite::MariaBackup;
@ISA = qw(My::Suite);
use My::Find;
use File::Basename;
use strict;
return "Not run for embedded server" if $::opt_embedded_server;
my $mariabackup_exe=
::mtr_exe_maybe_exists(
"$::bindir/extra/mariabackup$::opt_vs_config/mariabackup",
"$::path_client_bindir/mariabackup");
return "No mariabackup" if !$mariabackup_exe;
$ENV{XTRABACKUP}= $mariabackup_exe;
$ENV{XBSTREAM}= ::mtr_exe_maybe_exists(
"$::bindir/extra/mariabackup/$::opt_vs_config/mbstream",
"$::path_client_bindir/mbstream");
$ENV{INNOBACKUPEX}= "$mariabackup_exe --innobackupex";
my $have_qpress = index(`qpress 2>&1`,"Compression") > 0;
2017-04-18 21:52:03 +02:00
sub skip_combinations {
my %skip;
$skip{'include/have_file_key_management.inc'} = 'needs file_key_management plugin' unless $ENV{FILE_KEY_MANAGEMENT_SO};
$skip{'compress_qpress.test'}= 'needs qpress executable in PATH' unless $have_qpress;
2017-04-18 21:52:03 +02:00
%skip;
}
bless { };