CWS-TOOLING: integrate CWS automationdev300m53cat0

2009-07-27 13:27:22 +0200 wg  r274360 : i103764
2009-07-27 13:24:16 +0200 wg  r274359 : i103764
2009-07-27 13:15:37 +0200 wg  r274358 : i103764
2009-07-27 13:11:56 +0200 wg  r274357 : i103764
2009-07-27 13:08:44 +0200 wg  r274356 : i103764
2009-07-27 12:47:24 +0200 wg  r274355 : i103764
2009-07-27 11:57:21 +0200 wg  r274354 : i103764
2009-07-27 11:50:44 +0200 wg  r274353 : i103764
2009-07-27 11:06:37 +0200 wg  r274349 : i103764
2009-07-27 10:46:33 +0200 wg  r274347 : i103764
2009-07-27 10:42:23 +0200 wg  r274346 : i103764
2009-07-27 09:52:19 +0200 wg  r274345 : i103764
2009-07-24 15:12:43 +0200 wg  r274309 : i103764
2009-07-24 13:16:21 +0200 wg  r274302 : i103764
2009-07-24 12:57:40 +0200 wg  r274300 : i103764
2009-07-24 12:35:50 +0200 wg  r274299 : i103764
2009-07-24 11:46:47 +0200 wg  r274296 : i103764
2009-07-24 11:40:14 +0200 wg  r274295 : i103764
2009-07-24 10:39:50 +0200 wg  r274294 : i103764
2009-07-24 10:30:58 +0200 wg  r274293 : i103764
2009-07-24 10:23:04 +0200 wg  r274292 : i103764
2009-07-24 10:00:47 +0200 wg  r274291 : i103764
2009-07-24 09:51:05 +0200 wg  r274290 : i103764
2009-07-24 09:32:14 +0200 wg  r274288 : i103764
2009-07-24 09:21:56 +0200 wg  r274287 : i103764
2009-07-23 15:22:24 +0200 oc  r274274 : #i103693# Move BubbleChartData.ods to correct path
2009-07-23 14:03:14 +0200 msc  r274271 : #100000
2009-07-23 13:45:36 +0200 oc  r274269 : #i103439# Changed Menu function with hMenu function

1 files changed, 259 insertions, 192 deletions

diff --git a/testautomation/graphics/optional/includes/global/g_clipboard.inc b/testautomation/graphics/optional/includes/global/g_clipboard.inc
index 3a81d41d492a..d0312ba52b7d 100755
--- a/testautomation/graphics/optional/includes/global/g_clipboard.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipboard.inc
@@ -50,15 +50,15 @@ testcase tiEditUndo
 
     Dim sDatei as string
     Dim Ueber_Text_1 as string
-
-    if (gApplication = "IMPRESS") then
+    
+    if (gApplication = "IMPRESS") then 
         ExtensionString = "odp"
     else
         ExtensionString = "odg"
     end if
-
+    
     sDatei = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-
+    
     hFileOpen ConvertPath (sDatei)
     sleep 5
     printlog "Checking for readonly state. If so, make it editable."
@@ -69,16 +69,18 @@ testcase tiEditUndo
     ContextPositionAndSize
     Kontext
     if Messagebox.exists (5) then
-        Messagebox.SetPage TabPositionAndSize
+      Messagebox.SetPage TabPositionAndSize
     else
-        print "what"
+      print "what"
     endif
     Kontext "TabPositionAndSize"
+    Ueber_Text_1=PositionX.GetText				'/// defining variable for original position of object ///'
     TabPositionAndSize.Cancel
     sleep 2
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
+    ContextArrangeBringBackward					'/// Bring Object backward ///'
     sleep 1
     gMouseClick 60,60
     sleep 1
@@ -89,51 +91,56 @@ testcase tiEditUndo
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
+    ContextPositionAndSize					'/// Open Position and Size dialog, checking position ///'
     Kontext
     Messagebox.SetPage TabPositionAndSize
     Kontext "TabPositionAndSize"
     if PositionX=0 Then Warnlog "  Command was not completely executed, and it could not be undone."
