contentstorage/tsrc/t_casrv/decision_cov.pl
changeset 117 c63ee96dbe5f
equal deleted inserted replaced
115:3ab5c078b490 117:c63ee96dbe5f
       
     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         system("del mon.sym");
       
    31         system("del mon.dat");
       
    32         system("del profile.txt");
       
    33         system("rmdir /s /q CTCFUNCTION");
       
    34         system("rmdir /s /q CTCDECISION");
       
    35 
       
    36         system("call qmake -config coverage");
       
    37         system("call sbs clean -c winscw_udeb");
       
    38         system("call sbs clean -c winscw_udeb.test");
       
    39         system("ctcwrap -i fd -2comp -C EXCLUDE=* -C \"NO_EXCLUDE=../../srvsrc/casrvengutils.cpp*\" sbs -j 4 -c winscw_udeb");
       
    40 
       
    41         }
       
    42     if (($make eq "run") || ($make eq "all")) {
       
    43         system("call \\epoc32\\release\\winscw\\udeb\\t_casrv -o c:\\t_casrv.log");
       
    44     }
       
    45     if (($make eq "ctcpost") || ($make eq "all")) {
       
    46         system("call ctcpost -ff -p profile.txt");
       
    47         system("call ctc2html -nsb -i profile.txt -o CTCFUNCTION");
       
    48         system("call del profile.txt");
       
    49         system("call ctcpost -fd -p profile.txt");
       
    50         system("call ctc2html -nsb -i profile.txt -o CTCDECISION");
       
    51         system("call del profile.txt");
       
    52     }
       
    53 }
       
    54 
       
    55 print "END.\n";