#!/usr/bin/perl

#############################
# wrapper.pl
#
# Runs test.pl on designated
# directory and files
#############################

use strict;
use warnings;

my $base_dir = 'G:\Test Data';
my @included_dirs = ('Ts1', 'Ts10', 'Ts12', 'Ts13', 'Ts14', 'Ts15', 'Ts16', 'Ts17', 'Ts18', 'Ts19', 'Ts2', 'Ts20', 'Ts21',                        'Ts22', 'Ts23', 'Ts24', 'Ts25', 'Ts26', 'Ts27', 'Ts3', 'Ts4', 'Ts5', 'Ts6', 'Ts7', 'Ts8', 'Ts9');
my @files;

for my $dir(@included_dirs) {
  ## STATUS CHECK
  print "$dir\n";

  opendir(DIR, "$base_dir\\$dir") or die "$dir failed to open: $!";
  @files = grep { /\.txt$/ } readdir(DIR);
  closedir(DIR);

  for my $file(@files) {
    next if $file =~ /RAREEVENT/;

    ## STATUS CHECK
    print "\t$file\n\t\tRunning test.pl";

    my $arg1 = $file;
    my $arg2 = "$base_dir\\$dir";
    system('E:\perl\bin\perl', 'C:\WINDOWS\Profiles\chemphysio\Desktop\Test data\TEST\test.pl', $arg1, $arg2);

    ## STATUS CHECK
    print "\t\tControl returned\n";
  }
}