-        TabPositionAndSize.Cancel
-        sleep 2
-        gMouseClick 60,60
-        sleep 1
-
-        Sleep 2
-        gMouseClick 60,60
-        sleep 1
-        Kontext "Toolbar"
-        Auswahl.Click
-        hTypeKeys "<TAB><TAB>"
-        sleep 1
-        Kontext "Toolbar"
-        Auswahl.Click
-        kontext
-        Messagebox.SetPage TabPositionAndSize
-        kontext "TabPositionAndSize"
-        if PositionX.GetText = Ueber_Text_1 then
-            printlog "OK, last order could be redone"
-        else
-            warnlog "Last order could not be redone"
-        end if
-        TabPositionAndSize.Cancel
-
+    TabPositionAndSize.Cancel
+    sleep 2
+    gMouseClick 60,60
+    sleep 1
+    
+    EditUndo							'/// Edit Undo for BringBackward ///'
+    Sleep 2
+    gMouseClick 60,60
+    sleep 1
+    Kontext "Toolbar"
+    Auswahl.Click
+    hTypeKeys "<TAB><TAB>"
+    sleep 1
+    Kontext "Toolbar"
+    Auswahl.Click
+    ContextPositionAndSize					'/// Again checking position using Position and Size dialog ///'
+    kontext
+    Messagebox.SetPage TabPositionAndSize
+    kontext "TabPositionAndSize"
+    if PositionX.GetText = Ueber_Text_1 then
+      printlog "OK, last order could be redone"
+    else
+      warnlog "Last order could not be redone"
+    end if
+    TabPositionAndSize.Cancel
+    
+    Call hCloseDocument						'/// Close document ///'
 
 endcase
 
 '-------------------------------------------------------------------------------
 testcase tiEditRedo
-
+    
     Dim Datei$
     Dim Ueber_Text_1
-
-    if (gApplication = "IMPRESS") then
+    
+    if (gApplication = "IMPRESS") then 
         ExtensionString = "odp"
     else
         ExtensionString = "odg"
     end if
-
+    
     Datei$ = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-
+    
+    hFileOpen ConvertPath (Datei$)			'/// Open test document (leer.od?) ///'
     sleep 3
     ' check if the document is writable
     if fIsDocumentWritable = false then
@@ -158,6 +165,7 @@ testcase tiEditRedo
     sleep 1
     hTypeKeys "<TAB>"
     sleep 1
+    ContextArrangeBringBackward					'/// move object behind other object ///'
     sleep 1
     gMouseClick 60,60
     sleep 1
@@ -166,38 +174,44 @@ testcase tiEditRedo
     ContextPositionAndSize
     sleep 1
     Kontext
+    Messagebox.SetPage TabPositionAndSize					'/// checking new position values ///'
     Kontext "TabPositionAndSize"
-    if PositionX.GetText = Ueber_Text_1 Then Warnlog "  Nothing changed, so nothing can be undone"
-        TabPositionAndSize.Cancel
-        sleep 1
-        gMouseClick 60,60
-        sleep 1
-        hTypeKeys "<TAB>"
-        sleep 1
-        ContextPositionAndSize
-        sleep 1
-        kontext
-        kontext "TabPositionAndSize"
-        if PositionX.GetText <> Ueber_Text_1 Then Warnlog "  Undo didn't worked, so repeat last action wont work either"
-            TabPositionAndSize.Cancel
-            sleep 2
-            sleep 2
-            gMouseClick 60,60
-            sleep 2
-            hTypeKeys "<TAB>"
-            sleep 2
-            ContextPositionAndSize
-            sleep 1
-            kontext
-            Messagebox.SetPage TabPositionAndSize
-            kontext "TabPositionAndSize"
-            printlog "Action Undo repeated"
-        else
-            warnlog "Action Undo not repeated"
-        end if
-        TabPositionAndSize.OK
-        sleep 1
-        sleep 1
+     if PositionX.GetText = Ueber_Text_1 Then Warnlog "  Nothing changed, so nothing can be undone"
+    TabPositionAndSize.Cancel
+    sleep 1
+    gMouseClick 60,60
+    EditUndo							'/// Edit Undo///'
+    sleep 1
+    hTypeKeys "<TAB>"
+    sleep 1
+    ContextPositionAndSize
+    sleep 1
+    kontext
+    Messagebox.SetPage TabPositionAndSize					'/// checking again position ///'
+    kontext "TabPositionAndSize"
+    if PositionX.GetText <> Ueber_Text_1 Then Warnlog "  Undo didn't worked, so repeat last action wont work either"
+    TabPositionAndSize.Cancel
+    sleep 2
+    EditRedo							'/// Edit Redo ///'
+    sleep 2
+    gMouseClick 60,60
+    sleep 2
+    hTypeKeys "<TAB>"
+    sleep 2
+    ContextPositionAndSize
+    sleep 1
+    kontext
+    Messagebox.SetPage TabPositionAndSize
+    kontext "TabPositionAndSize"
+    if PositionX.GetText <> Ueber_Text_1 then			'/// checking position ///'
+      printlog "Action Undo repeated"
+    else
+      warnlog "Action Undo not repeated"
+    end if
+    TabPositionAndSize.OK
+    sleep 1
+    call hCloseDocument						'/// close document ///'
+    sleep 1
 endcase
 
 '-------------------------------------------------------------------------------
