2011-11-30 11:37:28 +01:00
|
|
|
package My::Suite::Federated;
|
|
|
|
|
|
|
|
@ISA = qw(My::Suite);
|
|
|
|
|
2012-02-07 16:22:36 +01:00
|
|
|
sub skip_combinations {
|
|
|
|
my @combinations;
|
2011-11-30 11:37:28 +01:00
|
|
|
|
2012-02-07 16:22:36 +01:00
|
|
|
push @combinations, 'old'
|
|
|
|
unless $ENV{HA_FEDERATED_SO} and not $::mysqld_variables{'federated'};
|
|
|
|
push @combinations, 'X'
|
|
|
|
unless $ENV{HA_FEDERATEDX_SO} or $::mysqld_variables{'federated'};
|
2011-11-30 11:37:28 +01:00
|
|
|
|
2012-02-07 16:22:36 +01:00
|
|
|
( 'combinations' => [ @combinations ] )
|
|
|
|
}
|
2011-11-30 11:37:28 +01:00
|
|
|
|
|
|
|
|
|
|
|
############# return an object ######################
|
|
|
|
bless { };
|
|
|
|
|