mirror of
https://github.com/MariaDB/server.git
synced 2025-01-27 09:14:17 +01:00
061adae9a2
On Windows systems, occurrences of ERROR_SHARING_VIOLATION due to conflicting share modes between processes accessing the same file can result in CreateFile failures. mysys' my_open() already incorporates a workaround by implementing wait/retry logic on Windows. But this does not help if files are opened using shell redirection like mysqltest traditionally did it, i.e via --echo exec "some text" > output_file In such cases, it is cmd.exe, that opens the output_file, and it won't do any sharing-violation retries. This commit addresses the issue by introducing a new built-in command, 'write_line', in mysqltest. This new command serves as a brief alternative to 'write_file', with a single line output, that also resolves variables like "exec" would. Internally, this command will use my_open(), and therefore retry-on-error logic. Hopefully this will eliminate the very sporadic "can't open file because it is used by another process" error on CI.
104 lines
3.6 KiB
PHP
104 lines
3.6 KiB
PHP
# Purpose:
|
|
# Simple search with Perl for a pattern in some file.
|
|
#
|
|
# The advantages compared to thinkable auxiliary constructs using the
|
|
# mysqltest language and SQL are:
|
|
# 1. We do not need a running MySQL server.
|
|
# 2. SQL causes "noise" during debugging and increases the size of logs.
|
|
# Perl code does not disturb at all.
|
|
#
|
|
# The environment variables SEARCH_FILE and SEARCH_PATTERN must be set
|
|
# before sourcing this routine.
|
|
# SEARCH_TYPE can also be set to either NULL(default) or _gm_
|
|
# NULL is equivalent of using m/SEARCH_PATTERN/gs
|
|
# _gm_ is equivalent of using m/SEARCH_RANGE/gm
|
|
#
|
|
# Optionally, SEARCH_RANGE can be set to the max number of bytes of the file
|
|
# to search. If negative, it will search that many bytes at the end of the
|
|
# file. By default the search happens from the last CURRENT_TEST:
|
|
# marker till the end of file (appropriate for searching error logs).
|
|
#
|
|
# Optionally, SEARCH_ABORT can be set to "FOUND" or "NOT FOUND" and this
|
|
# will abort if the search result doesn't match the requested one.
|
|
#
|
|
# Optionally, SEARCH_OUTPUT can be set to control the format of output.
|
|
# Supported formats:
|
|
# - (default) : "FOUND n /pattern/ in FILE " or "NOT FOUND ..."
|
|
# - "matches" : Each match is printed, on a separate line
|
|
#
|
|
# In case of
|
|
# - SEARCH_FILE and/or SEARCH_PATTERN is not set
|
|
# - SEARCH_FILE cannot be opened
|
|
# the test will abort immediate.
|
|
#
|
|
# Typical use case (check invalid server startup options):
|
|
# let $error_log= $MYSQLTEST_VARDIR/log/my_restart.err;
|
|
# --error 0,1
|
|
# --remove_file $error_log
|
|
# let SEARCH_FILE= $error_log;
|
|
# # Stop the server
|
|
# let $restart_file= $MYSQLTEST_VARDIR/tmp/mysqld.1.expect;
|
|
# --write_line wait $restart_file
|
|
# --shutdown_server
|
|
# --source include/wait_until_disconnected.inc
|
|
#
|
|
# --error 1
|
|
# --exec $MYSQLD_CMD <whatever wrong setting> > $error_log 2>&1
|
|
# # The server restart aborts
|
|
# let SEARCH_PATTERN= \[ERROR\] Aborting;
|
|
# --source include/search_pattern_in_file.inc
|
|
#
|
|
# Created: 2011-11-11 mleich
|
|
#
|
|
|
|
perl;
|
|
use strict;
|
|
die "SEARCH_FILE not set" unless $ENV{SEARCH_FILE};
|
|
my @search_files= glob($ENV{SEARCH_FILE});
|
|
my $search_pattern= $ENV{SEARCH_PATTERN} or die "SEARCH_PATTERN not set";
|
|
my $search_range= $ENV{SEARCH_RANGE};
|
|
my $content;
|
|
foreach my $search_file (@search_files) {
|
|
open(FILE, '<', $search_file) || die("Can't open file $search_file: $!");
|
|
my $file_content;
|
|
if ($search_range > 0) {
|
|
read(FILE, $file_content, $search_range, 0);
|
|
} elsif ($search_range < 0) {
|
|
my $size= -s $search_file;
|
|
$search_range = -$size if $size > -$search_range;
|
|
seek(FILE, $search_range, 2);
|
|
read(FILE, $file_content, -$search_range, 0);
|
|
} else {
|
|
while(<FILE>) { # error log
|
|
if (/^CURRENT_TEST:/) {
|
|
$content='';
|
|
} else {
|
|
$content.=$_;
|
|
}
|
|
}
|
|
}
|
|
close(FILE);
|
|
$content.= $file_content;
|
|
}
|
|
my @matches;
|
|
if (not defined($ENV{SEARCH_TYPE}))
|
|
{
|
|
@matches=($content =~ /$search_pattern/gs);
|
|
}
|
|
elsif($ENV{SEARCH_TYPE} == "_gm_")
|
|
{
|
|
@matches=($content =~ /$search_pattern/gm);
|
|
}
|
|
my $res=@matches ? "FOUND " . scalar(@matches) : "NOT FOUND";
|
|
$ENV{SEARCH_FILE} =~ s{^.*?([^/\\]+)$}{$1};
|
|
|
|
if ($ENV{SEARCH_OUTPUT} eq "matches") {
|
|
foreach (@matches) {
|
|
print $_ . "\n";
|
|
}
|
|
} else {
|
|
print "$res /$search_pattern/ in $ENV{SEARCH_FILE}\n";
|
|
}
|
|
die "$ENV{SEARCH_ABORT}\n"
|
|
if $ENV{SEARCH_ABORT} && $res =~ /^$ENV{SEARCH_ABORT}/;
|
|
EOF
|