diff -r 000000000000 -r bde4ae8d615e os/mm/mmtestenv/mmtesttools/Scripts/DABS/DABS_test_data.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/os/mm/mmtestenv/mmtesttools/Scripts/DABS/DABS_test_data.pl	Fri Jun 15 03:10:57 2012 +0200
@@ -0,0 +1,242 @@
+# 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;
+}