~giuseppe-maxia/mysql-sandbox/mysql-sandbox-3

Committer: g.maxia at gmail
Date: 2015-08-02 15:15:16 UTC
Revision ID: g.maxia@gmail.com-20150802151516-3blys2q56v788sc1

- Added default name for relay log files.
- Added 'show_binlog' script in each sandbox
- improved tests by getting all the version components from a single function call
- Added GTID initialization options for MySQL 5.6, 5.7, and MariaDB 10
- Added GTID enabling test for MySQL 5.6 and 5.7
- added and improved more tests

Show diffs side-by-side

added added

removed removed

t/Test_Helper.pm

use warnings;

use base qw( Exporter);

our @ISA= qw(Exporter);

our @EXPORT_OK= qw( test_sandbox find_plugindir skip_all);

our @EXPORT_OK= qw( test_sandbox find_plugindir skip_all confirm_version);

our @EXPORT = @EXPORT_OK;

sub get_version_parts

{

my ($version) = @_;

if ($version =~ /(\d+)\.(\d+)\.(\d+)/)

{

my ($major, $minor, $rev) = ($1, $2, $3) ;

return ($major, $minor, $rev);

}

else

{

die "# version $version does not have expected components"

}

sub confirm_version

{

my ($min_version, $max_version) = @_;

my $will_skip =0;

my ($major, $minor, $rev) = get_version_parts($test_version);

my ($major1, $minor1, $rev1) = get_version_parts($min_version);

my ($major2, $minor2, $rev2) = get_version_parts($max_version);

my $compare_test = sprintf("%05d-%05d-%05d", $major, $minor, $rev);

my $compare_min = sprintf("%05d-%05d-%05d", $major1, $minor1, $rev1);

my $compare_max = sprintf("%05d-%05d-%05d", $major2, $minor2, $rev2);

unless (($compare_test ge $compare_min) && ($compare_test le $compare_max))

{

warn "# Skipping version $test_version for this test. It is not in the required range ($min_version - $max_version)\n";

print "1..1\n";

print "ok 1 # Test version $test_version is not in the required range for this test ($min_version - $max_version)\n";

exit;

}

sub test_sandbox {

my ($cmd, $expected_tests, $informative) = @_;

unless ($cmd) {

Older »