mirror of
https://github.com/MariaDB/server.git
synced 2025-08-29 00:08:14 +03:00
6a029cc54c
The reason for the bug above is unclear but - Modify pfs_upgrade so that it's result is easier to analyze in case something fails - Fix several minor weaknesses which could cause that a successing test (either an already existing or a to be developed one) fails because of imperfect cleanup, too slow disconnected sessions etc. should either fix the bug or reduce it's probability or at least make the analysis of failures easier.
50 lines
1.6 KiB
Plaintext
50 lines
1.6 KiB
Plaintext
# Copyright (c) 2009, 2010, Oracle and/or its affiliates. All rights reserved.
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; version 2 of the License.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software Foundation,
|
|
# 51 Franklin Street, Suite 500, Boston, MA 02110-1335 USA
|
|
|
|
# Tests for PERFORMANCE_SCHEMA
|
|
# Check error handling for invalid server start options
|
|
|
|
--source include/not_embedded.inc
|
|
--source include/have_perfschema.inc
|
|
|
|
let $outfile= $MYSQLTEST_VARDIR/tmp/bad_option_1.txt;
|
|
--error 0,1
|
|
--remove_file $outfile
|
|
--error 7
|
|
--exec $MYSQLD_BOOTSTRAP_CMD --loose-console --performance-schema-enabled=maybe > $outfile 2>&1
|
|
|
|
perl;
|
|
use strict;
|
|
use warnings;
|
|
my $fname= "$ENV{'MYSQLTEST_VARDIR'}/tmp/bad_option_1.txt";
|
|
open(FILE, "<", $fname) or die;
|
|
my @lines= <FILE>;
|
|
# those must be in the file for the test to pass
|
|
my @patterns=
|
|
("unknown variable 'performance-schema-enabled=maybe'",
|
|
"Aborting");
|
|
foreach my $one_line (@lines)
|
|
{
|
|
foreach my $one_pattern (@patterns)
|
|
{
|
|
# print pattern, not line, to get a stable output
|
|
print "Found: $one_pattern\n" if ($one_line =~ /$one_pattern/);
|
|
}
|
|
}
|
|
close FILE;
|
|
EOF
|
|
--remove_file $outfile
|
|
|