From bd7c28f9047c54b70a268efc572a14d570926446 Mon Sep 17 00:00:00 2001
From: "Joerg Skottke [jsk]" <jsk@openoffice.org>
Date: Wed, 20 Oct 2010 08:12:34 +0200
Subject: automationdev300m87: #i112208 - Fix two test cases, remove a few
 unnecessary sleeps

---
 .../optional/includes/so7pp1/c_so7_pp1_ibis.inc    | 91 +++++++++++-----------
 1 file changed, 45 insertions(+), 46 deletions(-)

(limited to 'testautomation/spreadsheet')

diff --git a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc
index 2514945a6d42..9e25d898d8ce 100644
--- a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc
+++ b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc
@@ -27,7 +27,7 @@
 '**
 '** owner : oliver.craemer@Sun.COM
 '**
-'** short description :  Test IBIS bug fixes 
+'** short description :  Test IBIS bug fixes
 '**
 '************************************************************************
 ' **
@@ -40,20 +40,17 @@
 testcase tIBIS111099
 
     Dim testdoc as string
-    testdoc = convertpath(gOfficePath & "user/work/111099.xls")
-    Printlog "Copy testdocument locally"
-    app.FileCopy convertpath(gTesttoolpath & "spreadsheet\optional\input\111099.xls"),gOfficePath + ConvertPath("user/work/111099.xls")
+    testdoc = convertpath( gTesttoolpath & "spreadsheet\optional\input\111099.xls" )
+
     printlog " Open the test document"
     hFileOpenLocally(testdoc)
-    '/// Invoke Control Toolbar
-    '///+ Try to click control 'Push Button'
-    '///+> <ul><li>Click successful - BUG #111099#</li>
-    '///+ <li>Click fails - document opened as expected in non-design mode</li>
+
+    printlog " Select formcontrols toolbar"
     Call hToolbarSelect("CONTROLS", true)
     sleep(2)
     Kontext "FormControls"
-    if SwitchControlDesignMode.IsEnabled then 
-        if SwitchControlDesignMode.getState(2) = 0 then 
+    if SwitchControlDesignMode.IsEnabled then
+        if SwitchControlDesignMode.getState(2) = 0 then
             printlog "OK, design mode is disabled"
         else
             warnlog "#i108315# Document is opened in design mode -> #111099#"
@@ -62,27 +59,27 @@ testcase tIBIS111099
         printlog "Form controls toolbar was not enabled."
     end if
     call hCloseDocument
+    hDeleteFile( gLastWorkFile )
 endcase
 
 '-------------------------------------------------------------------------
 
 testcase tIBIS111158
 
-    Dim testdoc as string 
+    Dim testdoc as string
     Dim testString as string
-    testdoc = convertpath(gOfficePath & "user/work/111158.xls")
-    
-    Printlog "Copy testdocument locally"
-    app.FileCopy convertpath(gTesttoolpath & "spreadsheet\optional\input\111158.xls"),gOfficePath + ConvertPath("user/work/111158.xls")
+    testdoc = convertpath( gTesttoolpath & "spreadsheet\optional\input\111158.xls" )
+
     printlog " Open the test document"
     hFileOpenLocally(testdoc)
+
     Kontext "Standardbar"
-    '/// If 'Form Controls' toolbar is not visible: View / Toolbars / Form Controls     
+    '/// If 'Form Controls' toolbar is not visible: View / Toolbars / Form Controls
     Call hToolbarSelect("CONTROLS", true)
     sleep(2)
     Kontext "FormControls"
     try
-    	if SwitchControlDesignMode.GetState(2) = 0 then
+        if SwitchControlDesignMode.GetState(2) = 0 then
             '/// Click on 'Design Mode on/off' button on 'Form Controls'-toolbar
             SwitchControlDesignMode.click
             sleep(2)
@@ -93,7 +90,7 @@ testcase tIBIS111158
         call hCloseDocument
         goto endsub
     endcatch
-    '/// Click on 'Form Design' button on 'Form Controls'-toolbar                
+    '/// Click on 'Form Design' button on 'Form Controls'-toolbar
     FormDesignTools.Click
     sleep(2)
     Kontext "FormDesignTools"
@@ -109,9 +106,9 @@ testcase tIBIS111158
         Call hCloseDocument
         goto endsub
     end if
