# Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Nokia Corporation - initial contribution.
#
# Contributors:
#
# Description:
#

#!/usr/bin/perl

################################################################################
######### This file is meant to be used only once to create an initial
######### test list and the belonging batch and command files.
################################################################################

######### The input is the old mmbuild batch files under TestTools\Scripts
################################################################################
use strict;

# open file which contains all batch files that contains copy and delete commands.
open FILES, "test_data.txt" or die "couldn't open file: $!";

my $input_file;
my $output_copy_file;
my $output_del_file;

while (<FILES>)
{
    chomp;
    
    $output_copy_file = $_;
    $input_file = $output_copy_file;
    $output_copy_file =~ s/.bat//g;
    $output_copy_file =~ s/\.\.\/run//g;
    $output_copy_file .= "_copy_data.txt";

    open OUT, ">$output_copy_file" or die "couldn't open $output_copy_file: $!";

    open IN, "$input_file" or die "couldn't open $input_file: $!";

    # write all copy commands to OUT file.
    while (<IN>)
    {
	chomp;
	my $line = $_;
	if ($line =~ /^md/i || $line =~ /^copy/i)
	{
	    print OUT $line . "\n";
	}
    }
    close OUT;
    close IN;

    # create the DABS pretest command file. Can only be one row.
    #commented out for the moment as a DABS hack exists.
    #my $output_cmd_file = $output_copy_file;
    #$output_cmd_file =~ s/bat$/txt/;
    #open DABS_cmd_file, ">$output_cmd_file" or die "couldn't open $output_cmd_file: $!";

    #print DABS_cmd_file "call e:\\$output_copy_file\n";

    #close DABS_cmd_file;
    
    $output_del_file = $output_copy_file;
    $output_del_file =~ s/copy/del/g;

    open OUT, ">$output_del_file" or die "couldn't open $output_del_file: $!";

    open IN, "$input_file" or die "couldn't open $input_file: $!";

    # write all del commands to OUT file
    while (<IN>)
    {
	chomp;
	my $line = $_;
	if ($line =~ /^del.*c:/i)
	{
	    print OUT $line . "\n";
	}
    }
    
    close OUT;
    close IN;

    # create the DABS posttest command file. Can only be one row.
    #commented out for the moment as a DABS hack exists.
    #$output_cmd_file = $output_del_file;
    #$output_cmd_file =~ s/bat$/txt/;
    #open DABS_cmd_file, ">$output_cmd_file" or die "couldn't open $output_cmd_file: $!";

    #print DABS_cmd_file "call e:\\$output_del_file\n";

    #close DABS_cmd_file;
    
    
}

close FILES;

open DABS_TESTS, "new_tests_92.txt" or die "couldn't open file: $!";

open FILES, "test_data.txt" or die "couldn't open file: $!";

open OUT_SCRIPT, ">real_tests_92.txt" or die "couldn't open file: $!";

my @test_rows;

# find where in the test list the pretest and posttest commands should be,
# and insert them in the list.
# This while loop actually creates load of duplicates of tests that don't
# need a pre or post test command.
# Those duplicates are removed futher down.
while (<DABS_TESTS>)
{
    my ( $program, $log, $commdb, $script, $timeout, $release, $preCommand, $postCommand );

    chomp;

    ($program, $log, $commdb, $script, $timeout, $release, $preCommand, $postCommand) = split(/,/);

    # Strip any trailing spaces
    $program =~ s!\ $!! if( defined($program));
    $log =~ s!\ $!! if( defined($log));
    $commdb =~ s!\ $!! if( defined($commdb));
    $script =~ s!\ $!! if( defined($script));
    $timeout =~ s!\ $!! if( defined($timeout));
    $release =~ s!\ $!! if( defined($release));
    $preCommand =~ s!\ $!! if( defined($preCommand));
    $postCommand =~ s!\ $!! if( defined($postCommand));
    
    # Strip any leading spaces
    $program =~ s!^\ !! if( defined($program));
    $log =~ s!^\ !! if( defined($log));
    $commdb =~ s!^\ !! if( defined($commdb));
    $script =~ s!^\ !! if( defined($script));
    $timeout =~ s!^\ !! if( defined($timeout));
    $release =~ s!^\ !! if( defined($release));
    $preCommand =~ s!^\ !! if( defined($preCommand));
    $postCommand =~ s!^\ !! if( defined($postCommand));
    
    # Set defaults for undefined values
    $program = "" unless ($program);
    $log = "" unless ($log);
    $commdb = "" unless ($commdb);
    $script = "" unless ($script);
    $timeout = $::TestTimeout unless ($timeout);
    $preCommand = "" unless ($preCommand);
    $postCommand = "" unless ($postCommand);
    
    my 	$found_script = 0;
    open FILES, "test_data.txt" or die "couldn't open file: $!";
    
    while (<FILES>)
    {
	chomp;
	my $input_file = $_;

	open IN, "$input_file" or die "couldn't open $input_file: $!";

	while (<IN>)
	{
	    chomp;
	    my $line = $_;
	    if ($line =~ /$script/i)
	    {
		$preCommand = $input_file;
		$preCommand =~ s/.bat//g;
		$preCommand =~ s/\.\.\/run//g;
		$preCommand .= "_copy_data.txt";
		$postCommand = $preCommand;
		$postCommand =~ s/copy/del/g;
		
		push @test_rows, "$program, $log, $commdb, $script, $timeout, $release, $preCommand, $postCommand\n";
		$found_script = 1;
	    }
	}
    	close IN;
    }
    close FILES;

    if (!$found_script)
    {
	push @test_rows, "$program, $log, $commdb, $script, $timeout, $release, ,\n";
    }
}


# Some perl magic to remove duplicate lines.
# Input: @list
# Output: @uniqed
my %u = ();

my @uniqed = grep {defined} map {
    if (exists $u{$_}) { undef; } else { $u{$_} = undef; $_; }
} @test_rows;

undef %u;

my $row;

# The tests have been uniqed, so write them out to the new test list.
foreach $row (@uniqed)
{
    print OUT_SCRIPT "$row";
}

close OUT_SCRIPT;

open DABS_TESTS, "real_tests_92.txt" or die "couldn't open file: $!";

# Fix the del files so they remove the log file of the test script.
while (<DABS_TESTS>)
{
    my ( $program, $log, $commdb, $script, $timeout, $release, $preCommand, $postCommand );

    chomp;

    ($program, $log, $commdb, $script, $timeout, $release, $preCommand, $postCommand) = split(/,/);

    next if ($postCommand eq "");

    # Strip any trailing spaces
    $log =~ s!\ $!! if( defined($log));
    $postCommand =~ s!\ $!! if( defined($postCommand));
    
    # Strip any leading spaces
    $log =~ s!^\ !! if( defined($log));
    $postCommand =~ s!^\ !! if( defined($postCommand));
    
    # $postCommand =~ s/\.txt/\.bat/i;

    open DEL, ">>$postCommand" || die "couldn't open $postCommand for append: $!";
    print DEL "del c:\\$log\n";
    close DEL;
}