#+
−
# Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).+
−
# All rights reserved.+
−
# This component and the accompanying materials are made available+
−
# under the terms of the License "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 strict;+
−
use warnings;+
−
use Cwd;		# for cwd+
−
use FindBin;		# for FindBin::Bin+
−
use File::Copy;		# for copy()+
−
+
−
my $curdrive="x";	    	# will be initialised when first needed+
−
my $PerlBinPath;	# fully qualified pathname of the directory containing this script+
−
+
−
# establish the path to the Perl binaries+
−
BEGIN {+
−
	require 5.005_03;		# check user has a version of perl that will cope+
−
	$PerlBinPath = $FindBin::Bin;	# X:/epoc32/tools+
−
	$PerlBinPath =~ s/\//\\/g;	# X:\epoc32\tools+
−
}+
−
use lib $PerlBinPath;+
−
+
−
print "$PerlBinPath\n";+
−
+
−
open EPOCRC_INPUT, "epocrc_input.txt";+
−
if(!(-d "test-data"))+
−
{+
−
	mkdir("test-data") || die "Cannot mkdir test-data: $!";+
−
}+
−
my $file_line;+
−
my $state = 0;+
−
my $line_number = 0;+
−
my $rss_number="";+
−
my $expected_stdout_file = "";+
−
my $expected_stderr_file = "";+
−
my $rls_file;+
−
my $rss_file;+
−
my @extra_args;+
−
+
−
while($file_line = <EPOCRC_INPUT>)+
−
{+
−
	$line_number++;+
−
	if($state == 0)+
−
	{+
−
		if($file_line=~/^\s*\+\+\+\+\s*$/)+
−
		{ $state = 1;	next; +
−
		}+
−
		elsif($file_line=~/^\s*$/)+
−
		{ next; # do nothing as blank line+
−
		}+
−
		else +
−
		{ 	print "Error on line number $line_number.\n";+
−
			exit(1); +
−
		}+
−
	}+
−
	if($state == 1)+
−
	{+
−
		if($file_line=~/^\s*\*{4}Number:\s*(\d+)\s*$/)+
−
		{ $state = 2;	+
−
			$rss_number = "$1";+
−
			if(!(-d  "$PerlBinPath\\test-data\\$rss_number"))+
−
			{+
−
				mkdir "$PerlBinPath\\test-data\\$rss_number";+
−
			}+
−
			next; +
−
		}+
−
		elsif($file_line=~/^\s*$/)+
−
		{ next; # do nothing as blank line+
−
		}+
−
		else +
−
		{ 	print "Error on line number $line_number.\n";+
−
			exit(1);+
−
		}+
−
	}+
−
	if($state == 2)+
−
	{+
−
		if($file_line=~/^\s*\*{4}Extra args:(.*)$/)+
−
		{	+
−
			$state = 3;+
−
			if($1 ne "")+
−
			{+
−
				push @extra_args, $1;+
−
			}+
−
			else+
−
			{+
−
				push @extra_args, "";+
−
			}+
−
			next;+
−
		}+
−
	}+
−
	if($state == 3)+
−
	{+
−
		if($file_line=~/^\s*\*{4}Expected stdout:\s*$/)+
−
		{ +
−
			$state = 4;+
−
			close RLS_FILE;+
−
			$expected_stdout_file = "$PerlBinPath\\test-data\\$rss_number\\expected.stdout";+
−
			open STDOUT_FILE, ">$expected_stdout_file";+
−
			next; +
−
		}+
−
		elsif($file_line=~/^\s*$/)+
−
		{ +
−
			next; # do nothing as blank line+
−
		}+
−
		else +
−
		{ 	+
−
			print "Error on line number $line_number.\n";+
−
			exit(1);+
−
		}+
−
	}+
−
	if($state == 4)+
−
	{+
−
		if($file_line=~/^\s*\*{4}Expected stderr:\s*$/)+
−
		{ $state = 5;	+
−
			close STDOUT_FILE;+
−
			$expected_stderr_file = "$PerlBinPath\\test-data\\$rss_number\\expected.stderr";+
−
			open STDERR_FILE, ">$expected_stderr_file";+
−
			next; +
−
		}+
−
		else +
−
		{ print STDOUT_FILE $file_line;+
−
		}+
−
	}+
−
	if($state == 5)+
−
	{+
−
		if($file_line=~/^\s*\*{4}rss data:\s*$/)+
−
		{ $state = 6;	+
−
			close STDERR_FILE;+
−
			$rss_file = "$PerlBinPath\\test-data\\$rss_number\\test$rss_number\.rss";+
−
			open RSS_FILE, ">$rss_file";+
−
			next; +
−
		}+
−
		else +
−
		{ print STDERR_FILE $file_line;+
−
		}+
−
	}+
−
	if($state == 6)+
−
	{+
−
		if($file_line=~/^\s*\*{4}rls data:\s*$/)+
−
		{ $state = 7;	+
−
			close RSS_FILE;+
−
			$rls_file = "$PerlBinPath\\test-data\\$rss_number\\test$rss_number\.rls";+
−
			open RLS_FILE, ">$rls_file";+
−
			next; +
−
		}+
−
		else +
−
		{ print RSS_FILE $file_line;+
−
		}+
−
	}	+
−
	if($state == 7)+
−
	{+
−
		if($file_line=~/^\s*----\s*$/)+
−
		{ $state = 0;	+
−
			close RLS_FILE;+
−
			next; +
−
		}+
−
		else +
−
		{ print RLS_FILE $file_line;+
−
		}+
−
	}+
−
}+
−
close RLS_FILE;+
−
+
−
+
−
+
−
if($state)+
−
{ +
−
	print "Error: end of file reached while still processing.\n";+
−
	exit(1);+
−
}+
−
+
−
my $test_directory = "$PerlBinPath\\test-data\\";+
−
my $rsc_directory = "$PerlBinPath\\rsc-files\\";+
−
+
−
print $test_directory . "\n";+
−
my $epocrc = "";+
−
opendir DH, $test_directory or die "Couldn't open the test directory: $!";+
−
my $folder;+
−
while ($folder = readdir(DH))+
−
{+
−
	if($folder ne "\." && $folder ne "\.\.")+
−
	{+
−
		print "\n---$folder---\n";+
−
		my $this_test_dir = "$test_directory$folder\\";+
−
		my $test_name = $this_test_dir. "test$folder.rss";+
−
		my $rcomp = "rcomp";+
−
+
−
		if(!(-e $test_name))+
−
		{+
−
			print "Skipping $test_name, cannot find file.\n";+
−
		}+
−
		else+
−
		{+
−
			my $file_line;	+
−
			open EPOCRC_TEST, ">epocrc.test";+
−
			print EPOCRC_TEST "RCOMP: $rcomp\n";+
−
			print EPOCRC_TEST "TEST-NUMBER: $folder\n";+
−
			print EPOCRC_TEST "TEST-DIR: $this_test_dir\n";+
−
			close EPOCRC_TEST;+
−
			$epocrc = "epocrc $test_name -o$this_test_dir" . "test$folder\.rsc -h$this_test_dir" . "test$folder\.rsg -t$this_test_dir -v -u -la -epocrc-test $extra_args[$folder-1]";+
−
			print "$epocrc\n";+
−
			system($epocrc);+
−
		}+
−
	}+
−
}+
−
+
−
	+