@@ -205,64 +219,81 @@ testcase tiEditClipboard
 
     Dim Ueber_Text_4 as string
     dim sTemp as string
-
+    
+    '/// open application ///'
     Call hNewDocument
     sleep 1
     SetClipboard ""
+    '/// Create rectangle ///'
     Call hRechteckErstellen ( 65, 65, 80, 80 )
     sleep 1
+    '///+ RightClick onto rectangle///'
     gMouseClick 70,70
     sleep 1
+    Ueber_Text_4 = fGetPositionX()				'/// Get values for position variables ///'
     Sleep 1
+    '/// <b> Edit->Copy </b> ///'
     EditCopy
+    '///+ Type Key [Deletee] ///'
     hTypeKeys "<DELETE>"
+    '///+ <i> Edit->Paste </i> ///'
     EditPaste
     sleep 1
+    '///+   Edit->Select All ///'
     EditSelectAll
     sTemp = fGetPositionX()
-    printlog "OK   EditCopy and EditPaste"
-else
-    warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
-end if
-sleep 1
-hTypeKeys "<escape>"
-EditSelectAll
-sleep 2
-EditCut
-sleep 1
-hTypeKeys "<TAB>"
-try
-    ContextPositionAndSize
-    kontext
-    Messagebox.SetPage TabPositionAndSize
-    Kontext "TabPositionAndSize"
-    if TabPositionAndSize.NOTexists then
-        warnlog "TabPositionAndSize isn't up ?!!"
-    endif
-    TabPositionAndSize.Ok
-    warnlog "TabPositionAndSize IS up :-( Doesn't have to be, because object should be deleted !!!"
-catch
-    Printlog " - There is no object in the document anymore :-)"
-endcatch
-sleep 1
-EditPaste
-sleep 2
-sTemp = fGetPositionX()
-if LiberalMeasurement(sTemp, Ueber_Text_4) then
-    printlog "OK   Edit paste"
-else
-    warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
-end if
-sleep 3
-Call hCloseDocument
+    if LiberalMeasurement(sTemp, Ueber_Text_4) then			'/// TabPositionAndSize: comparing position with original position ///'
+      printlog "OK   EditCopy and EditPaste"
+    else
+      warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
+    end if
+    sleep 1
+    '/// Type Keys [escape], + EditSelectAll (to deselect object and to select again) ///'
+    hTypeKeys "<escape>"
+    EditSelectAll
+    sleep 2
+    '/// <b> Edit->Cut </b>///'
+    EditCut
+    sleep 1
+    hTypeKeys "<TAB>"
+    try
+      '///+ - Format->Position And Size -> HAS TO FAIL / IS NOT AVAILABLE !!! '///'
+      ContextPositionAndSize
+         kontext
+         '///+ - select TabPage 'Position And Size' ///'
+         Messagebox.SetPage TabPositionAndSize
+         Kontext "TabPositionAndSize"
+         if TabPositionAndSize.NOTexists then
+            warnlog "TabPositionAndSize isn't up ?!!"
+         endif
+      '///+ - Ok dialog 'Position And Size' ///'
+      TabPositionAndSize.Ok
+      warnlog "TabPositionAndSize IS up :-( Doesn't have to be, because object should be deleted !!!"
+    catch
+      Printlog " - There is no object in the document anymore :-)"
+    endcatch
+    sleep 1
+    '///+ <i> Edit->Paste </i> ///'
+    EditPaste
+    sleep 2
+    sTemp = fGetPositionX()
+    if LiberalMeasurement(sTemp, Ueber_Text_4) then
+        printlog "OK   Edit paste"
+    else
+      warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
+    end if
+    sleep 3
+    '/// close application ///'
+    Call hCloseDocument
 endcase
 
 '-------------------------------------------------------------------------------
 testcase tiEditPasteSpecial_HTML
-
+    
     dim Zaehler as integer
     Kontext "Standardbar"
     sleep 1
+    Call hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\frame1.htm")	'/// Load html document ///'
     sleep 5
     autoexecute=false
     Kontext "DocumentWriter"
