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
|
--echo # Get the full path name of the PID file
--let $pid_file= query_get_value(SELECT @@pid_file, @@pid_file, 1)
--let PIDFILE= $pid_file
--echo # Expecting a "crash", but don't restart the server until it is told to
--echo # Expected max core size is $expected_max_core_size MB
--let MAXCORESIZE= $expected_max_core_size
--exec echo "wait" > $MYSQLTEST_VARDIR/tmp/mysqld.1.expect
perl;
my $pid_file = $ENV{'PIDFILE'} or die "PIDFILE not set";
my $expected_max_core_size = $ENV{'MAXCORESIZE'} or die "MAXCORESIZE not set";
# The argument is in MB
$expected_max_core_size = $expected_max_core_size * 1024 * 1024;
# Get PID of mysqld
open(my $fh, '<', $pid_file) || die "Cannot open pid file $pid_file\n";
my $pid = <$fh>;
$pid =~ s/\s//g;
close($fh);
if ($pid eq "") {
die "Couldn't retrieve PID from PID file.\n";
}
# The current time in seconds since epoch
$cur_time = time;
# Kill mysqld to dump a core
system("kill", "-s", "SIGABRT", "$pid");
print "# Perl: Sent a SIGABRT to mysqld to dump a core.\n";
$core_dir = $ENV{'MYSQLTEST_VARDIR'} . '/mysqld.1/data/';
$found_core = 0;
$core_size = 0;
$core_size_good = 0;
# Check the files in the core file directory
$wait_sec = 60;
while ($wait_sec > 0) {
opendir(my $dir, $core_dir) or die "Failed to open dir $core_dir: $!\n";
while (my $file = readdir($dir)) {
# If the core file name contains the PID
if (index($file, $pid) != -1) {
# The last write time in seconds since epoch
$full_path = $core_dir . '/' . $file;
@stat = stat($full_path);
$core_size = $stat[7];
$write_secs = $stat[9];
# If the file was written within a minute
if ($cur_time <= $write_secs && $write_secs - $cur_time < 60) {
$found_core = 1;
if ($core_size < $expected_max_core_size) {
$core_size_good = 1;
}
# Remove the core file to avoid it get accumulated over time
unlink $full_path;
last;
}
}
}
closedir($dir);
if ($found_core) {
last;
}
# Sleep 1 second and try again
--$wait_sec;
sleep 1;
}
if ($found_core) {
if ($core_size_good) {
print "# Perl: OK! Found the core file and it's small!\n";
} else {
print "# Perl: Failed! Found the core file but it's too big ($core_size)!\n";
}
} else {
print "# Perl: Failed! Didn't find the core file!\n";
}
EOF
--echo # Make server restart
--exec echo "restart" > $MYSQLTEST_VARDIR/tmp/mysqld.1.expect
--enable_reconnect
--echo # Wait for server to be back online
--source include/wait_until_connected_again.inc
--disable_reconnect
|
