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) = @_;
|
my ($ttl, $sx, $tx) = @_;
|
||||||
|
|
||||||
|
return 0 if (scalar(@ARGV) && !grep { $_ eq $ttl } @ARGV);
|
||||||
print "Testing: ".$ttl." ...\n";
|
print "Testing: ".$ttl." ...\n";
|
||||||
mkchan($$sx[0], $$sx[1], @{ $$sx[2] });
|
mkchan($$sx[0], $$sx[1], @{ $$sx[2] });
|
||||||
&writecfg(@{ $$tx[0] });
|
&writecfg(@{ $$tx[0] });
|
||||||
|
|
Loading…
Reference in New Issue
Block a user