Commits

Anonymous committed 8ac491b

automationdev300m85: #113549# refactor id_tools_2.inc

Comments (0)

Files changed (13)

testautomation/graphics/optional/i_only_updt_1.bas

     call im_004_
     call id_004
     call id_005
-    call id_006
+    call id_Tools
 
     Call hStatusOut
 end sub

testautomation/graphics/required/includes/global/gallery2.inc

             '///    + Deleting the graphic with <delete> of the keyboard
             '/// <i>Loop ends</i>
             x = LoadGraphic ( lsGraphics(t), corLoad )
+            sleep(1)
             printlog
         catch
             ExceptLog

testautomation/graphics/required/includes/global/id_001.inc

 '* short description :
 '*
 '\******************************************************************************
+sub id_001
 
+    printLog Chr(13) + "---------    id_001    ----------"
+
+    qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA"
+    call tiFilePassword
+    call tiFileSaveAs
+    call tiFileReload
+    call tiFileVersion
+    printlog " File->Send not possible to test, because extrnal prg get's called!"
+    call tiFileTemplates
+    '   Call tiFileNew instead i call:
+    call tmFileNewFromTemplate
+    call tmFileOpen
+    call tmFileClose
+    call tmFileSave
+    call tmFileSaveAs
+    call tmFileExit
+
+    call tmFileSaveAll
+    call tmFileProperties
+    call tdFileExport
+    call tmFilePrinterSetting
+    ' special cases
+    '   Call AutoPilot      'inc\desktop\autopilo.inc
+    call tmFileExit ' don't test because unpredictable behaviour
+end sub
+'------------------------------------------------------------------------------
 testcase tiFileSaveAs
 
     dim sFileName as string ' test document & new created doc

testautomation/graphics/required/includes/global/id_002.inc

 '* short description :
 '*
 '\******************************************************************************
+sub id_002
+
+    printLog Chr(13) + "---------    id_002    ----------"
+
+    call tiEditUndoRedo
+    call tiEditRepeat
+    call tiEditCutPasteCopySelectall
+    call tiEditPasteSpecial
+    call tiEditSearchAndReplace
+    call tiEditDuplicate
+    call tEditPoints
+    call tiEditFields
+    call tdEditDeleteSlide
+    call tiEditLinks
+    call tiEditImageMap
+    call tiEditObjectProperties
+    call tiEditObjectEdit
+    call tiEditPlugIn
+    call tiEditHyperlink
+end sub
+'-------------------------------------------------------------------------
 testcase tiEditUndoRedo
 
     printlog " open application"

testautomation/graphics/required/includes/global/id_003.inc

 '* short description :
 '*
 '\******************************************************************************
+
+sub id_003
+
+    printLog Chr(13) + "---------    id_003    ----------"
+
+    call tiViewNavigator
+    call tiViewZoom
+    call tiViewToolbar
+    Call tToolsCustomize			     'global\required\include
+    call tiViewDisplayQuality
+    call tiViewLayer
+    call tViewSnapLines
+    call tViewGrid
+end sub
+'-------------------------------------------------------------------------
 testcase tiViewNavigator
 
     printlog " open application "

testautomation/graphics/required/includes/global/id_004.inc

 '* short description :
 '*
 '\******************************************************************************
+sub id_004
+
+    printLog Chr(13) + "---------    id_004    ----------"
+
+    call tiInsertSlide
+    call tiInsertDuplicateSlide
+    ' v expand slide
+    '  v summary slide
+    call tiInsertField
+    call tiInsertSpecialCharacter
+    call tiInsertHyperlink
+    call tiInsertScan
+    call tiInsertGraphic
+    call tiInsertObjectSound
+    call tiInsertObjectVideo
+    call tiInsertObjectSound
+    call tiInsertObjectVideo
+    call tiInsertChart
+    call tiInsertObjectOLEObjects
+    call tiInsertSpreadsheet
+    call tiInsertFormula
+    call tiInsertFloatingFrame
+    call tiInsertFile
+    call tiInsertPlugin
+    call tiInsertSnappointLine
+    call tdInsertLayer ' IMPRESS: Edit->Layer->Insert
+end sub
+'------------------------------------------------------------------------------
 testcase tiInsertSlide
 
     printlog "Dateiname.settext Convertpath (gTesttoolPath + global\input\graf_inp\stabler.tif) "

testautomation/graphics/required/includes/global/id_005.inc

 '* short description :
 '*
 '\******************************************************************************
