CWS-TOOLING: integrate CWS impress147

2008-12-16 15:51:15 +0100 wg  r265553 : i96805
2008-12-03 12:32:33 +0100 wg  r264766 : 96805
2008-12-03 11:40:11 +0100 wg  r264761 : 96805
2008-11-20 15:39:56 +0100 cl  r264062 : migrated cws from cvs to svn
2008-11-19 14:16:40 +0100 cl  r263992 : CWS-TOOLING: rebase CWS impress147 to trunk@263288 (milestone: DEV300:m35)

1 files changed, 66 insertions, 38 deletions

diff --git a/testautomation/graphics/required/includes/impress/im_007_.inc b/testautomation/graphics/required/includes/impress/im_007_.inc
index 4222d0ac24e4..10eafba41dfb 100755
--- a/testautomation/graphics/required/includes/impress/im_007_.inc
+++ b/testautomation/graphics/required/includes/impress/im_007_.inc
@@ -39,6 +39,7 @@
 
 ' this menue is only in impress availble
 testcase tSlideShowSlideShow
+
 '/// open application ///'
  Call hNewDocument
 '/// Slide Show->Slide Show Settings ///'
@@ -85,9 +86,11 @@ testcase tSlideShowSlideShow
     endcatch
 '/// close application ///'
  Call hCloseDocument
-endcase
 
+ endcase 'tSlideShowSlideShow
+'-------------------------------------------------------------------------------
 testcase tSlideShowRehearseTimings
+
     goto endsub
     '/// open application ///'
     Call hNewDocument
@@ -127,9 +130,11 @@ testcase tSlideShowRehearseTimings
     sleep 3
 '/// close application ///'
  Call hCloseDocument
-endcase
 
+ endcase 'tSlideShowRehearseTimings
+'-------------------------------------------------------------------------------
 testcase tSlideShowSlideShowSettings
+
 '/// open application ///'
  Call hNewDocument
    sleep 2
@@ -173,9 +178,11 @@ testcase tSlideShowSlideShowSettings
    Bildschirmpraesentation.Cancel
 '/// close application ///'
  Call hCloseDocument
-endcase
-
+ 
+endcase 'tSlideShowSlideShowSettings
+'-------------------------------------------------------------------------------
 testcase tSlideShowCustomSlideShow
+
    '/// open application ///'
    Call hNewDocument
    sleep 2
@@ -254,9 +261,11 @@ testcase tSlideShowCustomSlideShow
       endif
    '/// close application ///'
    Call hCloseDocument
-endcase
-
+   
+endcase 'tSlideShowCustomSlideShow
+'------------------------------------------------------------------------------
 testcase tSlideShowSlideTransition
+
     goto endsub '"#149943# - Outcommented tSlideShowSlideTransition due to bug."
     dim i as integer
     dim a as integer
@@ -356,9 +365,11 @@ testcase tSlideShowSlideTransition
         TransitionAutomaticPreview.Check
     '/// close application ///'
     Call hCloseDocument
-endcase
-
+    
+endcase 'tSlideShowSlideTransition
+'-------------------------------------------------------------------------------
 testcase tSlideShowShowHideSlide
+
 '/// open application ///'
  Call hNewDocument
 '/// create rectangle ///'
@@ -457,35 +468,38 @@ testcase tSlideShowAnimation
       Animation.Close
 '/// close application ///'
    Call hCloseDocument
-endcase
-
+   
+endcase 'tSlideShowShowHideSlide
+'-------------------------------------------------------------------------------
 testcase tSlideShowCustomAnimation
+
     dim bError as boolean
 
-    '/// open application ///'
+    printlog "open application"
     Call hNewDocument
-    '/// create textbox with text ///'
+    printlog "create textbox with text"
     Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 )
-    '/// Slide Show->Custom Animation... ///'
+    printlog "Slide Show->Custom Animation..."
     SlideShowCustomAnimation
         Kontext "Tasks"
-        '/// click button 'Add...' ///'
+        printlog "click button 'Add...'printlog "
         EffectAdd.click
-        '/// Dialog 'Custom Animation' comes up ///'
+        printlog "Dialog 'Custom Animation' comes up"
         kontext
-        '/// Switch to TabPage: Entrance ///'
+        printlog "Switch to TabPage: Entrance"
         active.setPage(TabEntrance)
         kontext "TabEntrance"
         if TabEntrance.exists(5) then
             DialogTest(TabEntrance)
-            '/// select in the listbox 'Effects' the second entry///'
+            printlog "select in the listbox 'Effects' the second entry"
             Effects.select(2)
             Speed.getItemCount
             AutomaticPreview.unCheck
             sleep 1
             AutomaticPreview.Check
             kontext
