1. mst
  2. ooo340

Commits

Jens-Heiner Rechtien  committed 74eb730 Merge

CWS-TOOLING: integrate CWS automationooo330m9

  • Participants
  • Parent commits 0433ae0, a25f033
  • Branches default

Comments (0)

Files changed (12)

File testautomation/framework/required/includes/script_organizers.inc

View file
  • Ignore whitespace
     dim iCurrentDialog as integer
 
     dim iDiffCount as integer
+    dim max_diffcount as integer
 
     hInitSingleDoc()
 
         case DLG_JAVASCRIPT: ToolsMacrosOrganizeMacrosJavaScript
             kontext "ScriptOrganizer"
             hGetAllNodeNames( ScriptTreeList, cScriptNamesList() )
+            max_diffcount = 0
         case DLG_BEANSHELL: ToolsMacrosOrganizeMacrosBeanShell
             kontext "ScriptOrganizer"
             hGetAllNodeNames( ScriptTreeList, cScriptNamesList() )
+            max_diffcount = 0
         case DLG_PYTHON: ToolsMacrosOrganizeMacrosPython
             kontext "ScriptOrganizer"
             hGetAllNodeNames( ScriptTreeList, cScriptNamesList() )
+            max_diffcount = 0
         case DLG_BASIC_ORG: ToolsMacro_uno
             Kontext "Makro"
             hGetScriptNames( MakroAus, MakroListe, cScriptNamesList() )
+            max_diffcount = 6
         case DLG_RUN_MACRO: ToolsMacrosRunMacro
             kontext "ScriptSelector"
             hGetScriptNames( LibraryTreeList, ScriptList, cScriptNamesList() )
+            max_diffcount = 6
         end select
         
         printlog( "Compare to reference list, create new one if differences were found" )
-        iDiffCount = hManageComparisionList( sFileIn, sFileOut, cScriptNamesList() )
+        iDiffCount = abs( hManageComparisionList( sFileIn, sFileOut, cScriptNamesList() ) )
 
-        if ( iDiffCount <> 0 ) then warnlog( "The number of scripts has changed, please review." )
-
+        ' Usually we should have 0 differences in the list. However, as we do not have
+        ' a unique way of installing the office (Root-Installation, archives and
+        ' others) we need a little tolerance here. If a number of bundled extensions
+        ' are installed, we have more scripts.
+        if ( iDiffCount > max_diffcount ) then warnlog( "The number of scripts has changed, please review." )
 
         printlog( "Close <" & sDialog & ">" )
         select case ( sDialog ) 

File testautomation/math/optional/includes/m_105.inc

View file
  • Ignore whitespace
     dim bChecked as boolean
     dim sFileName as string
     dim sAllSymbols as string
-    dim lAllSymbols(100) as string
-    dim lAllSymbolsSort(100) as string
+    dim lAllSymbols(200) as string
+    dim lAllSymbolsSort(200) as string
     dim iTimeOut as integer
     dim sFilterName as string
     dim sFilter as string
             '/// There are 2 Symbol sets: 1. 'Greek' with 54 entries and 2. 'Special' with 12 entries ///'
             '///+ These symbol set names are availble in 2 listboxes 1. 'Old Symbol Set' and 2. 'Symbol Set' ///'
             iSymbolSets = OldSymbolSet.GetItemCount
-            if (iSymbolSets <> 2) then
-                WarnLog "- OldSymbolSet: '" + iSymbolSets + "' is not 2; expected is 2. ('Special' and 'Greek')"
+            if (iSymbolSets <> 3) then
+                WarnLog "- OldSymbolSet: '" + iSymbolSets + "' is not 3; expected is 3. ('Special' and 'Greek' and 'iGreek')"
                 for i = 1 to iSymbolSets
                     qaErrorLog "- " + i + ": '" + OldSymbolSet.GetItemText(i) + "'"
                 next i
                 '///+ insert the copied text into the document ///'
                 DocumentWriter.typeKeys "<Mod1 End> - " + sTemp + ": " + j + "<Tab>"
                 sAllSymbols = sAllSymbols + sTemp