@@ -271,137 +302,173 @@ testcase tiEditPasteSpecial_HTML
     autoexecute=true
     EditSelectAll
     sleep 3
+    EditCopy									'/// Copy selection ///'
     Sleep 2
+    FileClose									'/// Close document ///'
     sleep 3
+    Call hNewDocument								'/// Create new Impress document ///'
     sleep 1
+    EditPasteSpecial								'/// Edit paste special ///'
     sleep 1
     Kontext "InhaltEinfuegen"
     For Zaehler = 1 to Auswahl.GetItemCount
-        Auswahl.select Zaehler
-        printlog Zaehler, ". Selection = ", Auswahl.GetSelText
+       Auswahl.select Zaehler
+       printlog Zaehler, ". Selection = ", Auswahl.GetSelText
     next Zaehler
-
-    warnlog "formats for inserting Html <> 4"
-else
-    printlog "OK   4 formats for HTML-Document"
-end if
-
-sleep 3
-sleep 3
-try
-catch
-    Warnlog "-  Nothing inserted into document"
-endcatch
-sleep 3
-sleep 3
+    
+    if Auswahl.GetItemCount <> 4 then						'/// Controlling number of possible formats ///'
+      warnlog "formats for inserting Html <> 4"
+    else
+      printlog "OK   4 formats for HTML-Document"
+    end if
+    
+    sleep 3
+    InhaltEinfuegen.OK								'/// Paste clipboard content ///'
+    sleep 3
+    try
+     EditCopy									'/// Copy object back into clipboard ///'
+    catch
+     Warnlog "-  Nothing inserted into document"
+    endcatch
+    sleep 3
+    Call hCloseDocument  								'/// Close document ///'
+    sleep 3
 endcase
 
 '-------------------------------------------------------------------------------
 testcase tdEditPasteSpecial_Text
-
+    
     printlog "Insert Text"
+    call hNewDocument                 '/// new document  ///'
+    SetClipboard "I am a cool test-text in the Clipboard"  '/// put text into clipboard ///'
+    EditPasteSpecial                  '/// edit paste special ///'
     sleep 1
     Kontext "InhaltEinfuegen"
+    Auswahl.Select 1                  '/// select list entree 1 ///'
     printlog "Selection = ", Auswahl.GetSelText
     sleep 1
     if Auswahl.GetItemCount <> 1 then
-        warnlog "Selectionformat <> 1"
+      warnlog "Selectionformat <> 1"
     else
-        printlog "Format Text OK"
+      printlog "Format Text OK"
     end if
+    InhaltEinfuegen.OK                '/// close dialog ///'
     sleep 1
-
+    
+    Call hCloseDocument                   '/// close document ///'
 endcase
 
 '-------------------------------------------------------------------------------
 testcase tdEditPasteSpecial_Graphic
-
+    
     dim Zaehler as integer
-
+    
+    call hNewDocument                  '/// ^new document  ///'
     printlog "Insert graphic file"
-
+    InsertGraphicsFromFile               '/// insert graphic (sample.bmp)///'
+    
     Kontext "GrafikEinfuegenDlg"
-    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
-    Oeffnen.Click
+      Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+      Oeffnen.Click
     sleep 1
+    EditSelectAll                     '/// select graphic ///'
+    EditCut                     '/// cut graphic ///'
+    EditPasteSpecial                  '/// edit paste special ///'
     sleep 1
     Kontext "InhaltEinfuegen"
+    For Zaehler = 1 to Auswahl.GetItemCount         '/// get item count for Auswahl ///'
     Auswahl.select Zaehler
     printlog Zaehler, ". Selection = ", Auswahl.GetSelText
-next Zaehler
-
-warnlog "Format for insert graphic files should be 4, but is: " + Auswahl.GetItemCount
-else
-printlog "There are " + Auswahl.GetItemCount + " formats for graphic files"
-end if
-gMouseClick 90,90
-sleep 1
+    next Zaehler
+    
+    if Auswahl.GetItemCount <> 4 then            '/// check if item count = 4 ///'
+      warnlog "Format for insert graphic files should be 4, but is: " + Auswahl.GetItemCount
+    else
+      printlog "There are " + Auswahl.GetItemCount + " formats for graphic files"
+    end if
+    InhaltEinfuegen.OK                '/// insert graphic from clipboard ///'
+    gMouseClick 90,90
+    sleep 1
+    Call hCloseDocument                   '/// close document  ///'
 endcase
 
 '-------------------------------------------------------------------------------
 testcase tdEditPasteSpecial_Circle
 
