imgtools_os/romkiteka2/test/test.buildrom.pl
author Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
Fri, 12 Mar 2010 15:49:27 +0200
branchRCL_3
changeset 2 99082257a271
parent 1 d4b442d23379
permissions -rw-r--r--
Revision: 201008 Kit: 201008

# Copyright (c) 2007-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:
#

my $fails = 0;
my $total = 0;

# Each test has an input OBY file and an output OBY file.
# runTest assumes there is also a <input>.oby.out file which
# contains the expected OBY output.

# Adding a "." to the feature variant name (for example using
# the option "-DFEATUREVARIANT=.phone") means that buildrom will
# look for the variant file in ./phone.var rather than in the 
# default location of EPOCROOT/epoc32/tools/variant/phone.var

# test the minimal OBY file

$fails += runTest("-s", "minimal.oby", "result.oby");
$total++;

# test the include path from a feature-variant OBY file

$fails += runTest("-s -DFEATUREVARIANT=.phone", "var1.oby", "result.oby");
$total++;

# test the file substitutions in a feature-variant OBY file

$fails += runTest("-s -DFEATUREVARIANT=.phone", "var2.oby", "result.oby");
$total++;

# test an OBY file that is on the include path from a feature-variant

$fails += runTest("-s -DFEATUREVARIANT=.phone", "varB", "result.oby");
$total++;

# test that absolute paths work everywhere

createDummyInclude($ENV{'EPOCROOT'} . "epoc32/include/test/abs.hrh");
createDummyInclude($ENV{'EPOCROOT'} . "epoc32/include/test/incA/absA.iby");
createDummyInclude($ENV{'EPOCROOT'} . "epoc32/include/test/incB/absB.iby");

$fails += runTest("-s -DFEATUREVARIANT=.abs", "var3.oby", "result.oby");
$total++;

###########################################################################
# report the results and finish

print "\n\n$fails test";
print "s" unless ($fails == 1);
print " failed (out of $total run).\n";
exit 0;

###########################################################################

sub runTest
{
	my $options = shift;
	my $inFile  = shift;
	my $outFile = shift;
	my $expFile = "$inFile.out";

	my $command = "buildrom -fm=..\\include\\featureUIDs.xml $options $inFile";

	# remove the output if it already exists
	unlink($outFile);

	# run the command (it will error because we do not have everything
	# required by rombuild, but we will get an output oby file which
	# shows whether buildrom did the right thing or not).
	system($command . " >nul 2>&1");

	if (!open(OUTPUT, $outFile))
	{
		print STDERR "FAILED: $command\n\t$outFile was not created\n";
		return 1;
	}

	if (!open(EXPECT, $expFile))
	{
		print STDERR "FAILED: $command\n\t$expFile was not found\n";
		close(OUTPUT);
		return 1;
	}

	my $outLine;
	my $expLine;
	my $lineNumber = 1;
	my $outMissing = 0;
	my $expMissing = 0;
	my $nonMatches = 0;

	while ($expLine = <EXPECT>)
	{
		$expLine =~ s/^\s+//;
		$expLine =~ s/\s+$//;

		if ($outLine = <OUTPUT>)
		{
			$outLine =~ s/^\s+//;
			$outLine =~ s/\s+$//;

			if (!($expLine eq $outLine))
			{
				print STDERR "FAILED: $command\n";
				print STDERR "\texpected output line $lineNumber was:\n";
				print STDERR "\t$expLine\n";
				print STDERR "\tactual output line $lineNumber was:\n";
				print STDERR "\t$outLine\n";
				$nonMatches++;
			}
		}
		else
		{
			$outMissing++;
		}
		$lineNumber++;
	}
	while ($outLine = <OUTPUT>)
	{
		$expMissing++;
	}

	close(EXPECT);
	close(OUTPUT);

	if ($nonMatches)
	{
		print STDERR "FAILED: $command\n";
		print STDERR "\t$nonMatches lines did not match\n";
		return 1;
	}
	if ($outMissing)
	{
		print STDERR "FAILED: $command\n";
		print STDERR "\toutput file $outFile is $outMissing lines too short\n";
		return 1;
	}
	if ($expMissing)
	{
		print STDERR "FAILED: $command\n";
		print STDERR "\toutput file $outFile is $expMissing lines too long\n";
		return 1;
	}

	print STDERR "OK: $command\n";
	return 0;	# OK
}

use File::Basename;

sub createDummyInclude
{
	my $file = shift;
	my $dir = dirname($file);

	mkdir($dir) if (!-d $dir);

	if (open(FILE, ">$file"))
	{
		print FILE "/* test file */\n";
		close(FILE);
	}
	else
	{
		print STDERR "could not write file $file\n";
	}
}