Commits

Anonymous committed 89ab0b1 Merge

CWS-TOOLING: integrate CWS automationdev300m91

  • Participants
  • Parent commits c32522c, 2a08cf9

Comments (0)

Files changed (16)

File testautomation/dbaccess/optional/includes/ctrl_Several2.inc

         sleep(2)
     '/// set HelpURL 
         printlog "set HelpURL"
-        fsetControlProperty("ImageControl","HelpURL","HID:1234567")    
+        fsetControlProperty("ImageControl","HelpURL","customcontrol2")
     '/// save the document
         printlog "save the document"
         hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_ImageControl.odt"))
     Kontext "TabGeneralControl"	
         dim bScrOK as boolean       'control variable if all properties are correct
         bScrOK = true           
-    if fgetControlProperty("ImageControl","HelpURL") <> "HID:1234567" then
+    if fgetControlProperty("ImageControl","HelpURL") <> "customcontrol2" then
         warnlog "the imagecontrol is not saved with property: HelpURL"
         bScrOK = false
     endif

File testautomation/dbaccess/optional/includes/ctrl_Wizards.inc

     Kontext "TabGeneralControl"
      TabGeneralControl.TypeKeys "<TAB>" , true 'this tab is importent, I don't not why but it is.
      sleep(1)
-     HelpURL.setText "HID:123456"
+     HelpURL.setText "customcontrol1"
      HelpURL.TypeKeys "<RETURN>",true
      sleep(1)
     Kontext "ControlPropertiesDialog" 
     Kontext "TabGeneralControl"
 	 TabGeneralControl.TypeKeys "<TAB>" , true 'this tab is importent, I don't not why but it is.
      sleep(1)
-     HelpURL.setText "HID:1234567"
+     HelpURL.setText "customcontrol2"
      HelpURL.TypeKeys "<RETURN>", true
      sleep(1)
     Kontext "ControlPropertiesDialog" 
      
     Kontext "TabGeneralControl"
      TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.     
-     HelpURL.setText "HID:12345678"     
+     HelpURL.setText "customcontrol3"
      HelpURL.TypeKeys "<RETURN>", true
      sleep(1)
     Kontext "ControlPropertiesDialog" 
 		warnlog "The dropdown style is not active."
 	endif			
 	sleep(1)
-	fSetControlProperty("ListBox","HelpURL","HID:123456")
+	fSetControlProperty("ListBox","HelpURL","customcontrol1")
 	sleep(1)
     '/// save the document
     printlog "save the document"

File testautomation/dbaccess/tools/dbcreatetools.inc

         NewBtn.Click
     sleep(1)
     Kontext "CreateDatabaseLink"
-        DatabaseFile.setText(sFileName)    
+    
         RegisteredName.setText(sName)
+
+        ' this does not work due to issue 115468
+        ' DatabaseFile.setText(sFileName)
+        ' workaround
+        CreatedatabaseLink.typeKeys("<shift tab>")
+        CreatedatabaseLink.typeKeys("<shift tab>")
+        CreatedatabaseLink.typeKeys(sFileName)
+        ' -
+
         CreateDatabaseLink.OK
         
     sleep(1)

File testautomation/extensions/optional/input/extension_sources/TaskPaneComponent/src/toolpanels/TaskPaneComponentUI.xdl

 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
-<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog1" dlg:left="192" dlg:top="127" dlg:width="174" dlg:height="147" dlg:closeable="true" dlg:moveable="true" dlg:help-url="HID:123456" dlg:withtitlebar="false">
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog1" dlg:left="192" dlg:top="127" dlg:width="174" dlg:height="147" dlg:closeable="true" dlg:moveable="true" dlg:help-url="customcontrol1" dlg:withtitlebar="false">
  <dlg:bulletinboard>
   <dlg:button dlg:id="CommandButton1" dlg:tab-index="0" dlg:left="6" dlg:top="8" dlg:width="64" dlg:height="20" dlg:value="a wonderful button"/>
   <dlg:textfield dlg:id="TextField1" dlg:textarea-vertical-align="top" dlg:tab-index="1" dlg:left="6" dlg:top="38" dlg:width="64" dlg:height="59" dlg:value="a wonderful text"/>

File testautomation/global/hid/hid.lst

-DEV300.m85 010101010101010
-
 1 1
 SID_OPENDOC 5501
 SID_SAVEASDOC 5502

File testautomation/global/required/includes/g_printing.inc

                 endif
             endif
             
-            lb_test( PrintOrder, 2, 1, "" )
+            lb_test( PrintOrder, 4, 1, "" )
             cb_test( BorderAroundPages, false, "" )
             
             select case( gApplication )

File testautomation/global/system/includes/master.inc

     Call GetIniInformation                '///+<li><b>GetIniInformation</b>: Get all information out of the <i>testtool.ini/.testtoolrc</i> and set it on global variables (iniinfo.inc)</li>
     Call GetOfficeInformation             '///+<li><b>GetOfficeInformation</b>: Set <i>sAppExe</i> for startup (iniinfo.inc)</li>
 
