autotest: add support for starting at a specific test
... which is often useful for continuation after test data fixes.
This commit is contained in:
		
							parent
							
								
									03a38e48d3
								
							
						
					
					
						commit
						22a1df73e4
					
				
					 1 changed files with 20 additions and 1 deletions
				
			
		|  | @ -18,6 +18,17 @@ use File::Temp 'tempdir'; | ||||||
| my $use_vg = $ENV{USE_VALGRIND}; | my $use_vg = $ENV{USE_VALGRIND}; | ||||||
| my $mbsync = getcwd()."/mbsync"; | my $mbsync = getcwd()."/mbsync"; | ||||||
| 
 | 
 | ||||||
|  | my (@match, $start); | ||||||
|  | for my $arg (@ARGV) { | ||||||
|  | 	if ($arg eq "+") { | ||||||
|  | 		$start = 1; | ||||||
|  | 	} else { | ||||||
|  | 		push @match, $arg; | ||||||
|  | 	} | ||||||
|  | } | ||||||
|  | die("Need exactly one test name when using start syntax.\n") | ||||||
|  | 	if ($start && (@match != 1)); | ||||||
|  | 
 | ||||||
| if (!-d "tmp") { | if (!-d "tmp") { | ||||||
|   unlink "tmp"; |   unlink "tmp"; | ||||||
|   my $tdir = tempdir(); |   my $tdir = tempdir(); | ||||||
|  | @ -789,7 +800,15 @@ sub test($$$$) | ||||||
| { | { | ||||||
| 	my ($ttl, $sx, $tx, $sfx) = @_; | 	my ($ttl, $sx, $tx, $sfx) = @_; | ||||||
| 
 | 
 | ||||||
| 	return 0 if (scalar(@ARGV) && !grep { index($ttl, $_) >= 0 } @ARGV); | 	if (@match) { | ||||||
|  | 		if ($start) { | ||||||
|  | 			return if (index($ttl, $match[0]) < 0); | ||||||
|  | 			@match = (); | ||||||
|  | 		} else { | ||||||
|  | 			return if (!grep { index($ttl, $_) >= 0 } @match); | ||||||
|  | 		} | ||||||
|  | 	} | ||||||
|  | 
 | ||||||
| 	print "Testing: ".$ttl." ...\n"; | 	print "Testing: ".$ttl." ...\n"; | ||||||
| 	writecfg($sfx); | 	writecfg($sfx); | ||||||
| 
 | 
 | ||||||
|  |  | ||||||
		Loading…
	
	Add table
		
		Reference in a new issue