+sub id_005
+
+    printLog Chr(13) + "---------    id_005    ----------"
+
+    call tiFormatDefault
+    call tiFormatLine
+    call tdFormatArea
+    call tiFormatText
+    call tiFormatPositionAndSize
+    call tiFormatCharacter
+    call tiFormatControlForm
+    '       ^ Form
+    call tiFormatDimensions
+    call tiFormatConnector
+    call tiFormat3D_Effects
+    call tiFormatNumberingBullets
+    call tiFormatCaseCharacter
+    call tiFormatParagraph
+    call tiFormatPage
+    call tiFormatStylesAndFormatting
+    call tiFormatStylesSlideDesign
+    call tiFormatFontwork
+    call tiFormatGroup
+    printlog " format->group is also modify->group "
+    '        tiFormatLayer ' not in impress
+end sub
+'------------------------------------------------------------------------------
 testcase tiFormatDefault
 
     printlog "open application"

testautomation/graphics/required/includes/global/id_006.inc

 '* short description :
 '*
 '\**********************************************************************************
-
 sub id_Tools
     printLog "---------    id_006    ----------"
     call tiToolsSpellchecking

testautomation/graphics/required/includes/global/id_007.inc

 '*
 '* short description :
 '*
-'\**********************************************************************************
+'\******************************************************************************
 
+sub id_007
+
+    printLog Chr(13) + "---------    id_007    ----------"
+    ' in imp available via context menu, in draw via modify menu
+
+    call tdModifyFlipVertikal
+    call tdModifyFlipHorizontal
+    call tdContextConvertIntoCurve
+    call tdContextConvertIntoPolygon
+    call tdContextConvertIntoContour
+    call tdContextConvertInto3D
+    call tdContextConvertIntoRotationObject
+    call tdContextConvertIntoBitmap
+    call tdContextConvertIntoMetaFile
+    call tdModifyArrange
+    call tdModifyArrangeObjects
+    call tdModifyAlignment
+    call tdContextDistribution
+    call tdContextDescriptionObject
+    call tdContextNameObject
+    call tdModifyConnectBreak
+    call tdModifyShapes
+    call tdModifyCombineSplit
+end sub
+'-------------------------------------------------------------------------------
 testcase tdModifyFlipVertikal
 
     '/// open application ///'

testautomation/graphics/required/includes/global/id_008.inc

 '* short description :
 '*
 '\*****************************************************************
+sub id_008
 
+    printLog Chr(13) + "---------    id_008    ----------"
+
+    Call tiWindowNewWindow
+    call tidWindow123
+
+end sub
+'-------------------------------------------------------------------------------
 testcase tiWindowNewWindow
 
     '/// open application ///'

testautomation/graphics/required/includes/global/id_009.inc

 '* short description : Testcases to test the Help-Menu.
 '*
 '\******************************************************************************
-'
+sub id_009
+
+    printLog Chr(13) + "---------    id_009    ----------"
+
+    call tCheckIfTheHelpExists
+    Call tmHelpContents
+    Call tmHelpHelpAgent
+    Call tmHelpTips
+    Call tmHelpExtendedTips
+    Call tmHelpAboutStarOffice
+
+end sub
+'------------------------------------------------------------------------------
 testcase tmHelpHelpAgent
 
     Call hNewDocument

testautomation/graphics/required/includes/global/id_011.inc

 '* short description :
 '*
 '\******************************************************************************
+sub id_011
 
+    printLog Chr(13) + "---------    id_011    ----------"
+
+    call tdBezierToolbar
+    call tiDrawObjectBar
+    call tiTextToolbar
+    call tiGraphicsObjectBar
+    call tiGluepointToolbar
+
+end sub
+'-------------------------------------------------------------------------------
 testcase tiTextToolbar
 
     Dim iWaitIndex as integer

testautomation/graphics/tools/id_tools_2.inc

         end if
     next i
 end sub
