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

GMAX / MySQL-Sandbox-3.2.18 / t / group_port_checking.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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115

              
#
# test for replication and group sandbox port checking
#
my $TEST_VERSION = $ENV{TEST_VERSION};
my ($bare_version, $version) = get_bare_version ($TEST_VERSION);
my $SANDBOX_HOME= $ENV{SANDBOX_HOME} || "$ENV{HOME}/sandboxes";
my $custom_port=11000;
my $custom_port1= $custom_port + 1;
my $custom_port2= $custom_port + 2;
my $custom_port5= $custom_port + 5;
my $custom_port6= $custom_port + 6;
ok_exec ({
command     => "make_multiple_sandbox --sandbox_base_port=$custom_port $TEST_VERSION",
expected    => "group directory installed",
msg         => "group 1 started",
});
ok_sql({
path        => "$SANDBOX_HOME/multi_msb_$version/node1",
query       => "show variables like 'port'",
expected    => "$custom_port1",
msg         => "right port on node1",
});
ok_sql({
path        => "$SANDBOX_HOME/multi_msb_$version/node2",
query       => "show variables like 'port'",
expected    => "$custom_port2",
msg         => "right port on node2",
});
ok_exec ({
command     => "make_multiple_sandbox --sandbox_base_port=$custom_port --group_directory=gsb --check_base_port $TEST_VERSION",
expected    => "group directory installed",
msg         => "group 2 started",
});
ok_sql({
path        => "$SANDBOX_HOME/gsb/node1",
query       => "show variables like 'port'",
expected    => "$custom_port5",
msg         => "right port on node1 (after check)",
});
ok_sql({
path        => "$SANDBOX_HOME/gsb/node2",
query       => "show variables like 'port'",
expected    => "$custom_port6",
msg         => "right port on node2 (after check)",
});
ok_exec ({
command     => "make_replication_sandbox --sandbox_base_port=6000 $TEST_VERSION",
expected    => "replication directory installed",
msg         => "replication started",
});
ok_sql({
path        => "$SANDBOX_HOME/rsandbox_$version/master",
query       => "show variables like 'port'",
expected    => "6000",
msg         => "right port on master",
});
ok_sql({
path        => "$SANDBOX_HOME/rsandbox_$version/node1",
query       => "show variables like 'port'",
expected    => "6001",
msg         => "right port on node1",
});
ok_exec ({
command     => "make_replication_sandbox --sandbox_base_port=6000 --replication_directory=rsb --check_base_port $TEST_VERSION",
expected    => "replication directory installed",
msg         => "replication started",
});
ok_sql({
path        => "$SANDBOX_HOME/rsb/master",
query       => "show variables like 'port'",
expected    => "6003",
msg         => "right port on master (after check)",
});
ok_sql({
path        => "$SANDBOX_HOME/rsb/node1",
query       => "show variables like 'port'",
expected    => "6004",
msg         => "right port on node1 (after check)",
});
ok_exec ({
command     => "sbtool -o delete -s $SANDBOX_HOME/rsandbox_$version/",
expected    => "has been removed",
msg         => "replication 1 stopped and removed",
});
ok_exec ({
command     => "sbtool -o delete -s $SANDBOX_HOME/rsb/",
expected    => "has been removed",
msg         => "replication 2 stopped and removed",
});
ok_exec ({
command     => "sbtool -o delete -s $SANDBOX_HOME/multi_msb_$version",
expected    => "has been removed",
msg         => "group 1 stopped and removed",
});
ok_exec ({
command     => "sbtool -o delete -s $SANDBOX_HOME/gsb/",
expected    => "has been removed",
msg         => "group 2 stopped and removed",
});