diff options
Diffstat (limited to 'testautomation/framework/required/includes/topten.inc')
| -rwxr-xr-x | testautomation/framework/required/includes/topten.inc | 622 |
1 files changed, 311 insertions, 311 deletions
diff --git a/testautomation/framework/required/includes/topten.inc b/testautomation/framework/required/includes/topten.inc index 8fc5ac835af4..549fe8f56fd1 100755 --- a/testautomation/framework/required/includes/topten.inc +++ b/testautomation/framework/required/includes/topten.inc @@ -1,328 +1,328 @@ -'encoding UTF-8 Do not remove or change this line!
-'**************************************************************************
-'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'*
-'* Copyright 2008 by Sun Microsystems, Inc.
-'*
-'* OpenOffice.org - a multi-platform office productivity suite
-'*
-'* $RCSfile: topten.inc,v $
-'*
-'* $Revision: 1.1 $
-'*
-'* last change: $Author: jsi $ $Date: 2008-06-16 12:19:04 $
-'*
-'* This file is part of OpenOffice.org.
-'*
-'* OpenOffice.org is free software: you can redistribute it and/or modify
-'* it under the terms of the GNU Lesser General Public License version 3
-'* only, as published by the Free Software Foundation.
-'*
-'* OpenOffice.org is distributed in the hope that it will be useful,
-'* but WITHOUT ANY WARRANTY; without even the implied warranty of
-'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-'* GNU Lesser General Public License version 3 for more details
-'* (a copy is included in the LICENSE file that accompanied this code).
-'*
-'* You should have received a copy of the GNU Lesser General Public License
-'* version 3 along with OpenOffice.org. If not, see
-'* <http://www.openoffice.org/license.html>
-'* for a copy of the LGPLv3 License.
-'*
-'/************************************************************************
-'*
-'* owner : joerg.skottke@sun.com
-'*
-'* short description : Smoke test (load/save/clipboard)
-'*
-'\***********************************************************************
-
-sub topten
-
- gApplication = "WRITER"
- call Top_ten_test
-
- gApplication = "CALC"
- call Top_ten_test
-
- gApplication = "IMPRESS"
- call Top_ten_test
-
- gApplication = "DRAW"
- call Top_ten_test
-
- gApplication = "MATH"
- call Top_ten_test
-
- gApplication = "HTML"
- call Top_ten_test
-
- gApplication = "MASTERDOCUMENT"
- call Top_ten_test
-
-end sub
-
-'*******************************************************************************
-
-testcase Top_ten_test
-
dim sUserWorkDirectory as string
- dim sFilename_native as String
- dim sFilename_export as String
- dim sFilter_native as string
- dim sFilter_export as String
- dim bExportFile as boolean
-
- sUserWorkDirectory = gOfficePath & "user\work\"
+'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: topten.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 12:19:04 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/************************************************************************ +'* +'* owner : joerg.skottke@sun.com +'* +'* short description : Smoke test (load/save/clipboard) +'* +'\*********************************************************************** + +sub topten + + gApplication = "WRITER" + call Top_ten_test + + gApplication = "CALC" + call Top_ten_test + + gApplication = "IMPRESS" + call Top_ten_test + + gApplication = "DRAW" + call Top_ten_test + + gApplication = "MATH" + call Top_ten_test + + gApplication = "HTML" + call Top_ten_test + + gApplication = "MASTERDOCUMENT" + call Top_ten_test + +end sub + +'******************************************************************************* + +testcase Top_ten_test +
dim sUserWorkDirectory as string + dim sFilename_native as String + dim sFilename_export as String + dim sFilter_native as string + dim sFilter_export as String + dim bExportFile as boolean + + sUserWorkDirectory = gOfficePath & "user\work\" bExportFile = true - printlog( "Current document type: " & gApplication )
-
- ' set the filenames and their filters. HTML is not exported
- if ( gApplication = "HTML" ) then
- sFilename_native = "ls_test.html"
+ printlog( "Current document type: " & gApplication ) + + ' set the filenames and their filters. HTML is not exported + if ( gApplication = "HTML" ) then + sFilename_native = "ls_test.html" sFilename_export = "ls_test.htm" - bExportFile = FALSE
- else
- sFilename_native = "ls_test" & hGetSuffix( "current" )
- sFilename_export = "ls_test" & hGetSuffix( "569" )
- endif
-
- printlog( "File (current): " & sFilename_native )
- printlog( "File (src569).: " & sFilename_export )
+ bExportFile = FALSE + else + sFilename_native = "ls_test" & hGetSuffix( "current" ) + sFilename_export = "ls_test" & hGetSuffix( "569" ) + endif + + printlog( "File (current): " & sFilename_native ) + printlog( "File (src569).: " & sFilename_export ) - ' Delete the workfiles, they might have been left over by prior incomplete testrun
- hDeleteFile( sUserWorkDirectory & sFilename_native )
- hDeleteFile( sUserWorkDirectory & sFilename_export )
+ ' Delete the workfiles, they might have been left over by prior incomplete testrun + hDeleteFile( sUserWorkDirectory & sFilename_native ) + hDeleteFile( sUserWorkDirectory & sFilename_export ) - ' Set the API filternames for the current application (native XML format)
- select case gApplication
- case "WRITER" : sFilter_native = "writer8"
- case "CALC" : sFilter_native = "calc8"
- case "DRAW" : sFilter_native = "draw8"
- case "IMPRESS" : sFilter_native = "impress8"
- case "MATH" : sFilter_native = "math8"
- case "MASTERDOCUMENT" : sFilter_native = "writerglobal8"
+ ' Set the API filternames for the current application (native XML format) + select case gApplication + case "WRITER" : sFilter_native = "writer8" + case "CALC" : sFilter_native = "calc8" + case "DRAW" : sFilter_native = "draw8" + case "IMPRESS" : sFilter_native = "impress8" + case "MATH" : sFilter_native = "math8" + case "MASTERDOCUMENT" : sFilter_native = "writerglobal8" case "HTML" : sFilter_native = "HTML" - case else : warnlog "Invalid gApplication: " & gApplication
- end select
-
- printlog( "Create a new document" )
+ case else : warnlog "Invalid gApplication: " & gApplication + end select + + printlog( "Create a new document" ) call hNewDocument -
- printlog( "Clipboard" )
+ + printlog( "Clipboard" ) call CutCopyPaste -
- printlog( "Save (default-fileformat): " & sFilename_native )
- call hFileSaveAsKill ( sUserWorkDirectory & sFilename_native )
-
- if ( bExportFile ) then
-
- ' Set the API filternames for the current application (StarOffice 5.2 binary format)
- select case gApplication
- case "WRITER" : sFilter_export = "StarWriter 5.0"
- case "CALC" : sFilter_export = "StarCalc 5.0"
- case "DRAW" : sFilter_export = "StarDraw 5.0"
- case "IMPRESS" : sFilter_export = "StarImpress 5.0"
- case "MATH" : sFilter_export = "StarMath 5.0"
- case "MASTERDOCUMENT" : sFilter_export = "StarWriter 5.0/GlobalDocument"
- case else : warnlog "Invalid gApplication: " & gApplication
- end select
-
- printlog( "Save (5.2-fileformat): " & sFilename_export )
- hFileSaveAsWithFilterKill( sUserWorkDirectory & sFilename_export , sFilter_export )
-
- printlog( "Close" )
- FileClose
+ + printlog( "Save (default-fileformat): " & sFilename_native ) + call hFileSaveAsKill ( sUserWorkDirectory & sFilename_native ) + + if ( bExportFile ) then + + ' Set the API filternames for the current application (StarOffice 5.2 binary format) + select case gApplication + case "WRITER" : sFilter_export = "StarWriter 5.0" + case "CALC" : sFilter_export = "StarCalc 5.0" + case "DRAW" : sFilter_export = "StarDraw 5.0" + case "IMPRESS" : sFilter_export = "StarImpress 5.0" + case "MATH" : sFilter_export = "StarMath 5.0" + case "MASTERDOCUMENT" : sFilter_export = "StarWriter 5.0/GlobalDocument" + case else : warnlog "Invalid gApplication: " & gApplication + end select + + printlog( "Save (5.2-fileformat): " & sFilename_export ) + hFileSaveAsWithFilterKill( sUserWorkDirectory & sFilename_export , sFilter_export ) + + printlog( "Close" ) + FileClose + + ' There should be no alien warning + kontext "active" + If ( active.exists( 1 ) ) then + warnlog( "Unexpected messagebox: '" & active.getText & "'" ) + Active.Yes + else + printlog( "No more alien warning on closing the document. Good." ) + endif + else + FileClose + + kontext "active" + if ( Active.Exists( 1 ) ) then + warnlog( "Unexpected Active after saving: '" & active.getText & "'" ) + try + Active.Yes() + catch + Active.No() + endcatch + endif + endif - ' There should be no alien warning
- kontext "active"
- If ( active.exists( 1 ) ) then
- warnlog( "Unexpected messagebox: '" & active.getText & "'" )
- Active.Yes
- else
- printlog( "No more alien warning on closing the document. Good." )
- endif
- else
- FileClose
-
- kontext "active"
- if ( Active.Exists( 1 ) ) then
- warnlog( "Unexpected Active after saving: '" & active.getText & "'" )
- try
- Active.Yes()
- catch
- Active.No()
- endcatch
- endif
- endif
-
- printlog( "Load (default-fileformat): " & sFilename_native )
- call hFileOpen( sUserWorkDirectory & sFilename_native )
+ printlog( "Load (default-fileformat): " & sFilename_native ) + call hFileOpen( sUserWorkDirectory & sFilename_native ) - if ( bExportFile ) then
- printlog( "Change the document" )
- hChangeDoc()
- printlog( "Save" )
- hFileSave()
- endif
-
- printlog( "Close" )
- FileClose
-
if ( bExportFile ) then -
- printlog( "Load (5.2-fileformat): " & sFilename_export )
+ printlog( "Change the document" ) + hChangeDoc() + printlog( "Save" ) + hFileSave() + endif + + printlog( "Close" ) + FileClose + + if ( bExportFile ) then + + printlog( "Load (5.2-fileformat): " & sFilename_export ) call hFileOpen (sUserWorkDirectory & sFilename_export) -
- if ( gApplication = "MATH" AND iSprache = 84 AND gPlatform="lin" ) then
- try
- kontext "DocumentMath"
- DocumentMath.MouseDown(50,50)
- DocumentMath.MouseUp(50,50)
- qaErrorLog( "Use workaround focus problem for math and language vi/84" )
- ' Needed by AndreSchnabel, not manual reproduceable, only with TestTool
- catch
- qaErrorLog( "Workaround focus problem failed." )
- endcatch
+ + if ( gApplication = "MATH" AND iSprache = 84 AND gPlatform="lin" ) then + try + kontext "DocumentMath" + DocumentMath.MouseDown(50,50) + DocumentMath.MouseUp(50,50) + qaErrorLog( "Use workaround focus problem for math and language vi/84" ) + ' Needed by AndreSchnabel, not manual reproduceable, only with TestTool + catch + qaErrorLog( "Workaround focus problem failed." ) + endcatch endif - ' Modify the export document to trigger the alien warning on next save
- printlog( "Change the document" )
+ ' Modify the export document to trigger the alien warning on next save + printlog( "Change the document" ) hChangeDoc() -
- printlog( "Save" )
- FileSave
-
- Kontext "AlienWarning"
- if ( AlienWarning.exists( 3 ) ) then
- printlog( "Closing expected alien warning. Good." )
- AlienWarning.OK()
- else
- warnlog( "Alien warning is missing" )
- endif
-
- kontext "active"
- if ( Active.Exists( 3 ) ) then
- warnlog( "Unexpected messagebox: '" & active.getText & "'" )
+ + printlog( "Save" ) + FileSave + + Kontext "AlienWarning" + if ( AlienWarning.exists( 3 ) ) then + printlog( "Closing expected alien warning. Good." ) + AlienWarning.OK() + else + warnlog( "Alien warning is missing" ) + endif + + kontext "active" + if ( Active.Exists( 3 ) ) then + warnlog( "Unexpected messagebox: '" & active.getText & "'" ) Active.yes else - printlog( "No unexpected messages on save. Good." )
- endif
-
- printlog( "Close" )
- FileClose
-
- kontext "active"
- if ( Active.Exists() ) then
- warnlog( "Unexpected messagebox: '" & active.getText & "'" )
- Active.Yes()
- else
- printlog( "No more alien warning to close. Good." )
- endif
- endif
-
- hDeleteFile( sUserWorkDirectory & sFilename_native )
- hDeleteFile( sUserWorkDirectory & sFilename_export )
-
-endcase
-
-'*******************************************************************************
-
-sub CutCopyPaste
- dim sSelectAll as string
-
- ' In Spain Select All is CTRL+E; CTRL+A is FileOpen
- if (iSprache=34) then
- sSelectAll = "<Mod1 e>"
- else
- sSelectAll = "<Mod1 a>"
- endif
-
- select case gApplication
- case "WRITER", "HTML", "MASTERDOCUMENT"
- kontext "documentwriter"
- DocumentWriter.TypeKeys "This is a test.<Return>"
- printlog( " cut" )
- DocumentWriter.TypeKeys sSelectAll
- DocumentWriter.TypeKeys "<Mod1 x>"
- Wait( 500 )
- printlog( " paste" )
- DocumentWriter.TypeKeys "<Mod1 v>"
- Wait( 500 )
- printlog( " copy" )
- DocumentWriter.TypeKeys sSelectAll
- DocumentWriter.TypeKeys "<Mod1 c>"
- Wait( 500 )
- printlog( " paste" )
- DocumentWriter.TypeKeys "<Mod1 v>"
- Wait( 500 )
- case "CALC" : Kontext "DocumentCalc"
- DocumentCalc.TypeKeys "This is a test.<Return>"
- DocumentCalc.TypeKeys "<Up>"
- printlog( " cut" )
- DocumentCalc.TypeKeys "<Mod1 x>"
- Wait( 500 )
- printlog( " paste" )
- DocumentCalc.TypeKeys "<Down>"
- DocumentCalc.TypeKeys "<Mod1 v>"
- Wait( 500 )
- printlog( " copy" )
- DocumentCalc.TypeKeys "<Mod1 c>"
- Wait( 500 )
- printlog( " paste" )
- DocumentCalc.TypeKeys "<Down>"
- DocumentCalc.TypeKeys "<Mod1 v>"
- Wait( 500 )
- case "DRAW" : Kontext "DocumentDraw"
- hRechteckErstellen ( 30, 30, 60, 60 )
- gMouseClick ( 1, 1 )
- printlog( " cut" )
- DocumentDraw.TypeKeys sSelectAll
- DocumentDraw.TypeKeys "<Mod1 x>"
- Wait( 500 )
- printlog( " paste" )
- DocumentDraw.TypeKeys "<Mod1 v>"
- Wait( 500 )
- printlog( " copy" )
- gMouseClick ( 1, 1 )
- DocumentDraw.TypeKeys sSelectAll
- DocumentDraw.TypeKeys "<Mod1 c>"
- Wait( 500 )
- printlog( " paste" )
- gMouseClick ( 1, 1 )
- DocumentDraw.TypeKeys "<Mod1 v>"
- case "IMPRESS": Kontext "DocumentImpress"
- hRechteckErstellen ( 30, 30, 60, 60 )
- gMouseClick ( 1, 1 )
- printlog( " cut" )
- DocumentImpress.TypeKeys sSelectAll
- DocumentImpress.TypeKeys "<Mod1 x>"
- Wait( 500 )
- printlog( " paste" )
- DocumentImpress.TypeKeys "<Mod1 v>"
- Wait( 500 )
- printlog( " copy" )
- gMouseClick ( 1, 1 )
- DocumentImpress.TypeKeys sSelectAll
- DocumentImpress.TypeKeys "<Mod1 c>"
- Wait( 500 )
- printlog( " paste" )
- gMouseClick ( 1, 1 )
- DocumentImpress.TypeKeys "<Mod1 v>"
- case "MATH" : SchreibenInMathdok "a over b"
- printlog( " cut" )
- hUseAsyncSlot( "EditSelectAllMath" )
- hUseAsyncSlot( "EditCut" )
- printlog( " paste" )
- hUseAsyncSlot( "EditPaste" )
- printlog( " copy" )
- hUseAsyncSlot( "EditSelectAllMath" )
- hUseAsyncSlot( "EditCopy" )
- printlog( " paste" )
- hUseAsyncSlot( "EditPaste" )
-
- end select
-end sub
-
-
-
+ printlog( "No unexpected messages on save. Good." ) + endif + + printlog( "Close" ) + FileClose + + kontext "active" + if ( Active.Exists() ) then + warnlog( "Unexpected messagebox: '" & active.getText & "'" ) + Active.Yes() + else + printlog( "No more alien warning to close. Good." ) + endif + endif + + hDeleteFile( sUserWorkDirectory & sFilename_native ) + hDeleteFile( sUserWorkDirectory & sFilename_export ) + +endcase + +'******************************************************************************* + +sub CutCopyPaste + dim sSelectAll as string + + ' In Spain Select All is CTRL+E; CTRL+A is FileOpen + if (iSprache=34) then + sSelectAll = "<Mod1 e>" + else + sSelectAll = "<Mod1 a>" + endif + + select case gApplication + case "WRITER", "HTML", "MASTERDOCUMENT" + kontext "documentwriter" + DocumentWriter.TypeKeys "This is a test.<Return>" + printlog( " cut" ) + DocumentWriter.TypeKeys sSelectAll + DocumentWriter.TypeKeys "<Mod1 x>" + Wait( 500 ) + printlog( " paste" ) + DocumentWriter.TypeKeys "<Mod1 v>" + Wait( 500 ) + printlog( " copy" ) + DocumentWriter.TypeKeys sSelectAll + DocumentWriter.TypeKeys "<Mod1 c>" + Wait( 500 ) + printlog( " paste" ) + DocumentWriter.TypeKeys "<Mod1 v>" + Wait( 500 ) + case "CALC" : Kontext "DocumentCalc" + DocumentCalc.TypeKeys "This is a test.<Return>" + DocumentCalc.TypeKeys "<Up>" + printlog( " cut" ) + DocumentCalc.TypeKeys "<Mod1 x>" + Wait( 500 ) + printlog( " paste" ) + DocumentCalc.TypeKeys "<Down>" + DocumentCalc.TypeKeys "<Mod1 v>" + Wait( 500 ) + printlog( " copy" ) + DocumentCalc.TypeKeys "<Mod1 c>" + Wait( 500 ) + printlog( " paste" ) + DocumentCalc.TypeKeys "<Down>" + DocumentCalc.TypeKeys "<Mod1 v>" + Wait( 500 ) + case "DRAW" : Kontext "DocumentDraw" + hRechteckErstellen ( 30, 30, 60, 60 ) + gMouseClick ( 1, 1 ) + printlog( " cut" ) + DocumentDraw.TypeKeys sSelectAll + DocumentDraw.TypeKeys "<Mod1 x>" + Wait( 500 ) + printlog( " paste" ) + DocumentDraw.TypeKeys "<Mod1 v>" + Wait( 500 ) + printlog( " copy" ) + gMouseClick ( 1, 1 ) + DocumentDraw.TypeKeys sSelectAll + DocumentDraw.TypeKeys "<Mod1 c>" + Wait( 500 ) + printlog( " paste" ) + gMouseClick ( 1, 1 ) + DocumentDraw.TypeKeys "<Mod1 v>" + case "IMPRESS": Kontext "DocumentImpress" + hRechteckErstellen ( 30, 30, 60, 60 ) + gMouseClick ( 1, 1 ) + printlog( " cut" ) + DocumentImpress.TypeKeys sSelectAll + DocumentImpress.TypeKeys "<Mod1 x>" + Wait( 500 ) + printlog( " paste" ) + DocumentImpress.TypeKeys "<Mod1 v>" + Wait( 500 ) + printlog( " copy" ) + gMouseClick ( 1, 1 ) + DocumentImpress.TypeKeys sSelectAll + DocumentImpress.TypeKeys "<Mod1 c>" + Wait( 500 ) + printlog( " paste" ) + gMouseClick ( 1, 1 ) + DocumentImpress.TypeKeys "<Mod1 v>" + case "MATH" : SchreibenInMathdok "a over b" + printlog( " cut" ) + hUseAsyncSlot( "EditSelectAllMath" ) + hUseAsyncSlot( "EditCut" ) + printlog( " paste" ) + hUseAsyncSlot( "EditPaste" ) + printlog( " copy" ) + hUseAsyncSlot( "EditSelectAllMath" ) + hUseAsyncSlot( "EditCopy" ) + printlog( " paste" ) + hUseAsyncSlot( "EditPaste" ) + + end select +end sub + + + |