-                listAppend(lAllSymbols(), sTemp)
+                listAppend(lAllSymbols(), rTrim(sTemp))
             next j
         next i
 
-    if (listCount(lAllSymbols()) <> 66) then
-        warnlog "There have to be 66 Symbols, but there are: " + listCount(lAllSymbols())
+    if (listCount(lAllSymbols()) <> 106) then
+        warnlog "There have to be 106 Symbols, but there are: " + listCount(lAllSymbols())
     endif
     ' TODO: check sAllSymbols for not allowed characters!
     listCopy(lAllSymbols(),lAllSymbolsSort())
                 Kontext "EditSymbols"
                 if EditSymbols.exists then
                     iStartingSymbolSetCount = SymbolSet.getItemCount
-                    if iStartingSymbolSetCount <> 2 then
-                        qaErrorLog "There are already other symbolsets, instead of 2: " + iStartingSymbolSetCount
+                    if iStartingSymbolSetCount <> 3 then
+                        qaErrorLog "There are already other symbolsets, instead of 3: " + iStartingSymbolSetCount
                         for i = 1 to iStartingSymbolSetCount
                             printlog "("+i+"/"+iStartingSymbolSetCount+"): '" + SymbolSet.getItemText (i) + "'"
                         next i
         endif
             Kontext "SymboleMath"
             j = symbolset.getItemCount
-            if j <> 2 then
-                warnlog "There is a number != 2 of symbollists listed"
+            if j <> 3 then
+                warnlog "There is a number != 3 of symbollists listed"
             else
                 printlog "Everything is cleaned up."
             endif

File testautomation/xml/optional/c_datapilot_pagefields.bas

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@Sun.COM
+'* owner : oliver.craemer@Sun.COM
 '*
 '* short description  :  Lookup for correct attributes of datapilot pagefields
 '*

File testautomation/xml/optional/c_xml_print_scale.bas

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@Sun.COM
+'* owner : oliver.craemer@Sun.COM
 '*
 '* short description  :  Lookup for correct attributes for calc print scaling
 '*

File testautomation/xml/optional/c_xml_scenario.bas

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@Sun.COM
+'* owner : oliver.craemer@Sun.COM
 '*
 '* short description  :  Lookup for correct attributes of calc scenarios
 '*

File testautomation/xml/optional/calc_xml_7_export.bas

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@oracle.com
+'* owner : oliver.craemer@oracle.com
 '*
 '* short description : Export test for the Calc XML 6.0/7/OOo 1.x format
 '*

File testautomation/xml/optional/ch_xml_japanese_candlestick.bas

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@Sun.COM
+'* owner : oliver.craemer@Sun.COM
 '*
 '* short description  :  Detailed test of the chart types
 '*

File testautomation/xml/optional/includes/c_xml_print_scale.inc

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@oracle.com
+'* owner : oliver.craemer@oracle.com
 '*
 '* short description : Check content.xml and styles.xml for correct print scaling settings
 '*

File testautomation/xml/optional/includes/c_xml_scenario.inc

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@oracle.com
+'* owner : oliver.craemer@oracle.com
 '*
 '* short description : Check content.xml for correct scenario attributes
 '*

File testautomation/xml/optional/includes/sxc7_01.inc

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@oracle.com
+'* owner : oliver.craemer@oracle.com
 '*
 '* short description : XML Calc Include File
 '*

File testautomation/xml/optional/includes/sxc7_02.inc

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@oracle.com
+'* owner : oliver.craemer@oracle.com
 '*
 '* short description : XML Calc Include File
 '*

File testautomation/xml/optional/includes/sxc7_03.inc

View file
  • Ignore whitespace
 '
 '/************************************************************************
 '*
-'* owner : oliver.creamer@oracle.com
+'* owner : oliver.craemer@oracle.com
 '*
 '* short description : XML Calc Include File
 '*