-            '/// Switch to TabPage: Emphasis ///'
+            
+            printlog "Switch to TabPage: Emphasis"
             active.setPage(TabEmphasis)
             kontext "TabEmphasis"
             if TabEmphasis.exists(5) then
@@ -495,7 +509,8 @@ testcase tSlideShowCustomAnimation
                 warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work."
             endif
             kontext
-            '/// Switch to TabPage: Exit ///'
+            
+            printlog "Switch to TabPage: Exit"
             active.setPage(TabExit)
             kontext "TabExit"
             if TabExit.exists(5) then
@@ -505,7 +520,8 @@ testcase tSlideShowCustomAnimation
                 warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work."
             endif
             kontext
-            '/// Switch to TabPage: Motion Paths ///'
+            
+            printlog "Switch to TabPage: Motion Paths"
             active.setPage(TabMotionPaths)
             kontext "TabMotionPaths"
             if TabMotionPaths.exists(5) then
@@ -515,20 +531,34 @@ testcase tSlideShowCustomAnimation
                 bError = true
                 warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work."
             endif
-            '/// Close dialog 'Custom Animation' with 'OK' ///'
+            kontext
+            '-----------------------------------------------------------------------
+            'printlog "Switch to tabpage: Misc Effects"
+            'active.setPage(TabMiscEffects)
+            'kontext "TabMiscEffects"
+            'if TabMiscEffects.exists(5) then
+            '    DialogTest(TabMiscEffects)
+            'else
+            '    bError = true
+            '    warnlog "Impress:TaskPane:CustomAnimation:TabMiscEffects tabPage does not work."
+            'endif
+            'kontext
+            '-----------------------------------------------------------------------
+            printlog "Close dialog 'Custom Animation' with 'OK'"
             TabMotionPaths.OK
             bError = false
         else
             bError = true
             warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work."
         endif
+
         Kontext "Tasks"
         if (NOT bError) then
-            '/// click button 'Change...' ///'
+            printlog "click button 'Change...'"
             EffectChange.click
-            '/// Dialog 'Custom Animation' comes up ///'
+            printlog "Dialog 'Custom Animation' comes up"
             kontext
-            '/// Switch to TabPage: Entrance ///'
+            printlog "Switch to TabPage: Entrance"
             active.setPage(TabEntrance)
             kontext "TabEntrance"
             if (NOT TabEntrance.exists(5)) then
@@ -540,14 +570,14 @@ testcase tSlideShowCustomAnimation
             if EffectProperty.isEnabled then
                 EffectProperty.getItemCount
             endif
-            '/// CLick on button '...' (Options) ///'
+            printlog "Click on button '...' (Options)"
             EffectOptions.click
             kontext "TabEffect"
             if TabEffect.exists(5) then
                 dialogTest(TabEffect)
                 Sound.getItemCount
                 AfterAnimation.getItemCount
-                '/// switch to TabPage 'Timing' ///'
+                printlog "switch to TabPage 'Timing'"
                 Kontext
                 active.setPage TabTiming
                 kontext "TabTiming"
@@ -564,7 +594,7 @@ testcase tSlideShowCustomAnimation
                 else
                     warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work."
                 endif
-                '/// switch to TabPage 'Timing' ///'
+                printlog "switch to TabPage 'Timing'"
                 Kontext
                 active.setPage TabTextAnimation
                 kontext "TabTextAnimation"
@@ -583,7 +613,7 @@ testcase tSlideShowCustomAnimation
             EffectSpeed.getItemCount
             EffectList.getItemCount
             EffectPlay.click
-            '/// Wait five seconds so the Playfunction has ended ///'
+            printlog "Wait five seconds so the Playfunction has ended "
             sleep 5
             EffectSlideShow.click
             sleep 1
@@ -596,14 +626,16 @@ testcase tSlideShowCustomAnimation
             endif
             kontext "Tasks"
             EffectAutomaticPreview.isChecked
-            '/// click button 'Remove' ///'
+            printlog "click button 'Remove'"
             EffectRemove.click
         endif
-    '/// close application ///'
+    printlog "close application"
     Call hCloseDocument
-endcase
-
+    
+endcase 'tSlideShowCustomAnimation
+'-------------------------------------------------------------------------------
 testcase tSlideShowInteraction
+
 '/// open application ///'
  Call hNewDocument
  sleep 2
@@ -691,9 +723,5 @@ testcase tSlideShowInteraction
       sleep 2
 '/// close application ///'
  Call hCloseDocument
-endcase
-
-
-
-
-
+ 
+endcase 'tSlideShowInteraction