-
-'-------------------------------------------------------------------------
-sub id_001
-
-    printLog Chr(13) + "---------    id_001    ----------"
-
-    qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA"
-    call tiFilePassword
-    call tiFileSaveAs
-    call tiFileReload
-    call tiFileVersion
-    printlog " File->Send not possible to test, because extrnal prg get's called!"
-    call tiFileTemplates
-    '   Call tiFileNew instead i call:
-    call tmFileNewFromTemplate
-    call tmFileOpen
-    call tmFileClose
-    call tmFileSave
-    call tmFileSaveAs
-    call tmFileExit
-
-    call tmFileSaveAll
-    call tmFileProperties
-    call tdFileExport
-    call tmFilePrinterSetting
-    ' special cases
-    '   Call AutoPilot      'inc\desktop\autopilo.inc
-    call tmFileExit ' don't test because unpredictable behaviour
-end sub
-
-'------------------------------------------------------------------------------
-sub id_002
-
-    printLog Chr(13) + "---------    id_002    ----------"
-
-    call tiEditUndoRedo
-    call tiEditRepeat
-    call tiEditCutPasteCopySelectall
-    call tiEditPasteSpecial
-    call tiEditSearchAndReplace
-    call tiEditDuplicate
-    call tEditPoints
-    call tiEditFields
-    call tdEditDeleteSlide
-    call tiEditLinks
-    call tiEditImageMap
-    call tiEditObjectProperties
-    call tiEditObjectEdit
-    call tiEditPlugIn
-    call tiEditHyperlink
-end sub
-
-'-------------------------------------------------------------------------
-sub id_003
-
-    printLog Chr(13) + "---------    id_003    ----------"
-
-    call tiViewNavigator
-    call tiViewZoom
-    call tiViewToolbar
-    Call tToolsCustomize			     'global\required\include
-    call tiViewDisplayQuality
-    call tiViewLayer
-    call tViewSnapLines
-    call tViewGrid
-end sub
-
-'-------------------------------------------------------------------------
-sub id_004
-
-    printLog Chr(13) + "---------    id_004    ----------"
-
-    call tiInsertSlide
-    call tiInsertDuplicateSlide
-    ' v expand slide
-    '  v summary slide
-    call tiInsertField
-    call tiInsertSpecialCharacter
-    call tiInsertHyperlink
-    call tiInsertScan
-    call tiInsertGraphic
-    call tiInsertObjectSound
-    call tiInsertObjectVideo
-    call tiInsertObjectSound
-    call tiInsertObjectVideo
-    call tiInsertChart
-    call tiInsertObjectOLEObjects
-    call tiInsertSpreadsheet
-    call tiInsertFormula
-    call tiInsertFloatingFrame
-    call tiInsertFile
-    call tiInsertPlugin
-    call tiInsertSnappointLine
-    call tdInsertLayer ' IMPRESS: Edit->Layer->Insert
-end sub
-
-'------------------------------------------------------------------------------
-sub id_005
-
-    printLog Chr(13) + "---------    id_005    ----------"
-
-    call tiFormatDefault
-    call tiFormatLine
-    call tdFormatArea
-    call tiFormatText
-    call tiFormatPositionAndSize
-    call tiFormatCharacter
-    call tiFormatControlForm
-    '       ^ Form
-    call tiFormatDimensions
-    call tiFormatConnector
-    call tiFormat3D_Effects
-    call tiFormatNumberingBullets
-    call tiFormatCaseCharacter
-    call tiFormatParagraph
-    call tiFormatPage
-    call tiFormatStylesAndFormatting
-    call tiFormatStylesSlideDesign
-    call tiFormatFontwork
-    call tiFormatGroup
-    printlog " format->group is also modify->group "
-    '        tiFormatLayer ' not in impress
-end sub
-
-'------------------------------------------------------------------------------
-sub id_006
-
-    printLog Chr(13) + "---------    id_006    ----------"
-
-    call tiToolsSpellchecking
-    call tiToolsSpellcheckingAutomatic
-    call tiToolsThesaurus
-    call tiToolsHyphenation
-    call tiToolsAutoCorrect
-    call tChineseTranslation
-    call tiToolsMacro
-    call tiToolsGallery
-    call tiToolsEyedropper
-    call tiToolsOptions ' get just called one time here...
-    Call tToolsOptionsTest ' global one
-end sub
-
 '-------------------------------------------------------------------------------
-sub id_007
-
-    printLog Chr(13) + "---------    id_007    ----------"
-    ' in imp available via context menu, in draw via modify menu
-
-    call tdModifyFlipVertikal
-    call tdModifyFlipHorizontal
-    call tdContextConvertIntoCurve
-    call tdContextConvertIntoPolygon
-    call tdContextConvertIntoContour
-    call tdContextConvertInto3D
-    call tdContextConvertIntoRotationObject
-    call tdContextConvertIntoBitmap
-    call tdContextConvertIntoMetaFile
-    call tdModifyArrange
-    call tdModifyArrangeObjects
-    call tdModifyAlignment
-    call tdContextDistribution
-    call tdContextDescriptionObject
-    call tdContextNameObject
-    call tdModifyConnectBreak
-    call tdModifyShapes
-    call tdModifyCombineSplit
-end sub
-
-'-------------------------------------------------------------------------------
-sub id_008
-
-    printLog Chr(13) + "---------    id_008    ----------"
-
-    Call tiWindowNewWindow
-    call tidWindow123
-end sub
-
-'------------------------------------------------------------------------------
-sub id_009
-
-    printLog Chr(13) + "---------    id_009    ----------"
-
-    call tCheckIfTheHelpExists
-    Call tmHelpContents
-    Call tmHelpHelpAgent
-    Call tmHelpTips
-    Call tmHelpExtendedTips
-    Call tmHelpAboutStarOffice
-
-end sub
-
-'------------------------------------------------------------------------------
-sub id_011
-
-    printLog Chr(13) + "---------    id_011    ----------"
-
-    call tdBezierToolbar
-    call tiDrawObjectBar
-    call tiTextToolbar
-    call tiGraphicsObjectBar
-    call tiGluepointToolbar
-
-end sub
-
-'-------------------------------------------------------------------------------'
-
 sub hWalkTheStyles (optional a as integer,optional b as integer)
     dim i as integer