make it possible to run only selected tests
This commit is contained in:
parent
3dcb393de2
commit
3d81ccbf21
|
@ -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] });
|
||||
|
|
Loading…
Reference in New Issue
Block a user