make it possible to run only selected tests

2013-11-03 20:17:54 +01:00 · 2013-11-03 20:17:54 +01:00 · 3d81ccbf21
commit 3d81ccbf21
parent 3dcb393de2
1 changed files with 1 additions and 0 deletions
--- a/src/run-tests.pl
+++ b/src/run-tests.pl
@ -593,6 +593,7 @@ sub test($$$)
 {
 	my ($ttl, $sx, $tx) = @_;

+	return 0 if (scalar(@ARGV) && !grep { $_ eq $ttl } @ARGV);
 	print "Testing: ".$ttl." ...\n";
 	mkchan($$sx[0], $$sx[1], @{ $$sx[2] });
 	&writecfg(@{ $$tx[0] });