common/tools/ats/bctest/base/basesvs.pl
author Maciej Seroka <maciejs@symbian.org>
Tue, 01 Dec 2009 13:09:02 +0000
changeset 797 cbc760a5fedd
parent 633 9c627d501af4
child 1235 92cce0f922c2
permissions -rw-r--r--
Fixed perl scripts for building BC test drops
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
399
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
     1
#!/usr/bin/perl
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
     2
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
     3
use strict;
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
     4
use File::Copy;
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
     5
use File::Path;
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
     6
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
     7
unlink "basesvs.zip";
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
     8
rmtree "temp";
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
     9
mkpath "temp/basesvs/base/general";
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
    10
mkpath "temp/basesvs/winscw_udeb";
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
    11
mkpath "temp/basesvs/base/t_sfsrv/general";
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
    12
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
    13
my $epoc=$ENV{'EPOCROOT'} . "epoc32/";
633
9c627d501af4 sorted out more stuff with the dynamic bc, fewer failures now
brendand
parents: 475
diff changeset
    14
copy("basesvs.xml",                                                          			"temp/test.xml");
399
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
    15
633
9c627d501af4 sorted out more stuff with the dynamic bc, fewer failures now
brendand
parents: 475
diff changeset
    16
copy $epoc . "release/winscw/udeb/t_prompt.exe",                                       	"temp/basesvs/winscw_udeb/t_prompt.exe" or die "failed : $!";
9c627d501af4 sorted out more stuff with the dynamic bc, fewer failures now
brendand
parents: 475
diff changeset
    17
copy $epoc . "release/winscw/udeb/t_sfsrv.exe",                                        	"temp/basesvs/winscw_udeb/t_sfsrv.exe" or die "failed : $!";
9c627d501af4 sorted out more stuff with the dynamic bc, fewer failures now
brendand
parents: 475
diff changeset
    18
copy $epoc . "release/winscw/udeb/t_testfsy1.fsy",                                     	"temp/basesvs/winscw_udeb/t_testfsy1.fsy" or die "failed : $!";
9c627d501af4 sorted out more stuff with the dynamic bc, fewer failures now
brendand
parents: 475
diff changeset
    19
copy $epoc . "release/winscw/udeb/t_testfxt.fxt",                                      	"temp/basesvs/winscw_udeb/t_testfxt.fxt" or die "failed : $!";
399
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
    20
797
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    21
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-drives-publicapi-any.script",    "temp/basesvs/base/general/pbase-f32-rfs-drives-publicapi-any.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    22
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-files-publicapi-any.script",     "temp/basesvs/base/general/pbase-f32-rfs-files-publicapi-any.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    23
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-misc-publicapi-any.script",      "temp/basesvs/base/general/pbase-f32-rfs-misc-publicapi-any.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    24
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-mounts-publicapi-any.script",    "temp/basesvs/base/general/pbase-f32-rfs-mounts-publicapi-any.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    25
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-publicapi-os.script",            "temp/basesvs/base/general/pbase-f32-rfs-publicapi-os.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    26
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-drives-publicapi-ram.script",    "temp/basesvs/base/general/pbase-f32-rfs-drives-publicapi-ram.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    27
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-files-publicapi-ram.script",     "temp/basesvs/base/general/pbase-f32-rfs-files-publicapi-ram.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    28
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-misc-publicapi-ram.script",      "temp/basesvs/base/general/pbase-f32-rfs-misc-publicapi-ram.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    29
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-mounts-publicapi-ram.script",    "temp/basesvs/base/general/pbase-f32-rfs-mounts-publicapi-ram.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    30
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-publicapi-rom.script",           "temp/basesvs/base/general/pbase-f32-rfs-publicapi-rom.script" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    31
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-drives-publicapi-rem.script",    "temp/basesvs/base/general/pbase-f32-rfs-drives-publicapi-rem.script" or die "failed : $!";
399
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
    32
797
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    33
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-drives-publicapi-any.ini",       "temp/basesvs/base/general/pbase-f32-rfs-drives-publicapi-any.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    34
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-files-publicapi-any.ini",        "temp/basesvs/base/general/pbase-f32-rfs-files-publicapi-any.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    35
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-misc-publicapi-any.ini",         "temp/basesvs/base/general/pbase-f32-rfs-misc-publicapi-any.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    36
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-mounts-publicapi-any.ini",       "temp/basesvs/base/general/pbase-f32-rfs-mounts-publicapi-any.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    37
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-publicapi-os.ini",               "temp/basesvs/base/general/pbase-f32-rfs-publicapi-os.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    38
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-drives-publicapi-ram.ini",       "temp/basesvs/base/general/pbase-f32-rfs-drives-publicapi-ram.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    39
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-files-publicapi-ram.ini",        "temp/basesvs/base/general/pbase-f32-rfs-files-publicapi-ram.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    40
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-misc-publicapi-ram.ini",         "temp/basesvs/base/general/pbase-f32-rfs-misc-publicapi-ram.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    41
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-mounts-publicapi-ram.ini",       "temp/basesvs/base/general/pbase-f32-rfs-mounts-publicapi-ram.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    42
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-publicapi-rom.ini",              "temp/basesvs/base/general/pbase-f32-rfs-publicapi-rom.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    43
copy $epoc . "release/winscw/udeb/z/base/pbase-f32-rfs-drives-publicapi-rem.ini",       "temp/basesvs/base/general/pbase-f32-rfs-drives-publicapi-rem.ini" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    44
copy $epoc . "release/winscw/udeb/z/base/winscw/base_f32_env.ini",                      "temp/basesvs/base/general/base_f32_env.ini" or die "failed : $!";
633
9c627d501af4 sorted out more stuff with the dynamic bc, fewer failures now
brendand
parents: 475
diff changeset
    45
797
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    46
copy $epoc . "release/winscw/udeb/z/base/t_sfsrv/test.txt",                            	"temp/basesvs/base/t_sfsrv/general/test.txt" or die "failed : $!";
cbc760a5fedd Fixed perl scripts for building BC test drops
Maciej Seroka <maciejs@symbian.org>
parents: 633
diff changeset
    47
copy $epoc . "release/winscw/udeb/z/base/t_sfsrv/usbload.zip",                         	"temp/basesvs/base/t_sfsrv/general/usbload.zip" or die "failed : $!";
399
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
    48
5fb464f80c99 Added base SVS tests
Brendan Donegan brendand@symbian.org
parents:
diff changeset
    49
system("7z a -tzip basesvs.zip ./temp/*");