--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/ximpfw/tsrc/tsrcutils/eunitcommon/eunit_test_mover.pl Thu Dec 17 08:54:49 2009 +0200
@@ -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}";
+ }
+ }
+
+