diff --git a/src/run-tests.pl b/src/run-tests.pl
index 574378d..772b4ab 100755
--- 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] });