Merge "Move tts-player.h from devel-api to public-api" into devel/master
[platform/core/uifw/dali-toolkit.git] / automated-tests / scripts / add_style.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use Encode;
5 use Getopt::Long;
6 use Cwd;
7
8 my $pwd = getcwd;
9 my $MOD_NAME = $ARGV[0];
10 my $results_xml = "tct-$MOD_NAME-core-tests.xml";
11 my $results_out = "results_xml.$$";
12
13 # Copy $results_xml, writing new stylesheet line:
14 # Write <?xml-stylesheet type="text/xsl" href="./style/testresult.xsl"?> as second line
15 open RESULTS, "<$results_xml" || die "Can't open $results_xml for reading:$!\n";
16 open RESULTS_OUT, ">$results_out" || die "Can't open $results_out for writing:$!\n";
17 my $fline = readline RESULTS;
18 print RESULTS_OUT $fline;
19 print RESULTS_OUT "<?xml-stylesheet type=\"text/xsl\" href=\"./style/testresult.xsl\"?>\n";
20 while(<RESULTS>)
21 {
22     if( ! /xml-stylesheet/ )
23     {
24         print RESULTS_OUT $_;
25     }
26 }
27 close RESULTS_OUT;
28 close RESULTS;
29 unlink $results_xml;
30 print `mv $results_out $results_xml`;