diff options
author | sb <sb@openoffice.org> | 2009-11-24 08:33:50 +0100 |
---|---|---|
committer | sb <sb@openoffice.org> | 2009-11-24 08:33:50 +0100 |
commit | f38a1aaef3b8eb830078d68de6f8db7f3fab2950 (patch) | |
tree | 269378891ed5103fbed9063912c444aa9ad2743e /smoketestoo_native | |
parent | 5e7aa7e8674465df32327a2d82ae7515d259e264 (diff) | |
parent | f9e98c2a8916e4003ed2014b88202cac0aad8a84 (diff) |
sb111: merged in DEV300_m65
Diffstat (limited to 'smoketestoo_native')
-rwxr-xr-x | smoketestoo_native/smoketest.pl | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/smoketestoo_native/smoketest.pl b/smoketestoo_native/smoketest.pl index c19e139cf92b..de9120204012 100755 --- a/smoketestoo_native/smoketest.pl +++ b/smoketestoo_native/smoketest.pl @@ -42,6 +42,7 @@ use File::Basename; use File::Path; use File::Copy; use Getopt::Long; +use SourceConfig; ######################## # # @@ -57,6 +58,7 @@ $is_do_deinstall = 0; $is_without_msiexec = 1; $is_oo = 1; +$sourceconfig_obj; $gui = $ENV{GUI}; $temp_path = $ENV{TEMP}; $vcsid = $ENV{VCSID}; @@ -860,12 +862,22 @@ sub getInstset { foreach $project (@install_list) { @DirArray=(); $TestDir1 = "$RootDir$project$PathSeparator$ENV{INPATH}$PathSeparator$PRODUCT$PathSeparator$packpackage$PathSeparator" . "install$PathSeparator"; - $TestDir2 = "$StandDir$project$PathSeparator$ENV{INPATH}$PathSeparator$PRODUCT$PathSeparator$packpackage$PathSeparator" . "install$PathSeparator"; if (-e "$TestDir1") { $InstDir= $TestDir1; } - elsif (-e "$TestDir2") { - $InstDir="$TestDir2"; + else { + $sourceconfig_obj = SourceConfig->new() if (!defined ($sourceconfig_obj)); + my $module_path = $sourceconfig_obj->get_module_path($project); + # only if module exists + if (defined ($module_path)) { + $TestDir2 = "$module_path$PathSeparator$ENV{INPATH}$PathSeparator$PRODUCT$PathSeparator$packpackage$PathSeparator" . "install$PathSeparator"; + } + else { + $TestDir2 = $module_path; + } + if (defined ($TestDir2) && -e "$TestDir2") { + $InstDir="$TestDir2"; + } } if ($InstDir eq "") { next; |