The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

GMAX / MySQL-Sandbox-3.2.18 / t / replication_parameters.sb.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80

              
#
# Test replication parameters.
# You can affect the replication installation with some 
# environment variables
#  * MASTER_OPTIONS only master
#  * SLAVE_OPTIONS only slaves
#  * NODE_OPTIONS all nodes, master and slaves
#
# Options passed through these variables follow the
# same rule used for make_sandbox and low_level_make_sandbox
# "-c option=value" 
#
my $TEST_VERSION = $ENV{TEST_VERSION};
my $expected_gtid = 'does not exist';
my ($version, $name_version) = get_bare_version($TEST_VERSION);
if ($version ge '5.6') 
{
    $expected_gtid = 'exists';
}
my $replication_dir = "rsandbox_$name_version";
$ENV{MASTER_OPTIONS} = '-c key-buffer-size=20M';
$ENV{SLAVE_OPTIONS}  = '-c key-buffer-size=25M';
$ENV{NODE_OPTIONS}   = '-c max_allowed_packet=3M';
ok_exec({
    command     => "make_replication_sandbox $TEST_VERSION ",
    expected    => 'replication directory installed',
    msg         => 'replication directory installed',
});
sleep 2;
ok_sql({
    path    => "$sandbox_home/$replication_dir/master",
    query   => "show variables like 'key_buffer_size'",
    expected => '20971520',
    msg      => 'master key buffer (20M)',    
});
ok_sql({
    path    => "$sandbox_home/$replication_dir/master",
    query   => "show variables like 'max_allowed_packet'",
    expected => '3145728',
    msg      => 'master max allowed packet (3M)',    
});
ok_sql({
    path    => "$sandbox_home/$replication_dir/node1",
    query   => "show variables like 'max_allowed_packet'",
    expected => '3145728',
    msg      => 'node 1 max allowed packet (3M)',    
});
ok_sql({
    path    => "$sandbox_home/$replication_dir/node2",
    query   => "show variables like 'max_allowed_packet'",
    expected => '3145728',
    msg      => 'node 2 max allowed packet (3M)',    
});
ok_sql({
    path    => "$sandbox_home/$replication_dir/node1",
    query   => "show variables like 'key_buffer_size'",
    expected => '26214400',
    msg      => 'slave 1 key buffer (25M)',    
});
ok_sql({
    path    => "$sandbox_home/$replication_dir/node2",
    query   => "show variables like 'key_buffer_size'",
    expected => '26214400',
    msg      => 'slave 2 key buffer (25M)',    
});
my $gtid_exists = 'does not exist';
if (-f "$sandbox_home/$replication_dir/enable_gtid" )
{
    $gtid_exists = 'exists';
}
ok $gtid_exists eq  $expected_gtid, "file enable_gtid $expected_gtid ";
ok_exec( {
    command => "sbtool -o delete -s $sandbox_home/$replication_dir ", 
    expected => 'has been removed',
    msg      => "$replication_dir removed"
});