# Test Suite for rname.pl
# version 1.5

$dir = "test 1";
$dir2 = "test 3";
$dir3 = "test 4";
$subdir = "test 2";

if ( ($ARGV[0]) && ($ARGV[0] = "-d" ) ) {
	opendir(THISDIR, "$dir") or die ("Error: $!");
	@files = readdir THISDIR;
	closedir THISDIR; 
	open (LOG, ">>$dir/rnameTest.log");
	foreach my $fname (@files) { # List contents of directory
		if (! -d "$dir/$fname" && ! -l "$dir/$fname") { # If not a dir & not a symlink to dir
			if ($fname =~ m/^[a-z]+(\s[0-9])?\ss[0-9]+e[0-9]+(-\d+)?\.(avi$|ogg$|mpg$|mpeg$|mkv$|mp4$)/i) {
				printf LOG "$fname\n";
				unlink("$dir/$fname");
			}
		}
	}	
	close LOG;
} else {
	# File Name arrys
	@name = ("Single", "Double.1", "double 2", "Double-3", "Double_4");
	@SE = ("101", "0102", "1x03", "1x4", "01x05", "S1E06-e7", "s1e8-9", "S01e10-11", "S01.E12", "S01 E13", "S01E14-E15");
	@ext = (".avi", ".ogg", ".mpg", ".mpeg", ".mkv", ".mp4");
	@quality = ("720p", "1080p", "1080i");
	$crap = "zzzz.ssss";
	
	# Make Directory
	mkdir "$dir";
	mkdir "$dir2";
	mkdir "$dir3";
	mkdir "$dir/$subdir";
	
	# Create files
	
	foreach $fname (@name) {
	 foreach $fse (@SE) {
	  foreach $fext (@ext) {
	    $nfname = "${fname}.${fse}-${crap}${fext}";
	    open F, ">$dir/$nfname";
	    close F;
	  }
	 }
	}
	
	foreach $fname (@name) {
	 foreach $fse (@SE) {
	  foreach $fext (@ext) {
	    $nfname = "${fname}.${fse}-${crap}${fext}";
	    open F, ">$dir2/$nfname";
	    close F;
	  }
	 }
	}
	
  foreach $fname (@name) {
	 foreach $fse (@SE) {
	  foreach $fqual (@quality) {
	   foreach $fext (@ext) {
	    $nfname = "${fname}.${fse}.${fqual}.${crap}${fext}";
	    open F, ">$dir3/$nfname";
	    close F;
	   }
	  }
	 }
	}
	
	# File noise (to ensure just the $ext files are processed)
	open F, ">$dir/test.log";
	close F;
	open F, ">$dir/test.av";
	close F;
	open F, ">$dir/test.htm";
	close F;
	open F, ">$dir2/test.log";
	close F;
	open F, ">$dir2/test.av";
	close F;
	open F, ">$dir2/test.htm";
	close F;
}