package rampart_test_module;

use XML::DOM;
use Log::Log4perl;
#use XML::SemanticDiff;
use Mail::Sender;
use Getopt::Long;
use File::Compare;
use File::Copy;


use TestUtilities;

my $util = new TestUtilities();

my $logger = $util->log_init ('wsfc_tests.logconf');

my $root = $util->get_document_element('wsfc_tests.xml');


sub invoke_tests
{
    print "Invoking rampart tests...\n";
    $logger->info ("Invoking rampart tests...\n");
    my @output;
    my $all = 0;
    my $success = 0;
    my $fail = 0;
    my @nodes = $root->getElementsByTagName("rampart_tests");

    $logger->info ("got children of \"rampart_tests\" by tag name $nodes[0]");
    my @test = $nodes[0]->getElementsByTagName("test");
    #$logger->info ("got child nodes ");

    my @value = $util->get_element_value ($root , "directories", "deploy");
    my @working = $util->get_element_value ($root , "directories", "working");
    $logger->info ("deploy directory value is $value[0]");

    chdir $value[0], or die "unable to change directory $value[0]$! \n";
    chdir "bin" or die "unable to change director ";
    chdir "samples" or die "unable to change director ";
    $logger->info ("changed directory to $value[0]\bin\samples ");
    $logger->info ("Repeating results may occure for loop ahead \n\n");
   
    foreach (@test)
    {
       my $name = $_->getElementsByTagName("name");
           my $TestName = $name->item(0)->getFirstChild->getNodeValue;

             my $filename = $_->getElementsByTagName("file");
         my $file = $filename->item(0)->getFirstChild->getNodeValue;
             $logger->info ("file name is $file");

       my @arg = $_->getElementsByTagName("arg");

             my @arg_values="";
             foreach (@arg)
             {
                push (@arg_values, $_->getFirstChild->getNodeValue);
   	     }

	 print "invoking $TestName \n";
     $logger->info ("$all. printed invoking $TestName to screen ");

    chdir $value[0], or die "unable to change directory $value[0]$! \n";
    chdir "bin" or die "unable to change director ";
    chdir "samples" or die "unable to change director ";
    $logger->info ("changed directory to $value[0]\bin\samples ");
    $logger->info ("Repeating results may occure for loop ahead \n\n");

       if($^O eq 'MSWin32')
       {
            system "$file @arg_values > $working[0]\\output\\$TestName.out";
       }
       elsif($^O eq 'linux')
       {
               system "./$file @arg_values > $working[0]/output/$TestName.out" }
       sleep 3;


       if($^O eq 'MSWin32')
       {
	
	 }
       elsif($^O eq 'linux')
       { }
       $all++;
       chdir "$working[0]/output", or die;
       if(compare("$TestName.out","$TestName.expected") == 0)
       {
               $success++;
               print "Test $TestName .... Passed\n";
        $logger->info ("Test $TestName .... Passed\n\n");
       }
       else
       {
              print "Test $TestName .... Failed\n";
         $logger->info ("Test $TestName .... Failed\n\n");
       }

     }

     $fail = $all - $success;
     print "\n\n==================Summery==============\n\n";
     $logger->info ("==================Summery==============");

     print "Total Tests        : $all\n";
     $logger->info ( "Total Tests        : $all\n");

     print "Successful Invokes : $success\n";
     $logger->info ("Successful Invokes : $success\n");

     print "Unsuccessful Invokes     : $fail\n";
     $logger->info ("Failed Invokes     : $fail\n");

     print "\n========================================\n";
     $logger->info ("========================================\n");
    


}

sub new {
    my ($self) = {};
    bless ($self);
    $self->{'_created'} = 1;
    return $self;
}


sub build_testcases
{
  my @nodes = $root->getElementsByTagName("rampart_tests");
  $logger->info ("got children of \"rampart_tests\" by tag name $nodes[0]");
  my @test = $nodes[0]->getElementsByTagName("test");
  $logger->info ("got child nodes ");

  #my @value = $util->get_element_value ($root , "directories", "testcase");
  my @working = $util->get_element_value ($root , "directories", "working");
  $logger->info ("deploy directory value is $value[0]");

  chdir $working[0], or die "unable to change directory $value[0]$! \n";
  chdir "testcases" or die "unable to change director ";
  chdir "rampart" or die "unable to change director ";
  
  $logger->info ("changed directory to $working[0]\testcases\rampart ");
  $logger->info ("Repeating results may occure for loop ahead \n\n");

  foreach (@test)
    {
       my $name = $_->getElementsByTagName("name");
       my $TestName = $name->item(0)->getFirstChild->getNodeValue;
      
       my $client_f = 0;
       my $service_f = 0;
 
       if( -d $TestName)
       {

          print "Building  $TestName\n";
          $logger->info ("printed Building  $TestName to screen ");

          chdir "$TestName";    
          $logger->info ("Building Client");
          #$logger->info ("Repeating results may occure for loop ahead \n\n");

          if(-d "client")
          {

             print ("client exists...\n");
             chdir "client";

             if($^O eq 'MSWin32')
             {
                system "build.bat 2> $TestName.bld";
                $client_f = 1;
            
             }
             elsif($^O eq 'linux')
             {   
                system "sh build.sh 2> $TestName.bld" ;
                $client_f = 1;
             }
 
             if( -s "$TestName.bld")
             {
                open(DAT, "$TestName.bld");
                @Error=<DAT>;
                close(DAT);
                foreach (@Error)
                {
                   if (/Error/i)
                   {
                      print "$TestName compilation failed...\n";
                      $logger->info ("$TestName compilation failed...\n");
                     #die "autogen failed...";
                   }
                }
            }
            chdir "..";
         }

         if(-d "service")
         {
            chdir "service";

            if($^O eq 'MSWin32')
            {
                system "build.bat 2> $TestName.bld";
                my $service_f = 1;
            }
            elsif($^O eq 'linux')
            {   
               system "sh build.sh 2> $TestName.bld" ;
               my $service_f = 1;
            }
 
            if( -s "$TestName.bld")
            {
                open(DAT, "$TestName.bld");
                @Error=<DAT>;
                close(DAT);
                foreach (@Error)
                {
                  if (/Error/i)
                  {
                     print "$TestName compilation failed...\n";
                     $logger->info ("$TestName compilation failed...\n");
                     #die "autogen failed...";
                  }
                }
            }
            chdir "..";
           }
       
       chdir "..";
       }


    }
}

1;