package My::Suite::Federated;

@ISA = qw(My::Suite);

############# initialization ######################
my @combinations;

push @combinations, 'old'
   if $ENV{HA_FEDERATED_SO} and not $::mysqld_variables{'federated'};
push @combinations, 'X'
   if $ENV{HA_FEDERATEDX_SO} or $::mysqld_variables{'federated'};

return "Neither Federated nor FederatedX are available" unless @combinations;

$ENV{FEDERATED_COMBINATIONS}=join ':', @combinations
  unless $ENV{FEDERATED_COMBINATIONS};

############# return an object ######################
bless { };