#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use File::Find;

#custom modules
use Modules::Htmlripper::Noreplaceroot::Fixtotext;
use Modules::Htmlripper::Gotreplaceroot::Fixtoclassweiss;
use Modules::Htmlripper::Gotreplaceroot::Fixtoclassrot;
use Modules::Htmlripper::Gotreplaceroot::Fixtoclassklein;
use Modules::Htmlripper::Gotnestedreplaceroot::Fixtoclasskleinandgrau;

use Modules::Filecontrol qw(get_files);

my $test_dir = shift or die "no test directory specified file\n";
opendir (DIR, $test_dir) or die "couldn't open directory: $test_dir";
closedir DIR;

my $ripperClass = shift or die "no HTML ripper class specified";

my @test_dirs = Filecontrol::get_test_dirs($test_dir);
my $ripper = $ripperClass->new();

#keys are directory names.
for ( @test_dirs ) {
	print "Testing $ripperClass against directory $_: \n"; 
	$ripper->test_dir($_);
	my $result = $ripper->test();
	if ($result) {
		print "ok\n";
	} else {
		print "not ok\n";	
	}
	
}