1 # Copyright (c) 2003-2009 Nokia Corporation and/or its subsidiary(-ies).

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

     4 # under the terms of the License "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 # \bin\perl

    15 # Test harness

    16 # 

    17 #

    18 

    19 use lib qw(../);

    20 use lib qw(../stages);

    21 

    22 use unit_CConfig;

    23 use unit_CProcessStage;

    24 use unit_CStageRunner;

    25 use unit_stage_CDelta;

    26 

    27 use CTestScore;

    28 

    29 my $score = New CTestScore();

    30 

    31 if (!defined($score))

    32 	{

    33 	exit(1);

    34 	}

    35 

    36 $score = unit_CConfig::RunTest($score);

    37 $score = unit_CProcessStage::RunTest($score);

    38 $score = unit_CStageRunner::RunTest($score);

    39 $score = unit_stage_CDelta::RunTest($score);

    40 

    41 $score->Print();