File suse-test-run of Package mysql

#!/usr/bin/perl
#
# Test the SUSE mysql(-Max) package using the MySQL testsuite

my $id = getpwnam("mysql") or die "can't find user \"mysql\": $!";
my $dir = "/usr/share/mysql-test/";
my $binary = "/usr/sbin/mysqld";

if ($< == 0) {
	($<, $>) = ($id, $id);
	if ($< != $id || $> != $id) {
		die "can't switch to user mysql(id $id): $!";
	}
}

if ($0 =~ /\/suse-test-run-max$/i) {
	$binary .= "-max";
}

chdir($dir) or die "can't cd to $dir: $!";
exec("./mysql-test-run.pl", "--master-binary=$binary", "--slave-binary=$binary", "--big-test", @ARGV);
die "can't execute mysql-test-run.pl: $!";