Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
M
MariaDB
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
nexedi
MariaDB
Commits
1e21055d
Commit
1e21055d
authored
May 23, 2006
by
msvensson@shellback.(none)
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Updated after review
parent
1c65a2d8
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
20 additions
and
22 deletions
+20
-22
mysql-test/lib/mtr_process.pl
mysql-test/lib/mtr_process.pl
+7
-7
mysql-test/lib/mtr_report.pl
mysql-test/lib/mtr_report.pl
+1
-1
mysql-test/mysql-test-run.pl
mysql-test/mysql-test-run.pl
+12
-14
No files found.
mysql-test/lib/mtr_process.pl
View file @
1e21055d
...
...
@@ -297,7 +297,7 @@ sub spawn_parent_impl {
}
}
mtr_debug
("
waitpid() ca
tched
exit of unknown child
$ret_pid
,
"
.
mtr_debug
("
waitpid() ca
ught
exit of unknown child
$ret_pid
,
"
.
"
exit during mysqltest run
");
}
...
...
@@ -505,9 +505,9 @@ sub mtr_kill_leftovers () {
}
# Check that all processes in list
is
killed
# Check that all processes in list
are
killed
# The argument is a list of 'ports', 'pids', 'pidfiles' and 'socketfiles'
# for which shutdown has been started. Make sure they all get kille
s
# for which shutdown has been started. Make sure they all get kille
d
# in one way or the other.
#
# FIXME On Cygwin, and maybe some other platforms, $srv->{'pid'} and
...
...
@@ -540,12 +540,12 @@ sub mtr_check_stop_servers ($) {
$ret_pid
=
waitpid
(
$srv
->
{'
pid
'},
&
WNOHANG
);
if
(
$ret_pid
==
$srv
->
{'
pid
'})
{
mtr_verbose
("
Ca
tched
exit of process
$ret_pid
");
mtr_verbose
("
Ca
ught
exit of process
$ret_pid
");
$srv
->
{'
pid
'}
=
0
;
}
else
{
# mtr_warning("ca
tched
exit of unknown child $ret_pid");
# mtr_warning("ca
ught
exit of unknown child $ret_pid");
}
}
}
...
...
@@ -667,7 +667,7 @@ sub mtr_wait_blocking($) {
# Wait for all the started processes to exit
# As mysqladmin is such a simple program, we trust it to terminate itself.
# I.e. we wait blocking, and wait
wait
for them all before we go on.
# I.e. we wait blocking, and wait for them all before we go on.
foreach
my
$pid
(
keys
%
{
$admin_pids
})
{
my
$ret_pid
=
waitpid
(
$pid
,
0
);
...
...
@@ -789,7 +789,7 @@ sub mtr_record_dead_children () {
# -1 or 0 means there are no more procesess to wait for
while
(
(
$ret_pid
=
waitpid
(
-
1
,
&
WNOHANG
))
!=
0
and
$ret_pid
!=
-
1
)
{
mtr_warning
("
waitpid() ca
tched
exit of child
$ret_pid
");
mtr_warning
("
waitpid() ca
ught
exit of child
$ret_pid
");
foreach
my
$idx
(
0
..
1
)
{
if
(
$::master
->
[
$idx
]
->
{'
pid
'}
eq
$ret_pid
)
...
...
mysql-test/lib/mtr_report.pl
View file @
1e21055d
...
...
@@ -204,7 +204,7 @@ sub mtr_report_stats ($) {
"
http://www.mysql.com/doc/en/MySQL_test_suite.html
\n
";
}
print
"
The servers w
as
restarted
$tot_restarts
times
\n
";
"
The servers w
ere
restarted
$tot_restarts
times
\n
";
# ----------------------------------------------------------------------
# If a debug run, there might be interesting information inside
...
...
mysql-test/mysql-test-run.pl
View file @
1e21055d
...
...
@@ -1602,18 +1602,7 @@ sub ndbcluster_start_install ($) {
s/CHOOSE_PORT_MGM/$cluster->{'port'}/
;
s/CHOOSE_DiskPageBufferMemory/$ndb_pbmem/
;
# if ( /^\s*$/ )
# {
# print OUT "\n";
# }
# elsif (/;$/)
# {
# print OUT "$_\n";
# }
# else
# {
print
OUT
"
$_
\n
";
# }
print
OUT
"
$_
\n
";
}
close
OUT
;
close
IN
;
...
...
@@ -2178,13 +2167,22 @@ sub run_testcase ($) {
return
;
}
#
FIXME if test need slave cluster, check if that is installed_
ok
#
If test needs cluster, check that master installed
ok
if
(
$tinfo
->
{'
ndb_test
'}
and
$clusters
->
[
0
]
->
{'
installed_ok
'}
eq
"
NO
"
)
{
mtr_report_test_name
(
$tinfo
);
mtr_report_test_failed
(
$tinfo
);
return
;
}
}
# If test needs slave cluster, check that it installed ok
if
(
$tinfo
->
{'
ndb_test
'}
and
$tinfo
->
{'
slave_num
'}
and
$clusters
->
[
1
]
->
{'
installed_ok
'}
eq
"
NO
"
)
{
mtr_report_test_name
(
$tinfo
);
mtr_report_test_failed
(
$tinfo
);
return
;
}
run_testcase_stop_servers
(
$tinfo
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment