diff options
| author | Jens-Heiner Rechtien <hr@openoffice.org> | 2009-07-28 15:21:47 +0000 |
|---|---|---|
| committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2009-07-28 15:21:47 +0000 |
| commit | cb7a62d095c5aebd1f7fd0889d0d8e87ae32dca6 (patch) | |
| tree | 7675e6ee435357a6c1712534940241a790df262c /testautomation | |
| parent | ff7d04cc94211426caad7fb61b56b5a6820e2166 (diff) | |
CWS-TOOLING: integrate CWS automationdev300m52cat1
2009-07-21 13:08:30 +0200 tbo r274185 : #i103649# svn propset svn:ignore --revprop hid.lst .
2009-07-15 10:29:39 +0200 msc r273992 : #103560
2009-07-15 10:04:37 +0200 msc r273991 : #103557#
Diffstat (limited to 'testautomation')
| -rwxr-xr-x | testautomation/dbaccess/optional/includes/ctrl_Several1.inc | 2 | ||||
| -rwxr-xr-x | testautomation/dbaccess/tools/controltools.inc | 1 | ||||
| -rwxr-xr-x | testautomation/extensions/optional/includes/meta-inf.inc | 2 |
3 files changed, 3 insertions, 2 deletions
diff --git a/testautomation/dbaccess/optional/includes/ctrl_Several1.inc b/testautomation/dbaccess/optional/includes/ctrl_Several1.inc index 107e68bcefa0..9e618b4aeaa5 100755 --- a/testautomation/dbaccess/optional/includes/ctrl_Several1.inc +++ b/testautomation/dbaccess/optional/includes/ctrl_Several1.inc @@ -196,7 +196,7 @@ testcase tTextBox endif if fGetControlProperty("TextBox","AdditionalInfo") <> "my only friend the end." then - warnlog "the value: background is not saved" + warnlog "the AdditionalInfo value is not saved" endif call fSetControlProperty("TextBox","TextType","2") 'needed for activate scrollbar sleep(1) diff --git a/testautomation/dbaccess/tools/controltools.inc b/testautomation/dbaccess/tools/controltools.inc index 0ada936640cd..cd73e5f068be 100755 --- a/testautomation/dbaccess/tools/controltools.inc +++ b/testautomation/dbaccess/tools/controltools.inc @@ -119,6 +119,7 @@ function fSetControlProperty(sControlType, sPropertyName, sPropertyValue as stri Align.select(Cint(sPropertyValue)) elseif sPropertyName = "AdditionalInfo" then Information.setText(sPropertyValue) + Information.TypeKeys("<RETURN>",true) elseif sPropertyName = "AutoComplete" then AutoComplete.select(Cint(sPropertyValue)) elseif sPropertyName = "Background" then diff --git a/testautomation/extensions/optional/includes/meta-inf.inc b/testautomation/extensions/optional/includes/meta-inf.inc index 554dadde9c5b..439863bc6da1 100755 --- a/testautomation/extensions/optional/includes/meta-inf.inc +++ b/testautomation/extensions/optional/includes/meta-inf.inc @@ -51,7 +51,7 @@ testcase tLowerCaseMetaInf dim irc as integer printlog( "Install extension: " & cExtensionPath ) - irc = hExtensionAddGUI( cExtensionPath, "AcceptLicense" ) + irc = hExtensionAddGUI( cExtensionPath, "AcceptLicense,InstallForUser" ) if ( irc > 0 ) then |