--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/usbmgmt/usbmgrtest/automation/runtests.pl	Tue Feb 02 02:02:59 2010 +0200
@@ -0,0 +1,78 @@
+#!/usr/bin/perl -w
+# Copyright (c) 2004-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:
+#
+
+use File::Path;
+use Cwd;
+
+#read config file
+open TESTS, $ARGV[0] or die "Cannot open $ARGV[0]";
+%config = (testdriver => "", logdir => "", romdir => "");
+CONFIG: while (<TESTS>) {
+	last CONFIG if /\[tests\]/i;
+	next CONFIG if /^\n/;
+	chomp;
+	($var, $value) = split /=/, $_;
+	if (exists $config{$var}) {
+		$config{$var} = $value;
+	}
+}
+#Save location of test list start
+$testspos = tell TESTS;
+
+print "td = ".$config{"testdriver"}."\n";
+print "logdir = ".$config{"logdir"}."\n";
+print "romdir = ".$config{"romdir"}."\n";
+
+#delete old logs
+print "deleting ".$config{"logdir"}."\n";
+rmtree($config{"logdir"});
+
+$cwd = getcwd;
+chdir($config{"testdriver"});
+
+#Build tests
+print "Building tests\n";
+while(<TESTS>) {
+	($suite, $plat, $rel) = split /,/, $_;
+	print "testdriver.exe build -p $plat -b $rel -s $suite\n";
+	system("testdriver.exe build -p $plat -b $rel -s $suite");
+}
+#return to the beggining for later processing
+seek TESTS, $testspos, 0;
+
+#Run tests
+$numtests = 0;
+while(<TESTS>) {
+	($suite, $plat, $rel, $rom) = split /,/, $_;
+
+	#Turn board on
+	system("hardwareswitch off");
+	sleep(5);
+	system("hardwareswitch on");
+	sleep(5);
+
+	#Transfer rom to board
+	system("\\epoc32\\release\\tools\\rel\\trgtest.exe 1 $config{'romdir'}\\$rom");
+	#I know, another hardcoded delay... but how is the script supposed to know when
+	#the board has finished booting?
+	sleep(200);
+	system("testdriver.exe run -p $plat -b $rel -s $suite -t serial2");
+	$numtests++
+}
+
+#Compile the log files
+chdir($cwd);
+system("perl \\build\\processLogs.pl $numtests $ARGV[0]");