1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/mm/mmapitest/devsoundhaitest/group/testdriversetup.pl	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,82 @@
     1.4 +#
     1.5 +# Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).
     1.6 +# All rights reserved.
     1.7 +# This component and the accompanying materials are made available
     1.8 +# under the terms of "Eclipse Public License v1.0"
     1.9 +# which accompanies this distribution, and is available
    1.10 +# at the URL "http://www.eclipse.org/legal/epl-v10.html".
    1.11 +#
    1.12 +# Initial Contributors:
    1.13 +# Nokia Corporation - initial contribution.
    1.14 +#
    1.15 +# Contributors:
    1.16 +#
    1.17 +# Description: 
    1.18 +#
    1.19 +#
    1.20 +
    1.21 +use Getopt::Long;
    1.22 +use Cwd;
    1.23 +
    1.24 +
    1.25 +sub Usage()
    1.26 +	{
    1.27 +	print <<USAGE_EOF;
    1.28 +Usage
    1.29 +perl testdriversetup.pl --statlite=StatLite
    1.30 +
    1.31 +    StatLite = [true | false ]
    1.32 +
    1.33 +    --help                      : This help
    1.34 +USAGE_EOF
    1.35 +	exit( 0 )
    1.36 +	}
    1.37 +
    1.38 +sub main()
    1.39 +	{
    1.40 +	my	$help='';
    1.41 +	my	$statLite="";
    1.42 +
    1.43 +	GetOptions(
    1.44 +		'statlite=s'=> \$statLite,
    1.45 +		'help' 		=> \$help
    1.46 +	);
    1.47 +
    1.48 +	if($help or (($statLite ne "true") and ($statLite ne "false")) )
    1.49 +		{
    1.50 +		Usage();
    1.51 +		exit(0);
    1.52 +		}
    1.53 +
    1.54 +	my $theEpocRoot=$ENV{EPOCROOT};
    1.55 +	my $epoc32Location="$theEpocRoot.\\epoc32";
    1.56 +
    1.57 +	my $currentDirectory=cwd;
    1.58 +	$currentDirectory =~ s/Group//i;
    1.59 +	$currentDirectory =~ s/\//\\/g;
    1.60 +
    1.61 +	my $currentDrive = substr($currentDirectory,0,2);
    1.62 +
    1.63 +	my	$cmd="TestDriver config";
    1.64 +	my	$suite="file:/$currentDrive$epoc32Location\\testdriver\\salt\\devsoundhai.driver";
    1.65 +	$suite =~ s.\\./.g;
    1.66 +	$suite =~ s\/./\/\g;
    1.67 +
    1.68 +	$cmd .= " --bldclean OFF";
    1.69 +	$cmd .= " --bldmake OFF";
    1.70 +	$cmd .= " -e $currentDrive$theEpocRoot";
    1.71 +	$cmd .= " -x $currentDrive$epoc32Location\\testdriver\\salt";
    1.72 +	$cmd .= " --repos $currentDrive$epoc32Location\\testdriver\\Repository";
    1.73 +	$cmd .= " -c $currentDrive$epoc32Location\\testdriver\\Results";
    1.74 +	$cmd .= " -i $currentDirectory";
    1.75 +	$cmd .= " -s $suite";
    1.76 +	$cmd .= " --source $currentDirectory";
    1.77 +	$cmd .= " --tp $currentDirectory";
    1.78 +	$cmd .= " --testexec ON";
    1.79 +	$cmd .= " --statlite $statLite";
    1.80 +	$cmd .= " --teflite true";
    1.81 +	$cmd .= " --commdb overwrite";
    1.82 +	system("$cmd");
    1.83 +	}
    1.84 +
    1.85 +main();