use FindBin qw($Bin);
use lib "$Bin/lib";
use TestHelper;
my @exts, $exts, @dirs, $dirs;
GetOptions ('ext=s' => \@exts,
'dir=s' => \@dirs,
'flavors=s' => \@selected_flavors);
$exts = @exts; $dirs = @dirs;
if (!$exts) { $exts[0] = $exts[1] = ""; }
if ($exts == 1) { $exts[1] = $exts[0]; }
if (!$dirs) { $dirs[0] = $dirs[1] = "./"; }
if ($dirs == 1) { $dirs[1] = $dirs[0]; }
@selected_flavors = lookup_info (\@flavor_lists, @selected_flavors);
for $test (@selected_flavors) { move_logs (\@dirs, \@exts, $test); }