-      
-'/// Select the first 'ComboxBox' (9th entry from the top)
-'/// Open context menu
+
+    '/// Select the first 'ComboxBox' (9th entry from the top)
+    '/// Open context menu
     Kontext "FormularNavigator"
     Liste.TypeKeys "<HOME>" , true
     sleep(1)
@@ -121,32 +118,33 @@ testcase tIBIS111158
     sleep(2)
     '/// Open 'Properties' (last entry)
     hMenuSelectNr(5)
-    sleep(2)      
+    sleep(2)
     Kontext "ControlPropertiesDialog"
     Kontext "ControlPropertiesTabControl"
     ControlPropertiesTabControl.SetPage TabGeneralControl
     Kontext "TabGeneralControl"
     '/// Enter in 'Help URL' as value exactly 'HID:123456'
-    TabGeneralControl.TypeKeys "<TAB>" , true        
+    TabGeneralControl.TypeKeys "<TAB>" , true
     HelpURL.setText "HID:123456"
     HelpURL.TypeKeys "<RETURN>",true
-    if HelpURL.GetText <> "HID:123456" then 
+    if HelpURL.GetText <> "HID:123456" then
         warnlog "'HID:123456' has not been accepted as 'Help URL' value."
     end if
-    '/// Close all disturbing menus
-    Kontext "ControlPropertiesDialog" 
-    sleep(1)
-    ControlPropertiesDialog.close
-    sleep(2)
+
+    Kontext "ControlPropertiesDialog"
+    hCloseDialog( ControlPropertiesDialog, "close" )
+
     Kontext "FormularNavigator"
-    FormularNavigator.close
+    hCloseDialog( FormularNavigator, "close" )
+
     Kontext "FormDesignTools"
-    FormDesignTools.close
+    hCloseDialog( FormDesignTools, "close" )
+
     Kontext "FormControls"
     '/// Switch back from the design mode
     SwitchControlDesignMode.click
-    FormControls.close
-    sleep(1)
+    hCloseDialog( FormControls, "close" )
+
     '/// Check for right initial string ('Please select one:')in control
     Kontext "MSC_Special_Dialog"
     if MSC_Special_Dialog.Exists(3) then
@@ -160,12 +158,13 @@ testcase tIBIS111158
         warnlog "The control seems to be not named in the document?! Verify! If Solaris: #i100870#"
     end if
     call hCloseDocument
+    hFileDelete( gLastWorkFile )
 endcase
 
 '-------------------------------------------------------------------------
 
 testcase tIBIS111711
-printlog "iBIS Task 111711"
+    printlog "iBIS Task 111711"
 
     printlog " Create a new document"
     call hNewDocument
@@ -174,12 +173,12 @@ printlog "iBIS Task 111711"
     DocumentCalc.typekeys "1<RETURN>2<RETURN><UP>"
     sleep(2)
 
-'/// create a chart from the content
-'/// + NOTE: Do NOT leave the Implace mode
+    '/// create a chart from the content
+    '/// + NOTE: Do NOT leave the Implace mode
     InsertChartCalc
     '/// The Chart wizard occours
     Kontext "ChartWizard"
-    '/// On the chart wizard press OK button 
+    '/// On the chart wizard press OK button
     if ChartWizard.Exists(2) then
         printlog "Create chart"
         ChartWizard.OK
@@ -188,31 +187,31 @@ printlog "iBIS Task 111711"
         warnlog "Chart wizard did not occour! Exiting test case."
         call hCloseDocument
         goto endsub
-    end if    
-'/// Call slot Window->New Window
+    end if
+    '/// Call slot Window->New Window
     Kontext "DocumentCalc"
     DocumentCalc.typekeys "<ESCAPE>"
     WindowNewWindow
     sleep(2)
     call gMouseClick(95,95)
 
-'/// Select chart in new window
+    '/// Select chart in new window
     Kontext "DocumentCalc"
     call fselectFirstOLE
     sleep(2)
-  
-'/// Delete chart in new window ...
-'/// ... and check for crash
+
+    '/// Delete chart in new window ...
+    '/// ... and check for crash
     Kontext "DocumentCalc"
-    try  
+    try
         DocumentCalc.typekeys "<DELETE>"
         sleep (2)
         printlog "OK, there are still " & GetDocumentCount & " documents open"
-    catch 
+    catch
         warnlog "Probably the office did crash -> #111711#"
         call hCloseDocument
         goto endsub
-    endcatch  
+    endcatch
     call hCloseDocument
 endcase
 
-- 
cgit