--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sbsv1_os/e32toolp/test/featurevariantparser/test.pl	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,168 @@
+#
+# Copyright (c) 2007 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:
+#
+
+# Unit tests for Feature Variant Parser (featurevariantparser.pm)
+# Will only work with EPOCROOT = \, due to some hard coded paths in the VAR files
+# To use a custom EPOCROOT, update the VAR files to reflect the correct paths
+# This test script can either be called on its own, or run through the test harness under ../unittest.pl
+
+use strict;
+use Test;
+use lib "../../e32util";
+use lib "../e32util";
+use featurevariantparser;
+use File::Spec;
+use File::Basename;
+
+BEGIN { plan tests => 18 }
+
+# Current Working Directory
+my $dir = dirname($0);
+
+my @buildincludes;
+my $buildincs;
+my $romincs;
+my @romincludes;
+my @parentnodes;
+my $parents;
+my @childnodes;
+my $children;
+
+# Uncommenting the next line will enable verbose mode
+#$featurevariantparser::verbose=1;
+
+# Load first variant file
+my %variant1 = featurevariantparser->GetVariant( "default", "$dir" );
+
+#1
+print "\nCheck the NAME of the variant:\n";
+ok( 'default', $variant1{'NAME'} );
+
+#2
+print "\nCheck the FULL PATH:\n";
+ok( File::Spec->rel2abs("$dir\\default.var"), $variant1{'FULLPATH'} );
+
+#3
+print "\nCheck if variant is VALID:\n";
+ok( $variant1{'VALID'} );
+
+#4
+print "\nCheck if this is a VIRTUAL node:\n";
+ok( $variant1{'VIRTUAL'} );
+
+#5
+my $tmp = "$ENV{EPOCROOT}epoc32\\include\\variant\\Symbian_OS.hrh";
+print "\nTest the VARIANT_HRH:\n";
+ok( File::Spec->canonpath($tmp), $variant1{'VARIANT_HRH'} );
+
+#6
+print "\nTesting the BUILD_INCLUDES with 'append' keyword:\n";
+@buildincludes = ("$ENV{EPOCROOT}epoc32/include/build");
+$buildincs     = $variant1{'BUILD_INCLUDES'};
+ok( File::Spec->canonpath("@buildincludes"), "@$buildincs" );
+
+#7
+print "\nTesting the ROM_INCLUDES:\n";
+@romincludes = ("$ENV{EPOCROOT}epoc32\\include\\rom");
+$romincs     = $variant1{'ROM_INCLUDES'};
+ok( File::Spec->canonpath("@romincludes"), "@$romincs" );
+
+# Load Second Variant File
+my %variant2 = featurevariantparser->GetVariant( "a1", "$dir" );
+
+#8
+print "\nTesting PARENT NODES:\n";
+@parentnodes = ("groupA default");
+$parents     = $variant2{'PARENTS'};
+ok( "@parentnodes", "@$parents" );
+
+#9
+print "\nTesting CHILD NODES:\n";
+@childnodes = ( "b1a", "b1b" );
+$children = $variant2{'CHILDREN'};
+ok( "@childnodes", "@$children" );
+
+#10
+print "\nTesting BUILD_INCLUDES of a child variant with 'prepend' keyword:\n";
+@buildincludes = (
+    "$ENV{EPOCROOT}prepend/include/A1",
+    "$ENV{EPOCROOT}epoc32/include/build",
+    "$ENV{EPOCROOT}epoc32/include/groupA/build",
+    "$ENV{EPOCROOT}epoc32/include/A1/build"
+);
+$buildincs = $variant2{'BUILD_INCLUDES'};
+ok( File::Spec->canonpath("@buildincludes"), "@$buildincs" );
+
+#11
+print "\nTesting ROM_INCLUDES of a child variant:\n";
+@romincludes = (
+    "$ENV{EPOCROOT}epoc32/include/A1/rom",
+    "$ENV{EPOCROOT}epoc32/include/rom",
+    "$ENV{EPOCROOT}epoc32/include/groupA/rom"
+);
+$romincs = $variant2{'ROM_INCLUDES'};
+ok( File::Spec->canonpath("@romincludes"), "@$romincs" );
+
+
+#12
+print "\nTesting Invalid Variant file (Missing HRH location). Expect an error from this test\n";
+# Load third Variant File
+my %variant3 = featurevariantparser->GetVariant( "b2", "$dir" );
+ok( !$variant3{'VALID'} );
+
+#13
+my %info4 = featurevariantparser->GetVariant( "a2", "$dir" );
+print "\nTesting the BUILD_INCLUDES of a child node with 'set' keyword:\n";
+@buildincludes = (
+    "$ENV{EPOCROOT}epoc32/include/A2/build",
+    "$ENV{EPOCROOT}epoc32/include/A2/build2"
+);
+$buildincs = $info4{'BUILD_INCLUDES'};
+ok( File::Spec->canonpath("@buildincludes"), "@$buildincs" );
+
+#14 
+print "\nTesting for function which searches for default variant file in a given directory\n";
+ok(featurevariantparser->DefaultExists("$dir"));
+
+
+#15 
+print "\nTesting for function which searches for default variant file in the default directory\n";
+if ( -e "$ENV{EPOCROOT}epoc32/tools/variant/default.var" ) {
+	ok(featurevariantparser->DefaultExists());
+}
+else {
+	ok(!featurevariantparser->DefaultExists());
+}
+
+
+#16
+print "\nTesting GetBuildableFeatureVariants(). Ignore the generated errors\n";
+my @list =featurevariantparser->GetBuildableFeatureVariants($dir);
+my $validlist = "b1a";
+ok($list[0],$validlist);
+
+
+#17
+print "\nTesting ResolveFeatureVariant().Ignore the generated errors\n";
+my @list2 = featurevariantparser->ResolveFeatureVariant("default",$dir);
+my @validlist2 = ("b1a");
+ok(@list2,@validlist2);
+
+#18
+print "\nTesting GetValidVariant().Ignore the generated errors\n";
+my @list3 = featurevariantparser->GetValidVariants($dir);
+my @validlist3 = ("a1","a2","b1a","default","groupa");
+ok("@list3","@validlist3");