mirror of
https://github.com/MariaDB/server.git
synced 2025-11-19 19:03:26 +03:00
24 lines
482 B
Perl
24 lines
482 B
Perl
# A default suite class that is used for all suites without their owns suite.pm
|
|
# see README.suites for a description
|
|
|
|
package My::Suite;
|
|
|
|
sub config_files { () }
|
|
sub servers { () }
|
|
|
|
sub list_cases {
|
|
my ($self, $testdir) = @_;
|
|
opendir(TESTDIR, $testdir) or mtr_error("Can't open dir \"$testdir\": $!");
|
|
my (@cases) = grep { s/\.test$// } readdir TESTDIR;
|
|
closedir TESTDIR;
|
|
@cases;
|
|
}
|
|
|
|
sub start_test {
|
|
my ($self, $tinfo)= @_;
|
|
&::start_mysqltest($tinfo);
|
|
}
|
|
|
|
bless { };
|
|
|