mariadb/suse-test-run

18 lines
439 B
Perl

#!/usr/bin/perl
#
# Test the SUSE mysql package using the MySQL testsuite
my $id = getpwnam("mysql") or die "can't find user \"mysql\": $!";
my $dir = "/usr/share/mysql-test/";
if ($< == 0) {
($<, $>) = ($id, $id);
if ($< != $id || $> != $id) {
die "can't switch to user mysql(id $id): $!";
}
}
chdir($dir) or die "can't cd to $dir: $!";
exec("./mysql-test-run.pl", "--big-test", @ARGV);
die "can't execute mysql-test-run.pl: $!";