#!/usr/bin/perl

use warnings;

# Could NOT get cp -r src_dir/* to work in expect -- won't accep the '*' for some reason.
# More than one way to skin a cat, as we say

print "rm_assess_files.pl called!\n";
if ( $#ARGV != 0 )
   { die "ERROR: rm_assess_files.pl: (experiments/AlgorithmTesting)\n"; }

$src_dir = $ARGV[0];

system("rm $src_dir/ApproximateEntropy/\*");
system("rm $src_dir/ApproximateEntropy/\.\*");

system("rm $src_dir/BlockFrequency/\*");
system("rm $src_dir/BlockFrequency/\.\*");

system("rm $src_dir/CumulativeSums/\*");
system("rm $src_dir/CumulativeSums/\.\*");

system("rm $src_dir/FFT/\*");
system("rm $src_dir/FFT/\.\*");

system("rm $src_dir/Frequency/\*");
system("rm $src_dir/Frequency/\.\*");

system("rm $src_dir/LinearComplexity/\*");
system("rm $src_dir/LinearComplexity/\.\*");

system("rm $src_dir/LongestRun/\*");
system("rm $src_dir/LongestRun/\.\*");

system("rm $src_dir/NonOverlappingTemplate/\*");
system("rm $src_dir/NonOverlappingTemplate/\.\*");

system("rm $src_dir/OverlappingTemplate/\*");
system("rm $src_dir/OverlappingTemplate/\.\*");

system("rm $src_dir/RandomExcursions/\*");
system("rm $src_dir/RandomExcursions/\.\*");

system("rm $src_dir/RandomExcursionsVariant/\*");
system("rm $src_dir/RandomExcursionsVariant/\.\*");

system("rm $src_dir/Rank/\*");
system("rm $src_dir/Rank/\.\*");

system("rm $src_dir/Runs/\*");
system("rm $src_dir/Runs/\.\*");

system("rm $src_dir/Serial/\*");
system("rm $src_dir/Serial/\.\*");

system("rm $src_dir/Universal/\*");
system("rm $src_dir/Universal/\.\*");

system("rm $src_dir/\*");