-    dim Zaehler as integer
-    sleep 5
-    Kontext "Toolbar"
-    Ellipsen.Click
-    sleep 3
-    gMouseMove (20,20,80,80)
-    sleep 1
-    hTypeKeys "<escape>"
-    sleep 2
-    sleep 5
-    sleep 1
-    sleep 1
-    Kontext "InhaltEinfuegen"
-    Auswahl.select Zaehler
-    printlog Zaehler, ". Selection = ", Auswahl.GetSelText
-next Zaehler
-warnlog "Number of possible formats <> 4"
-else
-printlog "There are 4 formats for circle"
-end if
-sleep 1
-sleep 1
+   dim Zaehler as integer
+ call hNewDocument                  '/// new document  ///'
+  sleep 5
+  printlog "Insert circle"                '/// create circle ///'
+  Kontext "Toolbar"
+  Ellipsen.Click
+  sleep 3
+  gMouseMove (20,20,80,80)
+  sleep 1
+  hTypeKeys "<escape>"
+  sleep 2
+  EditSelectAll               '/// select circle ///'
+  sleep 5
+  EditCut                     '/// cut circle ///'
+  sleep 1
+  EditPasteSpecial                  '/// edit paste special ///'
+  sleep 1
+  Kontext "InhaltEinfuegen"
+  if EinfuegenAls.IsVisible Then EinfuegenAls.Check      '/// check "EinfuegenAls" ///'
+   For Zaehler = 1 to Auswahl.GetItemCount         '/// get item count for Auswahl ///'
+       Auswahl.select Zaehler
+       printlog Zaehler, ". Selection = ", Auswahl.GetSelText
+   next Zaehler
+   if Auswahl.GetItemCount <> 4 then            '/// check if item count = 4 ///'
+     warnlog "Number of possible formats <> 4"
+   else
+     printlog "There are 4 formats for circle"
+   end if
+  sleep 1
+  InhaltEinfuegen.OK                '/// paste circle ///'
+  sleep 1
+ Call hCloseDocument                   '/// close document  ///'
 endcase
 
 '-------------------------------------------------------------------------------
 testcase tiEditPasteSpecial
 
-    dim i as integer
-    dim x as integer
-    '   warnlog "TODOTBO: from draw, impress, math..."
-    gApplication   = "WRITER"
-    call hNewDocument
-    kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "abc<shift home>"
-    editcut
-    call hCloseDocument
-    gApplication   = "IMPRESS"
-    call hNewDocument
-    sleep 1
-
-    Printlog " get count of possibilities: "
-    EditPasteSpecial
-    sleep 1
-    Kontext "InhaltEinfuegen"
-    x = Auswahl.GetItemCount
-    for i = 1 to x
-        printlog " - " + i + " - " + Auswahl.GetItemText (i)
-    next i
-    InhaltEinfuegen.Cancel
-
-    Printlog " insert every possibility"
-    for i = 1 to x
-        Printlog " - processing number: "+i
-        EditPasteSpecial
-        sleep 1
-        Kontext "InhaltEinfuegen"
-        Auswahl.Select i
-        sleep 1
-        InhaltEinfuegen.OK
-        sleep 1
-    next i
+  dim i as integer
+  dim x as integer
+'   warnlog "TODOTBO: from draw, impress, math..."
+   '/// go into writer, type a text, select all, Edit->Cut, close writer ///'
+   '/// go into application to test, insert every format you can get from Edit->Paste->Special :-) ///'
+   gApplication   = "WRITER"
+   call hNewDocument
+   kontext "DocumentWriter"
+   DocumentWriter.TypeKeys "abc<shift home>"
+   editcut
+   call hCloseDocument
+   gApplication   = "IMPRESS"
+   call hNewDocument
+   sleep 1
+
+ Printlog " get count of possibilities: "
+   EditPasteSpecial
+   sleep 1
+   Kontext "InhaltEinfuegen"
+   x = Auswahl.GetItemCount
+   for i = 1 to x
+      printlog " - " + i + " - " + Auswahl.GetItemText (i)
+   next i
+   InhaltEinfuegen.Cancel
+
+ Printlog " insert every possibility"
+   for i = 1 to x
+   Printlog " - processing number: "+i
+      EditPasteSpecial
+      sleep 1
+      Kontext "InhaltEinfuegen"
+      Auswahl.Select i
+      sleep 1
+      InhaltEinfuegen.OK
+      sleep 1
+   next i
+   Call hCloseDocument  '/// close document ///'
 endcase
 
 '-------------------------------------------------------------------------------