1 #

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

     3 # All rights reserved.

     4 # This component and the accompanying materials are made available

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

     6 # which accompanies this distribution, and is available

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

     8 #

     9 # Initial Contributors:

    10 # Nokia Corporation - initial contribution.

    11 #

    12 # Contributors:

    13 #

    14 # Description: Script for running branch coverage test

    15 #

    16 

    17 #USAGE:

    18 #    Usage: decision_cov.pl [-make=command]

    19 #    -make=instrument || run || ctcpost

    20 

    21 # import module

    22 use Getopt::Long;

    23 

    24 # read options

    25 my $make = "all";

    26 my $success = GetOptions ("make=s"   => \$make);

    27 

    28 if($make) {

    29     if (($make eq "instrument") || ($make eq "all")) {

    30 

    31 		

    32         system("del mon.sym");

    33         system("del mon.dat");

    34         system("del profile.txt");

    35         system("rmdir /s /q CTCFUNCTION");

    36         system("rmdir /s /q CTCDECISION");

    37 

    38 		chdir("../..");

    39 		

    40         system("call qmake -config coverage");

    41         system("call sbs clean -c winscw_udeb");

    42         

    43         system("ctcwrap -i fd -2comp -C EXCLUDE=* -C \"NO_EXCLUDE=./src/*\" sbs -j 4 -c winscw_udeb");

    44         

    45 		chdir("tsrc/t_catapphandler");

    46         system("call qmake -config coverage");

    47         system("call sbs clean -c winscw_udeb");

    48         system("call sbs clean -c winscw_udeb.test");

    49         system("call sbs -c winscw_udeb");

    50         

    51         }

    52     if (($make eq "run") || ($make eq "all")) {

    53         system("call \\epoc32\\release\\winscw\\udeb\\t_catapphandler -o c:\\t_catapphandler.log");

    54     }

    55     if (($make eq "ctcpost") || ($make eq "all")) {

    56 		chdir("../..");

    57         system("call ctcpost -ff -p profile.txt");

    58         system("call ctc2html -nsb -i profile.txt -o tsrc/t_catapphandler/CTCFUNCTION");

    59         system("call del profile.txt");

    60         system("call ctcpost -fd -p profile.txt");

    61         system("call ctc2html -nsb -i profile.txt -o tsrc/t_catapphandler/CTCDECISION");

    62         system("call del profile.txt");

    63     }

    64 }

    65 

    66 print "END.\n";