releasing/makecbr/test/runtests.pl
author lorewang
Wed, 01 Dec 2010 16:05:36 +0800
changeset 715 e0739b8406dd
parent 602 3145852acc89
permissions -rw-r--r--
Specify extenal tool with path
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
602
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
     1
# Copyright (c) 2003-2009 Nokia Corporation and/or its subsidiary(-ies).
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
     2
# All rights reserved.
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
     3
# This component and the accompanying materials are made available
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
     4
# under the terms of the License "Eclipse Public License v1.0"
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
     5
# which accompanies this distribution, and is available
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
     6
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
     7
#
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
     8
# Initial Contributors:
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
     9
# Nokia Corporation - initial contribution.
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    10
#
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    11
# Contributors:
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    12
#
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    13
# Description:
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    14
# \bin\perl
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    15
# Test harness
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    16
# 
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    17
#
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    18
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    19
use lib qw(../);
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    20
use lib qw(../stages);
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    21
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    22
use unit_CConfig;
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    23
use unit_CProcessStage;
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    24
use unit_CStageRunner;
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    25
use unit_stage_CDelta;
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    26
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    27
use CTestScore;
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    28
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    29
my $score = New CTestScore();
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    30
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    31
if (!defined($score))
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    32
	{
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    33
	exit(1);
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    34
	}
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    35
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    36
$score = unit_CConfig::RunTest($score);
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    37
$score = unit_CProcessStage::RunTest($score);
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    38
$score = unit_CStageRunner::RunTest($score);
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    39
$score = unit_stage_CDelta::RunTest($score);
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    40
3145852acc89 add releasing to new structure
jjkang
parents:
diff changeset
    41
$score->Print();