#!/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: $!";

​