−
# this stage will compare the stderr files of each test to check the output is as expected.+
−
# empty lines are ignored but the order in which the errors occur are kept to as these should be the same+
−
# in both files.+
−
opendir DH, $test_directory or die "Couldn't open the test directory: $!";+
−
print "\n\nComparing stderr files\n\n";+
−
while ($folder = readdir(DH))+
−
{+
−
	if($folder ne "\." && $folder ne "\.\.")+
−
	{+
−
		print "\n---$folder---\n";+
−
		my $this_test_dir = "$test_directory$folder\\";+
−
		if(!(-e $this_test_dir . "expected.stderr"))+
−
		{+
−
			print "Could not find " . $this_test_dir . "expected.stderr\n";+
−
			next;+
−
		}+
−
		if(!(-e $this_test_dir . "rcomp.stderr"))+
−
		{+
−
			print "Could not find " . $this_test_dir . "rcomp.stderr\n";+
−
			next;+
−
		}	+
−
+
−
		# read in the lines from the expected output ignoring whitespace only lines+
−
		my @expected_values;+
−
		my $file_line;+
−
		open EXPECTED, $this_test_dir . "expected.stderr";+
−
		while($file_line = <EXPECTED>)+
−
		{+
−
			if($file_line!~/^\s*$/)+
−
			{+
−
				push @expected_values, $file_line;+
−
			}+
−
		}+
−
		close EXPECTED;+
−
+
−
		# read in the lines from the actual output ignoring whitespace only lines+
−
		my @actual_values;+
−
		open ACTUAL, $this_test_dir . "rcomp.stderr";+
−
		while($file_line = <ACTUAL>)+
−
		{+
−
			if($file_line!~/^\s*$/)+
−
			{+
−
				push @actual_values, $file_line;+
−
			}+
−
		}+
−
		close ACTUAL;+
−
+
−
		if((scalar @expected_values) != (scalar @actual_values))+
−
		{+
−
			print "In " . $this_test_dir . ", actual and expected stderr have different sizes\n";+
−
			next;+
−
		}+
−
		my $expected_file;+
−
		my $expected_line_number;+
−
		my $expected_type;+
−
		my $expected_warning_number;+
−
		my $expected_non_loc_warning;+
−
		my $actual_file;+
−
		my $actual_line_number;+
−
		my $actual_type;+
−
		my $actual_warning_number;+
−
		my $actual_non_loc_warning;+
−
+
−
		for( my $i = 0 ; $i < scalar @expected_values ; $i++)+
−
		{+
−
			$expected_file = "";+
−
			$expected_line_number = "";+
−
			$expected_type = "";+
−
			$expected_warning_number = "";+
−
			$expected_non_loc_warning = "";+
−
			$actual_file = "";+
−
			$actual_line_number = "";+
−
			$actual_type = "";+
−
			$actual_warning_number = "";+
−
			$actual_non_loc_warning = "";+
−
+
−
			if($expected_values[$i]=~/^\s*\S+(test-data\S+)\((\d+)\)\s*\:\s*(Warning:)\s*\((\d+)\).*$/)+
−
			{+
−
				$expected_file = $1;+
−
				$expected_line_number = $2;+
−
				$expected_type = $3;+
−
				$expected_warning_number = $4;+
−
			}+
−
			else+
−
			{+
−
				$expected_non_loc_warning = $expected_values[$i];+
−
			}+
−
			if($actual_values[$i]=~/^\s*\S+(test-data\S+)\((\d+)\)\s*\:\s*(Warning:)\s*\((\d+)\).*$/)+
−
			{+
−
				$actual_file = $1;+
−
				$actual_line_number = $2;+
−
				$actual_type = $3;+
−
				$actual_warning_number = $4;+
−
			}+
−
			else+
−
			{+
−
				$actual_non_loc_warning = $actual_values[$i];+
−
			}+
−
+
−
			if($actual_non_loc_warning ne "")+
−
			{+
−
				if(	$actual_non_loc_warning != $expected_non_loc_warning )+
−
				{+
−
					print "In " . $this_test_dir . ", $actual_non_loc_warning doesn't match $expected_non_loc_warning\n"; +
−
					+
−
				}+
−
			}+
−
			else+
−
			{+
−
				if( $actual_file ne $expected_file)+
−
				{+
−
					print "In " . $this_test_dir . ", $expected_values[$i] doens't have a matching file name.\n"; +
−
					print "Actual: $actual_file, Expected: $expected_file\n";+
−
				}+
−
				elsif( $actual_line_number != $expected_line_number )+
−
				{+
−
					print "In " . $this_test_dir . ", $expected_values[$i] doens't have a matching line number.\n"; +
−
				}+
−
				elsif( $actual_type ne $expected_type )+
−
				{+
−
					print "In " . $this_test_dir . ", $expected_values[$i] doens't have a matching warning type.\n"; +
−
				}+
−
				elsif( $actual_warning_number ne $expected_warning_number )+
−
				{+
−
					print "In " . $this_test_dir . ", $expected_values[$i] doens't have a matching warning number.\n"; +
−
				}+
−
			}+
−
		}+
−
	}+
−
}+
−
+
−
close DH;+
−
+
−
# this stage will compare the stdout files of each test to check the output is as expected.+
−
# empty lines are ignored but the order in which the output occur are kept to as these should be the same+
−
# in both files.+
−
opendir DH, $test_directory or die "Couldn't open the test directory: $!";+
−
+
−
print "\n\nComparing stdout files\n\n";+
−
while ($folder = readdir(DH))+
−
{+
−
	if($folder ne "\." && $folder ne "\.\.")+
−
	{+
−
		print "\n---$folder---\n";+
−
		my $this_test_dir = "$test_directory$folder\\";+
−
		if(!(-e $this_test_dir . "expected.stdout"))+
−
		{+
−
			print "Could not find " . $this_test_dir . "expected.stdout\n";+
−
			next;+
−
		}+
−
		if(!(-e $this_test_dir . "rcomp.stdout"))+
−
		{+
−
			print "Could not find " . $this_test_dir . "rcomp.stdout\n";+
−
			next;+
−
		}	+
−
+
−
		# read in the lines from the expected output ignoring whitespace only lines+
−
		my @expected_values;+
−
		my $file_line;+
−
		open EXPECTED, $this_test_dir . "expected.stdout";+
−
		while($file_line = <EXPECTED>)+
−
		{+
−
			if($file_line=~/^uidcrc\.exe (0x\S{8}) (0x\S{8}) (0x\S{8}) .*test-data(.*)$/)+
−
			{+
−
				push @expected_values, "$1,$2,$3,$4";+
−
			}+
−
			elsif($file_line!~/^\s*$/)+
−
			{+
−
				push @expected_values, $file_line;+
−
			}+
−
		}+
−
		close EXPECTED;+
−
+
−
		# read in the lines from the actual output ignoring whitespace only lines+
−
		my @actual_values;+
−
		open ACTUAL, $this_test_dir . "rcomp.stdout";+
−
		while($file_line = <ACTUAL>)+
−
		{+
−
			if($file_line=~/^uidcrc\.exe (0x\S{8}) (0x\S{8}) (0x\S{8}) .*test-data(.*)$/)+
−
			{+
−
				push @actual_values, "$1,$2,$3,$4";+
−
			}+
−
			elsif($file_line!~/^\s*$/)+
−
			{+
−
				push @actual_values, $file_line;+
−
			}+
−
		}+
−
		close ACTUAL;+
−
+
−
		if((scalar @expected_values) != (scalar @actual_values))+
−
		{+
−
			print "In " . $this_test_dir . ", actual and expected stdout have different sizes\n";+
−
			next;+
−
		}+
−
+
−
		for( my $i = 0 ; $i < scalar @expected_values ; $i++)+
−
		{+
−
			if($expected_values[$i] ne $actual_values[$i])+
−
			{+
−
				print "stdout files differ\n";+
−
				next;+
−
			}+
−
		}+
−
	}+
−
}+
−
+
−
close DH;+
−
+
−
# this stage will compare the compiled files of each test to check the output is as expected.+
−
opendir DH, $test_directory or die "Couldn't open the test directory: $!";+
−
+
−
print "\n\nComparing compiled files\n\n";+
−
while ($folder = readdir(DH))+
−
{+
−
	if($folder ne "\." && $folder ne "\.\.")+
−
	{+
−
		print "\n---$folder---\n";+
−
		my $controlFile = $rsc_directory . "test$folder\.rsc";+
−
		my $producedFile = $test_directory . $folder . "\\test$folder\.rsc";+
−
		my $testOutput = `diff $controlFile $producedFile --binary -s`;+
−
		my $differOutput = "Binary files $controlFile and $producedFile differ\n";+
−
		my $identicalOutput = "Files $controlFile and $producedFile are identical\n";+
−
		if($testOutput eq $identicalOutput)+
−
		{+
−
			# do nothing, blank output implies success+
−
		}+
−
		elsif($testOutput eq $differOutput)+
−
		{+
−
			print "$testOutput";+
−
		}+
−
		else+
−
		{+
−
			print "Unrecognised output: $testOutput";+
−
		}+
−
	}+
−
}+
−
+
−
close DH;+
−
+
−
unlink "epocrc.test";+
−