18 use strict; |
18 use strict; |
19 use File::Copy; |
19 use File::Copy; |
20 use File::Path; |
20 use File::Path; |
21 |
21 |
22 unlink "locblidtest.zip"; |
22 unlink "locblidtest.zip"; |
23 ##rmtree "temp"; |
23 rmtree "temp"; |
24 mkpath "temp/locblidtest/general/testframework"; |
24 mkpath "temp/locblidtest/general/testframework"; |
25 mkpath "temp/locblidtest/winscw_udeb"; |
25 mkpath "temp/locblidtest/winscw_udeb"; |
26 |
26 |
27 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
27 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
28 copy("locblid.xml", "temp/test.xml"); |
28 copy("locblid.xml", "temp/test.xml"); |
29 |
29 |
30 copy($epoc . "release/winscw/udeb/BCBlidTest.dll", "temp/locblidtest/winscw_udeb/BCBlidTest.dll"); |
30 copy($epoc . "release/winscw/udeb/BCBlidTest.dll", "temp/locblidtest/winscw_udeb/BCBlidTest.dll") or die "failed : $!"; |
31 copy($epoc . "winscw/c/testframework/testframework_locblid.ini", "temp/locblidtest/general/testframework/testframework_locblid.ini"); |
31 copy($epoc . "winscw/c/testframework/testframework_locblid.ini", "temp/locblidtest/general/testframework/testframework_locblid.ini") or die "failed : $!"; |
32 copy($epoc . "winscw/c/testframework/tcLmkBlid.cfg", "temp/locblidtest/general/testframework/tcLmkBlid.cfg"); |
32 copy($epoc . "winscw/c/testframework/tcLmkBlid.cfg", "temp/locblidtest/general/testframework/tcLmkBlid.cfg") or die "failed : $!"; |
33 copy($epoc . "winscw/c/testframework/UI_BCBLid.cfg", "temp/locblidtest/general/testframework/UI_BCBLid.cfg"); |
33 copy($epoc . "winscw/c/testframework/UI_BCBLid.cfg", "temp/locblidtest/general/testframework/UI_BCBLid.cfg") or die "failed : $!"; |
34 |
34 |
35 system("7z a -tzip locblidtest.zip ./temp/*"); |
35 system("7z a -tzip locblidtest.zip ./temp/*"); |