diff -r c55016431358 -r 0a7b44b10206 symport/bldtest/test.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/symport/bldtest/test.pl	Thu Jun 25 15:59:54 2009 +0100
@@ -0,0 +1,315 @@
+#!/usr/bin/perl
+
+# Copyright (c) 2008-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 "Symbian Foundation License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.symbianfoundation.org/legal/sfl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+#
+
+use strict;
+use warnings;
+use Test;
+use Getopt::Long qw(:config auto_version auto_help);
+use File::Spec::Functions;
+use File::Basename;
+use Cwd;
+
+# The following are the tests to run
+BEGIN { plan tests => 96 }
+
+# Make sure we're in the correct folder
+chdir('../bldtest') or die "Failed to set folder: $!";
+
+# Version of the script - just use the date
+$main::VERSION = '09-Oct-08';
+
+# Get command line arguments
+print "\n";
+my ( $verbose, $ignore );
+GetOptions("verbose" => \$verbose, "ignore" => \$ignore) or pod2usage(2);
+
+my $win32 = 1 if $^O =~ /MSWin32/;
+print "Running on Win32\n" if $win32 && $verbose;
+print "Running on Linux\n" if !$win32 && $verbose;
+
+# Test new build system
+my $flm = catfile($ENV{SBS_HOME}, 'lib', 'flm', 'x86tool.xml');
+my $tem = catfile($ENV{EPOCROOT}, 'epoc32', 'tools', 'makefile_templates', 'tools', 'x86tool.mk');
+
+warn "FLM $flm doesn't exist?" if !-e $flm;
+print "Testing SBSv2 with FLM\n";
+rename $tem, "$tem.disabled";
+$ENV{SBS_VERSION} = 2 if $win32;
+doCheck('deb');
+doCheck('rel');
+rename "$tem.disabled", $tem;
+
+# Disable the FLM if it exists and run test with the TEM
+print "Testing SBSv2 with TEM\n";
+rename $flm, "$flm.disabled";
+doCheck('deb');
+doCheck('rel');
+rename "$flm.disabled", $flm;
+
+# Test old build system
+print "Testing SBSv1 with TEM\n";
+if ($win32)
+	{
+	$ENV{SBS_VERSION} = 1;
+	doCheck('deb');
+	doCheck('rel');
+	}
+else
+	{
+	# No such thing on Linux - just keep Test happy
+	for(my $i = 1; $i <= 32; $i++)
+		{
+		ok(1);
+		}
+	}
+
+# ***
+# Check everything works
+#
+sub doCheck
+	{
+	my $variant = shift;
+
+	# Have to set library path for Linux
+	if (!$win32)
+		{
+		$ENV{LD_LIBRARY_PATH} =~ s[/epoc32[^:]+:/][];
+		$ENV{LD_LIBRARY_PATH} = "$ENV{EPOCROOT}epoc32/release/tools2/linux-i386/$variant:$ENV{LD_LIBRARY_PATH}";
+		}
+
+	# Build the code
+	my $sbs_ver = doBuild($variant);
+
+	# File extensions differ on Windows and Linux
+	my ( $ext_exe, $ext_dll ) = $win32 ? ( '.exe', '.dll' ) : ( '', '.so' );
+
+	# Generate string for the location of built file in epoc tree
+	my $release = catfile($ENV{EPOCROOT}, 'epoc32', 'release', 'tools2');
+	$release = catfile($release, 'linux-i386') if !$win32;
+	$release = catfile($release, '%s', '%s%s');
+
+	# The simple test should pass
+	doTest(sprintf($release, $variant, 'testexe', $ext_exe));
+	doTest(sprintf($release, $variant, 'testexe_main.test', ''));
+
+	# Check that the exe and lib have been built
+	checkExist(sprintf($release, $variant, 'testexe', $ext_exe));
+	checkExist(sprintf($release, $variant, 'testexe_main.test', ''));
+	checkExist(sprintf($release, $variant, 'libteststatic', '.a'));
+	checkExist(sprintf($release, $variant, 'libtestdll', $ext_dll));
+
+	# Check all the files exist
+	if ($sbs_ver == 1)
+		{
+		my $build = catfile($ENV{EPOCROOT}, 'epoc32', 'build', cwd(), 'wrappermakefiles', '%s', cwd(), '%s');
+		$build =~ s/\w:\\//g;
+
+		# Check the object files exist
+		checkExist(sprintf($build, $variant, 'testexe.cpp.o'));
+		checkExist(sprintf($build, $variant, 'teststatic.cpp.o'));
+		checkExist(sprintf($build, $variant, 'testdll.cpp.o'));
+
+		# Clean should delete everything
+		doClean($sbs_ver, $variant);
+	
+		# Object files should be gone now
+		checkMissing(sprintf($build, $variant, 'testexe.cpp.o'));
+		checkMissing(sprintf($build, $variant, 'teststatic.cpp.o'));
+		checkMissing(sprintf($build, $variant, 'testdll.cpp.o'));
+		}
+	else
+		{
+		my $build;
+
+		# Build location differs between the TEM and FLM
+		my $flm = catfile($ENV{SBS_HOME}, 'lib', 'flm', 'x86tool.xml');
+		if (-e $flm)
+			{
+			my $cwd = cwd();
+			$cwd =~ s/$ENV{HOME}// if $ENV{HOME};
+			$build = catfile($ENV{EPOCROOT}, 'epoc32', 'build', 'x86tools', '%s', '%s', $cwd, '%s');
+			$build =~ s/\w:\\//g;
+
+			# Check the object files exist
+			checkExist(sprintf($build, $variant, 'testexe', 'testexe.cpp.o'));
+			checkExist(sprintf($build, $variant, 'teststatic', 'teststatic.cpp.o'));
+			checkExist(sprintf($build, $variant, 'testdll', 'testdll.cpp.o'));
+	
+			# Clean should delete everything
+			doClean($sbs_ver, $variant);
+	
+			# Object files should be gone now
+			checkMissing(sprintf($build, $variant, 'testexe', 'testexe.cpp.o'));
+			checkMissing(sprintf($build, $variant, 'teststatic', 'teststatic.cpp.o'));
+			checkMissing(sprintf($build, $variant, 'testdll', 'testdll.cpp.o'));
+			}
+		else
+			{
+			$build = catfile($ENV{EPOCROOT}, 'epoc32', 'build', '%s', cwd(), '%s');
+			$build =~ s/\w:\\//g;
+
+			# Check the object files exist
+			checkExist(sprintf($build, $variant, 'testexe.cpp.o'));
+			checkExist(sprintf($build, $variant, 'teststatic.cpp.o'));
+			checkExist(sprintf($build, $variant, 'testdll.cpp.o'));
+	
+			# Clean should delete everything
+			doClean($sbs_ver, $variant);
+	
+			# Object files should be gone now
+			checkMissing(sprintf($build, $variant, 'testexe.cpp.o'));
+			checkMissing(sprintf($build, $variant, 'teststatic.cpp.o'));
+			checkMissing(sprintf($build, $variant, 'testdll.cpp.o'));
+			}
+		}
+
+	# Releaseables should be gone
+	checkMissing(sprintf($release, $variant, 'testexe', $ext_exe));
+	checkMissing(sprintf($release, $variant, 'testexe_main.test', ''));
+	checkMissing(sprintf($release, $variant, 'libteststatic', '.a'));
+	checkMissing(sprintf($release, $variant, 'libtestdll', $ext_dll));
+	}
+
+sub checkExist
+	{
+	my $file = shift;
+	print "Checking file exists: $file\n" if $verbose;
+	ok(-e $file);
+	}
+
+sub checkMissing
+	{
+	my $file = shift;
+	print "Checking file missing: $file\n" if $verbose;
+	ok(!-e $file);
+	}
+
+# ***
+# Runs test code
+#
+sub doTest
+	{
+	my $test = shift;
+	warn "Can't find test exe: $test" if (!-e $test);
+
+	my $pass;
+	if (-e $test)
+		{
+		print "Running test: $test\n" if $verbose;
+		open TEST, "$test|" or die "Failed to start test $test: $!";
+		while(<TEST>)
+			{
+			$pass = 1 if /^RTEST: SUCCESS/ or /TEST Successfully Completed/;
+			}
+		close TEST;
+		}
+	ok($pass);	
+	}
+
+# ***
+# Cleans the test code
+# *
+sub doClean
+	{
+	my $sbs_ver = shift;
+	my $variant = shift;
+
+	my $redir = $verbose?'':' >nul 2>&1';
+	print "Cleaning component for $variant\n" if $verbose;
+	if ($sbs_ver == 1)
+		{
+		# Use the old build system
+		system("bldmake bldfiles$redir");
+		system("abld test makefile tools2$redir");
+		system("abld test clean tools2 $variant$redir");
+		}
+	else
+		{
+		# Use the new build system
+		system("sbs -c tools2_$variant.test CLEAN$redir");
+		}
+	}
+
+# ***
+# Builds the test code
+# *
+sub doBuild
+	{
+	my $variant = shift;
+
+	# First of all see if SBSv2 is installed
+	my $sbs_ver = 1;
+	open SBS, 'sbs -v 2>&1|' or die "Failed to execute command: $!";
+	while(<SBS>)
+		{
+		if (/^sbs version/)
+			{
+			$sbs_ver = 2;
+			last;
+			}
+		}
+	close SBS;
+	die "This test requires SBSv2. Run with -ignore to run this test anyway" if $sbs_ver == 1 && !$ignore;
+
+	# Override the result using environment variable
+	$sbs_ver = 1 if $ENV{SBS_VERSION} && $ENV{SBS_VERSION} == 1;
+
+	# Now build the test code - assumes current working directory is correct!
+	my $redir = $verbose?'':' >nul 2>&1';
+	print "Building test code using SBSv$sbs_ver for $variant\n" if $verbose;
+	if ($sbs_ver == 1)
+		{
+		print "Building using sbsv1\n" if $verbose;
+
+		# Use the old build system
+		system("bldmake bldfiles$redir");
+		system("abld test makefile tools2$redir");
+		system("abld test clean tools2$redir");
+		system("abld test library tools2$redir");
+		system("abld test target tools2 $variant$redir");
+		}
+	else
+		{
+		print "Building using sbsv2\n" if $verbose;
+
+		# TEM can't handle parallel builds due to dependencies between extension makefiles
+		my $flm = catfile($ENV{SBS_HOME}, 'lib', 'flm', 'x86tool.xml');
+		my $jopt = (!-e $flm) ? '-j 1' : '';
+
+		# Use the new build system
+		system("sbs $jopt -c tools2_$variant.test CLEAN$redir");
+		system("sbs $jopt -c tools2_$variant.test$redir");
+		}
+
+	# Return the sbs version for later
+	return $sbs_ver;
+	}
+
+=head1 NAME
+
+test.pl - A script for running tests
+
+=head1 SYNOPSIS
+
+test.pl [-help] [-version] [-verbose] [-ignore]
+
+ Options:
+   -help      brief help message
+   -version   version of the script
+   -verbose   print what the scripts does
+   -ignore    ignore lack of SBSv2 and run tests anyway
+=cut