mirror of
				https://github.com/MariaDB/server.git
				synced 2025-10-31 19:06:14 +01:00 
			
		
		
		
	 c2839e2cf2
			
		
	
	
	c2839e2cf2
	
	
	
		
			
			run tokudb suites by default. mark big and slow tests tokudb.change_column_all_1000_1 and tokudb.change_column_all_1000_10 test as --big
		
			
				
	
	
		
			27 lines
		
	
	
	
		
			520 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			27 lines
		
	
	
	
		
			520 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 is_default { 0 }
 | |
| sub config_files { () }
 | |
| sub servers { () }
 | |
| sub skip_combinations { () }
 | |
| 
 | |
| sub new { bless { } }
 | |
| 
 | |
| sub list_cases {
 | |
|   my ($self, $testdir) = @_;
 | |
|   opendir(TESTDIR, $testdir) or return ();
 | |
|   my (@cases) = grep { s/\.test$// } readdir TESTDIR;
 | |
|   closedir TESTDIR;
 | |
|   @cases;
 | |
| }
 | |
| 
 | |
| sub start_test {
 | |
|   my ($self, $tinfo)= @_;
 | |
|   &::start_mysqltest($tinfo);
 | |
| }
 | |
| 
 | |
| bless { };
 | |
| 
 |