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 		chdir("../../../../contentstorage/casatinterface/group");

    32 		

    33         system("del mon.sym");

    34         system("del mon.dat");

    35         system("del profile.txt");

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

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

    38 

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

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

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

    42 		

    43         

    44 		chdir("../../../homescreensrv_plat/menu_sat_interface_api/tsrc/t_menu_sat_interface_api");

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

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

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

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

    49         

    50         }

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

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

    53     }

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

    55 		chdir("../../../../contentstorage/casatinterface/group");

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

    57         system("call ctc2html -nsb -i profile.txt -o ../../../homescreensrv_plat/menu_sat_interface_api/tsrc/t_menu_sat_interface_api/CTCFUNCTION");

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

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

    60         system("call ctc2html -nsb -i profile.txt -o ../../../homescreensrv_plat/menu_sat_interface_api/tsrc/t_menu_sat_interface_api/CTCDECISION");

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

    62     }

    63 }

    64 

    65 print "END.\n";