GIF89a;
Direktori : /usr/share/mysql-test/suite/perfschema/t/ |
Current File : //usr/share/mysql-test/suite/perfschema/t/bad_option_5.test |
# 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_5.txt; --error 0,1 --remove_file $outfile --error 2 --exec $MYSQLD_BOOTSTRAP_CMD --loose-console -aXbroken > $outfile 2>&1 # -aXbroken should be parsed as -a -Xbroken, or --ansi -Xbroken, # therefore the -X option is what the server should complain about perl; use strict; use warnings; my $fname= "$ENV{'MYSQLTEST_VARDIR'}/tmp/bad_option_5.txt"; open(FILE, "<", $fname) or die; my @lines= <FILE>; # those must be in the file for the test to pass my @patterns= ("unknown option '-X'", "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