+    gVersionsnummer = FindBuildID
+    ' split versionstring into its parts
+    call hSetBuildVersionInformation(False)
+
     Call LoadDeclaration                  '///+<ul><li><b>LoadDeclaration</b>: Load all declaration files (master.inc)</li>
 
     Call FirstOfficeStart                 '///+<li><b>FirstOfficeStart</b>: Try to start the office for first time (master.inc)</li>

File testautomation/global/tools/includes/optional/t_control_objects.inc

             endif
         endif
         
-        for con_iterator = 1 to items
+        for con_iterator = 1 to con_items
             oControl.select( con_iterator )
         next con_iterator
         

File testautomation/global/win/dial_d_h.win

 FormName sym:sw:Edit:DLG_NUM_NAMES:ED_FORM
 FormListe sym:sw:ListBox:DLG_NUM_NAMES:LB_FORM
 
-*FormularNavigator .uno:ShowFmExplorer
+*FormularNavigator sym:SFXDOCKINGWINDOW_ShowFmExplorer
 Liste sym:SVX_HID_FORM_NAVIGATOR
 
 *FussnoteBearbeiten .uno:EditFootnote

File testautomation/global/win/sys_dial.win

 ' ****
 *TranslationWindow sym:svtools:WorkWindow:TT_INLINE_TRANSLATION svtools:FloatingWindow:TT_INLINE_TRANSLATION
 
+' **** specal longnames for bas test
+' **** author marc.neumann@oracle.com
+*MSC_Special_Dialog sym:customcontrol1
+*MSC_Special_Dialog2 sym:customcontrol2
+*MSC_Special_Dialog3 sym:customcontrol3

File testautomation/spreadsheet/optional/includes/import_general/c_import_general.inc

 '
 '-------------------------------------------------------------------------------
 '
-function IsItLoaded as boolean
-    '/// IsItLoaded
-    '/// Wait until document is loaded
-    Dim iLoop as integer
-
-    IsItLoaded = FALSE
-    sleep(3)
-    for iLoop =1 to 20
-        try
-            'Calling slot 'IsDocLoading'
-            IsItLoaded = IsDocLoading
-        catch
-            IsItLoaded = FALSE
-        endcatch
-
-        if IsItLoaded = TRUE then
-            exit for
-        end if
-        sleep(1)
-    next iLoop
-    sleep(2)
-end function
-'
-'-------------------------------------------------------------------------------
-'
 testcase tLoadSpreadsheetDocument (SourceFile)
 
     Dim sOnlyFileName as string
     if sOnlyFileName > "" then
         'Some extensions make no sense to load
         if sOnlyFileExtension <> "so" AND sOnlyFileExtension <> "tmp" AND sOnlyFileExtension <> "dbt" then
-            if fCalcFileOpen(SourceFile) AND IsItLoaded()then                
+            if fCalcFileOpen(SourceFile) then
                 if (hIsNamedDocLoaded (SourceFile)) then
                     printlog "-  loaded"
                     sleep(15)

File testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc

     Kontext "TabGeneralControl"
     '/// Enter in 'Help URL' as value exactly 'HID:123456'
     TabGeneralControl.TypeKeys "<TAB>" , true
-    HelpURL.setText "HID:123456"
+    HelpURL.setText "customcontrol1"
     HelpURL.TypeKeys "<RETURN>",true
-    if HelpURL.GetText <> "HID:123456" then
-        warnlog "'HID:123456' has not been accepted as 'Help URL' value."
+    if HelpURL.GetText <> "customcontrol1" then
+        warnlog "'customcontrol1' has not been accepted as 'Help URL' value."
     end if
 
     Kontext "ControlPropertiesDialog"

File testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc

     Sleep 2
     Call gMouseClick(80,80)
 
-    Call wObjektSelektieren ( 28, 28, 70, 80 )
+    Call wObjektSelektieren ( 31, 31, 70, 80 )
     Sleep 2
     FormatGroupGroup
     Sleep 1
     Sleep 2
     Call gMouseClick(80,80)
     
-    Call wObjektSelektieren ( 28, 28, 70, 80 )
+    Call wObjektSelektieren ( 31, 31, 70, 80 )
     Sleep 2
     FormatGroupGroup
     Sleep 1
     Sleep 1
     Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
     Sleep 1
-    Call wObjektSelektieren ( 28, 28, 70, 80 )
+    Call wObjektSelektieren ( 31, 31, 70, 80 )
     Sleep 1
     
     FormatGroupGroup
     
       PrintLog "- insert 2 drawing objects (rectangle and ellipse) in the group"
     Call wZeichenobjektEinfuegen("RECHTECK", 35, 40, 38, 45, false)
