summaryrefslogtreecommitdiff
path: root/smoketestoo_native
diff options
context:
space:
mode:
authorsb <sb@openoffice.org>2009-11-24 08:33:50 +0100
committersb <sb@openoffice.org>2009-11-24 08:33:50 +0100
commitf38a1aaef3b8eb830078d68de6f8db7f3fab2950 (patch)
tree269378891ed5103fbed9063912c444aa9ad2743e /smoketestoo_native
parent5e7aa7e8674465df32327a2d82ae7515d259e264 (diff)
parentf9e98c2a8916e4003ed2014b88202cac0aad8a84 (diff)
sb111: merged in DEV300_m65
Diffstat (limited to 'smoketestoo_native')
-rwxr-xr-xsmoketestoo_native/smoketest.pl18
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;