1 files changed, 127 insertions, 0 deletions
diff --git a/testautomation/framework/required/includes/script_organizers.inc b/testautomation/framework/required/includes/script_organizers.inc
new file mode 100755
index 000000000000..6082a3313ce0
--- /dev/null
+++ b/testautomation/framework/required/includes/script_organizers.inc
@@ -0,0 +1,127 @@
+'encoding UTF-8  Do not remove or change this line!
+'*******************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' 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 : Verify names of macros and scripts
+'*
+'\******************************************************************************
+
+testcase tUpdtScriptCount
+    dim sDialog as string
+
+    printlog( "Resource test for macros and scripts / related dialogs" )
+
+    const SCRIPTING_DIALOGS = 5
+
+    dim aScriptCount( SCRIPTING_DIALOGS )
+    
+    aScriptCount( 1 ) = 10 ' JavaScript
+    aScriptCount( 2 ) = 14 ' BeanShell
+
+    if ( lcase( gPlatform ) = "osx" ) then
+        aScriptCount( 3 ) = 8 ' Python
+        aScriptCount( 5 ) = 600 ' Run Macro
+    else
+        aScriptCount( 3 ) = 10 ' Python
+        aScriptCount( 5 ) = 602 ' Run Macro
+    endif
+
+    if ( gOOo ) then
+        aScriptCount( 4 ) = 585 ' Makro Organizer
+        aScriptCount( 5 ) = aScriptCount( 5 ) - 1 ' Run Macro
+    else
+        ' Makro Organizer
+        aScriptCount( 4 ) = 586
+    endif
+
+    dim iCurrentDialog as integer
+    dim iCurrentScriptCount as integer
+    
+    hInitSingleDoc()
+
+    for iCurrentDialog = 1 to SCRIPTING_DIALOGS
+
+        printlog( "" )
+        select case iCurrentDialog
+        case 1: sDialog = "JavaScript" 
+                ToolsMacrosOrganizeMacrosJavaScript
+                kontext "ScriptOrganizer"
+                iCurrentScriptCount = hExpandAllNodes( ScriptTreeList )
+                ScriptOrganizer.cancel()                 
+        case 2: sDialog = "BeanShell"
+                ToolsMacrosOrganizeMacrosBeanShell
+                kontext "ScriptOrganizer"
+                iCurrentScriptCount = hExpandAllNodes( ScriptTreeList )
+                ScriptOrganizer.cancel()                
+        case 3: sDialog = "Python"
+                ToolsMacrosOrganizeMacrosPython
+                kontext "ScriptOrganizer"
+                iCurrentScriptCount = hExpandAllNodes( ScriptTreeList )
+                ScriptOrganizer.cancel()                
+        case 4: sDialog = "Makro Organizer"
+                ToolsMacro_uno
+                Kontext "Makro"
+                hExpandAllNodes( MakroAus )
+                iCurrentScriptCount = hGetScriptCount( MakroAus, MakroListe )
+                Makro.close()                
+        case 5: sDialog = "Run Macro"
+                ToolsMacrosRunMacro
+                kontext "ScriptSelector"
+                hExpandAllNodes( LibraryTreeList )
+                iCurrentScriptCount = hGetScriptCount( LibraryTreeList, ScriptList )
+                ScriptSelector.cancel()                
+        end select
+
+        printlog( sDialog )
+        
+        if ( aScriptCount( iCurrentDialog ) <> iCurrentScriptCount ) then
+            warnlog( "Incorrect number of scripts for this dialog: '" + sDialog + "' expected:" + aScriptCount( iCurrentDialog ) + ", but is:" & iCurrentScriptCount )
+        else
+            printlog( "Number of scripts is ok" )
+        endif
+        
+    next iCurrentDialog
+    
+    hCloseDocument()
+
+endcase
+
+'*******************************************************************************
+
+function hGetScriptCount( oTree as object, oList as object ) as integer
+
+    dim iCurrentTreeItem as integer
+    dim iScriptCount as integer : iScriptCount = 0
+    
+    for iCurrentTreeItem = 1 to oTree.getItemCount()
+        oTree.select( iCurrentTreeItem )
+        iScriptCount = iScriptCount + oList.getItemCount()
+    next iCurrentTreeItem
+    hGetScriptCount() = iScriptCount
+    
+end function