make it possible to run only selected tests

This commit is contained in:
Oswald Buddenhagen 2013-11-03 20:17:54 +01:00
parent 3dcb393de2
commit 3d81ccbf21

View File

@ -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] });