diff -r 000000000000 -r 61fad867f68e ximpfw/tsrc/tsrcutils/eunitcommon/eunit_test_mover.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ximpfw/tsrc/tsrcutils/eunitcommon/eunit_test_mover.pl	Wed Nov 03 09:32:20 2010 +0530
@@ -0,0 +1,80 @@
+#
+# Copyright (c) 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: XIMP Framework Test Code 
+#
+#!perl
+#
+use strict;
+use File::Path;
+
+$|=1; # ensures that any progress information sent to the screen is displayed immediately and not buffered
+
+# When this script is used with build tools, move is done only for WINSCW platform 
+if ( exists($ENV{'PLATFORM'})  && 
+     ($ENV{'PLATFORM'} ne 'WINSCW' ) )
+	{
+	print "\nEUnit Test DLL Mover: nothing to do for platform.\n";
+	exit 0;
+	}
+
+
+# destination folder where EUnit test dlls are placed
+my $destFolder = "\\epoc32\\release\\winscw\\udeb\\z\\sys\\bin";
+
+# ABLD command 
+# If this script is used with build chain, then "TO_BLDINF" env. variable points to the ABLD folder 
+# else use ABLD from current folder
+my $abldCommand = ""; 
+if (exists($ENV{'TO_BLDINF'}))
+	{
+	$abldCommand = $ENV{'TO_BLDINF'} . "\\abld build winscw udeb -what";	
+	}
+else
+	{
+	$abldCommand = "abld build winscw udeb -what";
+	}
+
+# get option
+my $option = $ARGV[0];
+
+# get all the files produced by the ABLD
+my @allProducedFiles = `$abldCommand`;
+
+# we're interested only from dlls
+my @dllList = grep{ $_=~m#^.+\.dll$#i }@allProducedFiles;
+
+print "\n";
+foreach my $dll (@dllList)
+	{
+	chomp($dll);
+
+    # skip those which are not mt_, ut_, t_, dec_
+    my @paths = split(/\\/, $dll);
+    next unless (grep { $paths[-1] =~ m#^$_.+$#i; } (qw(mt_ ut_ t_ dec_)));
+
+	if( $option eq "-wipe" )
+		{
+		my($dllPath, $dllName) = $dll =~ m/(.*\\)(.*)$/;
+		$dll = $destFolder . "\\" . $dllName;
+		print "EUnit Test DLL Mover: CLEANING $dll\n";
+		rmtree $dll;
+		}
+	else
+		{
+		print "EUnit Test DLL Mover: COPYING $dll to $destFolder\n";
+		system "copy $dll ${destFolder}";
+		}
+	}
+	
+