-    Call wZeichenobjektEinfuegen("ELLIPSE",  52, 40, 78, 45, false)
-    Call wObjektSelektieren ( 28, 38, 80, 48 )
+    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 40, 58, 45, false, true)
+    Call wObjektSelektieren ( 31, 31, 80, 80 )
+
+    Sleep 1
     
+    PrintLog "- generate a new group"
     try
-          PrintLog "- generate a new group"
         FormatGroupGroup
-          PrintLog "- edit the new group"
+    catch
+        Warnlog "Unable to execute Format / Group"
+    endcatch
+
+    PrintLog "- edit the new group"
+    try
         FormatGroupEditGroup
-          PrintLog "- leave the new group"
+    catch
+        Warnlog "Unable to execute Group / Enter Group"
+    endcatch
+
+    PrintLog "- leave the new group"
+    try
         FormatGroupExitGroup
-          PrintLog "- Undo the new group"
+    catch
+        Warnlog "Unable to exceute Format / Exit Group"
+    endcatch
+
+    PrintLog "- Undo the new group"
+    try
         FormatGroupUnGroup
     catch
-        Warnlog "Something wrong where operating the Encapsulated group!"
+        Warnlog "Unable to execute Format / Ungroup"
     endcatch
     
     Call hCloseDocument

File testautomation/writer/optional/includes/fields/w_fields1.inc

     if NOT Len(sTime2) > 7 then Warnlog "Time-format is wrong !"
     
     printlog "Stop for a while ..."
+
     '/// Stop for  a while , check if the time is still correct
     Sleep 2
+    ' update fields
+    Call wTypeKeys "<F9>"
+    ' read field content
     Call wTypeKeys "<MOD1 Home>"
     Call wTypeKeys "<Shift Right>"
     EditCopy
     if GetClipboard <> sTime1 then Warnlog "Fixed time is wrong !"
-    
+
+    '/// Stop for  a while , check if the time is still correct
+    Sleep 2
+    ' update fields
+    Call wTypeKeys "<F9>"
+    ' read field content
+    Call wTypeKeys "<MOD1 Home>"
     Call wTypeKeys "<Down><Home>"
     Call wTypeKeys "<Shift Right>"
     EditCopy

File testautomation/writer/required/includes/w_001b_.inc

 
     PrintLog "Paste outline in new document"
     hUseAsyncSlot( "EditPaste" )
+    WaitSlot(1000)
     Call wTypeKeys("<Up>", 6)
     Call wTypeKeys("<Home><Shift End>")
     hUseAsyncSlot( "EditCopy" )

File testautomation/writer/tools/includes/w_tools.inc

 
 ' -----------------------------------------------------------------------
 
-sub wZeichenobjektEinfuegen ( Objekt$, xStart%, yStart%, xEnde%, yEnde%, optional sCloseToolbar as boolean )
+sub wZeichenobjektEinfuegen ( Objekt$, xStart%, yStart%, xEnde%, yEnde%, optional sCloseToolbar as boolean, optional bLeaveSelected as boolean )
 
     Kontext "DrawBar"
     if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
     Sleep 2
+    if IsMissing(bLeaveSelected) then
+        bLeaveSelected = false
+    endif
 
     Objekt = UCase( Objekt )
     select case Objekt
         end if
         if Objekt <> "TEXT" and Objekt <> "VTEXT" then
             Kontext "DocumentWriter"
-            Call gMouseClick (10, 10)
-            wait 100
+            if bLeaveSelected = false then
+                Call gMouseClick (10, 10)
+                wait 100
+            endif
         end if
 
     Case "MASTERDOCUMENT"
         end if
         if Objekt <> "TEXT" and Objekt <> "VTEXT" then
             Kontext "DocumentMasterDoc"
-            Call gMouseClick (10, 10)
-            wait 100
+            if bLeaveSelected = false then
+                Call gMouseClick (10, 10)
+                wait 100
+            endif
         end if
     end select
     sleep (1)
 ' -----------------------------------------------------------------------
 
 sub wObjektSelektieren ( xStart%, yStart%, xEnde%, yEnde% )
-    '    Call gMouseClick(90,90)
     Call hToolbarSelect("DRAWING",true)
-    Auswahl.Click
+    if Auswahl.Getstate(2) = 0 then
+        Auswahl.Click
+    endif
     Select Case gApplication
     Case "WRITER"
         Kontext "DocumentWriter"
         DocumentWriter.MouseDown xStart%, yStart%
+        wait 500
         DocumentWriter.MouseMove xEnde%, yEnde%
         DocumentWriter.MouseUp xEnde%, yEnde%
     Case "MASTERDOCUMENT"
         Kontext "DocumentMasterDoc"
         DocumentMasterDoc.MouseDown xStart%, yStart%
+        wait 500
         DocumentMasterDoc.MouseMove xEnde%, yEnde%
         DocumentMasterDoc.MouseUp xEnde%, yEnde%
     end select