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 "clocktest.zip"; |
22 unlink "clocktest.zip"; |
23 ##rmtree "temp"; |
23 rmtree "temp"; |
24 mkpath "temp/clocktest/general/testframework"; |
24 mkpath "temp/clocktest/general/testframework"; |
25 mkpath "temp/clocktest/general/bcardtest2"; |
25 mkpath "temp/clocktest/general/bcardtest2"; |
26 mkpath "temp/clocktest/winscw_udeb/z/resource/plugins"; |
26 mkpath "temp/clocktest/winscw_udeb/z/resource/plugins"; |
27 |
27 |
28 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
28 my $epoc=$ENV{'EPOCROOT'} . "epoc32/"; |
29 copy("clock.xml", "temp/test.xml"); |
29 copy("clock.xml", "temp/test.xml"); |
30 |
30 |
31 copy($epoc . "release/winscw/udeb/bctestclock.dll", "temp/clocktest/winscw_udeb/bctestclock.dll"); |
31 copy($epoc . "release/winscw/udeb/bctestclock.dll", "temp/clocktest/winscw_udeb/bctestclock.dll") or die "failed : $!"; |
32 copy($epoc . "winscw/c/testframework/testframework_pimclock.ini", "temp/clocktest/general/testframework/testframework_pimclock.ini"); |
32 copy($epoc . "winscw/c/testframework/testframework_pimclock.ini", "temp/clocktest/general/testframework/testframework_pimclock.ini") or die "failed : $!"; |
33 copy($epoc . "winscw/c/testframework/tcbctestclock.cfg", "temp/clocktest/general/testframework/tcbctestclock.cfg"); |
33 copy($epoc . "winscw/c/testframework/tcbctestclock.cfg", "temp/clocktest/general/testframework/tcbctestclock.cfg") or die "failed : $!"; |
34 copy($epoc . "winscw/c/testframework/ui_bctestclock.cfg", "temp/clocktest/general/testframework/ui_bctestclock.cfg"); |
34 copy($epoc . "winscw/c/testframework/ui_bctestclock.cfg", "temp/clocktest/general/testframework/ui_bctestclock.cfg") or die "failed : $!"; |
35 |
35 |
36 system("7z a -tzip clocktest.zip ./temp/*"); |
36 system("7z a -tzip clocktest.zip ./temp/*"); |