1. mst
  2. ooo340

Commits

Joerg Skottke [jsk]  committed 11668e5 Merge

automationdev300m87: Merge with changes from HDE (23bd77f198c9)

  • Participants
  • Parent commits 4f00012, 23bd77f
  • Branches default

Comments (0)

Files changed (10)

File testautomation/graphics/optional/includes/global/export_graphic.inc

View file
  • Ignore whitespace
 
 testcase tEPS
 
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
     dim x as integer
     dim i as integer
 
 '-------------------------------------------------------------------------
 testcase tPCT
 
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
+
     dim x as integer
     dim i as integer
     dim iWaitIndex as integer
 endcase 'tPCT
 '-------------------------------------------------------------------------------
 testcase tPBM
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "PBM - Portable Bitmap (.pbm)"
     const sExt = ".pbm"
 endcase 'tPBM
 '-------------------------------------------------------------------------------
 testcase tPGM
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "PGM - Portable Graymap (.pgm)"
     const sExt = ".pgm"
 endcase 'tPGM
 '-------------------------------------------------------------------------------
 testcase tPPM
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "PPM - Portable Pixelmap (.ppm)"
     const sExt = ".ppm"
 endcase 'tPPM
 '------------------------------------------------------------------------------
 testcase tRAS
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "RAS - Sun Raster Image (.ras)"
     const sExt = ".ras"
 endcase 'tRAS
 '------------------------------------------------------------------------------
 testcase tTIFF
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     dim x as integer
     dim i as integer
 endcase 'tTIFF
 '------------------------------------------------------------------------------
 testcase tXPM
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "XPM - X PixMap (.xpm)"
     const sExt = ".xpm"
 endcase 'tXPM
 '-------------------------------------------------------------------------------
 testcase tGIF
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "GIF - Graphics Interchange Format (.gif)"
     const sExt = ".gif"
 endcase 'tGIF
 '-------------------------------------------------------------------------------
 testcase tJPEG
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)"
     const sExt = ".jpg"

File testautomation/graphics/optional/includes/global/export_graphic_2.inc

View file
  • Ignore whitespace
 '\******************************************************************************
 testcase tPNG
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim iWaitIndex as integer
 '-------------------------------------------------------------------------------
 testcase tSVM
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
+
     dim x as integer
     dim i as integer
     dim sFilter as string
 '-------------------------------------------------------------------------------
 testcase tPDF
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
+
     dim sPath as string
     dim sTemp as string
     dim iFileSize(12) as long
 '-------------------------------------------------------------------------------
 testcase tSVG
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim sFilter as string
 '-------------------------------------------------------------------------------
 testcase tBMP
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
    dim x as integer
    dim i as integer
    dim bTemp as boolean
 '-------------------------------------------------------------------------------
 testcase tEMF
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim sFilter as string
 '-------------------------------------------------------------------------------
 testcase tMET
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim iWaitIndex as integer
 '-------------------------------------------------------------------------------
 testcase tSWF
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim sFilter as string
     dim sExt as string
     dim x as integer
 '------------------------------------------------------------------------------
 testcase tWMF
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim iWaitIndex as integer

File testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc

View file
  • Ignore whitespace
     '///Close Document
     printlog "Close Document"
     call hCloseDocument
+    hFileDelete( sLocalFile )
 
 endcase
 '
 testcase tArrayconstants02
 
     Dim sImportFile as string
-    Dim sLocalFile as string
     Dim sFunctionSUM as string
     Dim sFunctionMDETERM as string
     Dim sCellcontent as string
     
     sImportFile = convertpath ( gTesttoolpath & "spreadsheet/optional/input/arrayconstants.xls" )
-    sLocalFile = convertpath ( gOfficepath & "user/work/arrayconstants.xls" )
     sFunctionSUM = fFunctionName ("SUM")
     sFunctionMDETERM = fFunctionName ("MDETERM")
     
     
     '/// Save document back to xls locally
     printlog "Save document back to xls locally"
-    call hFileSaveAsKill ( slocalfile )
+    call hFileSaveAsKill ( gLastWorkFile )
     
     '/// Close document
     printlog "Close document"
 
     '/// Load Document
     printlog "Load Document"
-    call hFileOpen ( slocalfile )
+    call hFileOpen ( gLastWorkFile )
     sleep (2)
 
     '///Check that all cellvalues are the same as before
     '///Close document
     printlog "Close document"
     call hCloseDocument
+    hFileDelete( gLastWorkFile )
 
 endcase

File testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc

View file
  • Ignore whitespace
 testcase tIBIS111099
 
     Dim testdoc as string
-    testdoc = convertpath(gTesttoolpath & "spreadsheet\optional\input\111099.xls")
+    testdoc = convertpath( gTesttoolpath & "spreadsheet\optional\input\111099.xls" )
+
     printlog " Open the test document"
     hFileOpenLocally(testdoc)
 
 
     Dim testdoc as string
     Dim testString as string
-    testdoc = convertpath(gTesttoolpath & "spreadsheet\optional\input\111158.xls")
+    testdoc = convertpath( gTesttoolpath & "spreadsheet\optional\input\111158.xls" )
 
     printlog " Open the test document"
     hFileOpenLocally(testdoc)

File testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc

View file
  • Ignore whitespace
 '**
 '************************************************************************
 ' **
-' #1 tIZ19381             ' I/O error when OLE object is thrown out of undo/redo buffer  
+' #1 tIZ19381             ' I/O error when OLE object is thrown out of undo/redo buffer
 ' #1 tIZ21036             ' Crash after shifting cells with paste special
 ' **
 '\***********************************************************************
 
 testcase tIZ19381
-    Dim sOutputFile as string 
+    Dim sOutputFile as string
     Dim i as integer
-    
-    sOutputFile = convertpath(gOfficepath & "user/work/i19381.ods") 
+
+    sOutputFile = convertpath(gOfficepath & "user/work/i19381.ods")
     printlog "IssueZilla Task 19381"
 
     '/// File / New / Spreadsheet
     Kontext "DocumentCalc"
     DocumentCalc.typekeys "1<RETURN>2<RETURN><UP>"
     sleep(2)
-    '/// Insert / Chart    
-    InsertChartCalc    
+    '/// Insert / Chart
+    InsertChartCalc
     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
         warnlog "Chart wizard did not occour! Exiting test case."
         call hCloseDocument
         goto endsub
-    end if    
+    end if
     Kontext "DocumentCalc"
     '/// Type [ESCAPE]
-    DocumentCalc.typekeys "<Escape>"    
-    sleep(2)    
+    DocumentCalc.typekeys "<Escape>"
+    sleep(2)
     '/// File Save As <i>gOfficepath</i>user/work/i19381.ods
     if NOT hFileSaveAsWithFilterKill (sOutputFile, "calc8") then
         warnlog "Saving test document localy failed -> Aborting"
         call hCloseDocument
         goto endsub
     end if
-    sleep(2)  
+    sleep(2)
     '/// File / Close
     call hCloseDocument
     sleep(2)
     if hFileOpen(sOutputFile) then
         Kontext "DocumentCalc"
         '/// Click into the chart
-        call gMouseClick(95,95)        
+        call gMouseClick(95,95)
         Kontext "DocumentCalc"
         '/// Press [F5] to open the Navigator
         '/// Select the first Chart/OLE object in the navigator
         call fselectFirstOLE
         '/// Edit / Cut
-        sleep(2)         
+        sleep(2)
         EditCut
-        sleep(2)        
+        sleep(2)
         Kontext "DocumentCalc"
         '/// Type [ESCAPE] twice
         DocumentCalc.TypeKeys "<ESCAPE>" , 2
         '/// Edit / Paste
         EditPaste
-        sleep(2)        
+        sleep(2)
         Kontext "DocumentCalc"
         '/// press [CTRL+S] to save the document again
         DocumentCalc.typekeys "<MOD1 S>"
             Active.OK
             call hCloseDocument
             goto endsub
-        end if        
+        end if
         Kontext "DocumentCalc"
         '/// Type [ESCAPE]
         DocumentCalc.TypeKeys "<ESCAPE>"
         call fCalcSelectRange("E42")
         for i = 1 to 21
             Kontext "DocumentCalc"
-            '/// Enter 1 and [RETURN] 21 times 
+            '/// Enter 1 and [RETURN] 21 times
             '///+ as changes to get chart cut/paste out of the undo buffer
             DocumentCalc.typekeys "1<Return>"
-        next i        
+        next i
         Kontext "DocumentCalc"
         '/// Type [CTRL + S] to save the document again
         DocumentCalc.typekeys "<MOD1 S>"
             end if
         else
             printlog "No message box is in the way!"
-        end if    
-        '/// File / Close        
+        end if
+        '/// File / Close
         call hCloseDocument
     else
         warnlog "It was not possible to open the saved document again!"
 
 testcase tIZ21036
 
-printlog "IssueZilla Task 21036"
+    printlog "IssueZilla Task 21036"
 
-'/// open new document
-call hNewDocument
-sleep(2)
+    '/// open new document
+    call hNewDocument
+    sleep(2)
 
-'/// select a whole row (e.g. A1:IV1)
-Kontext "DocumentCalc"
-DocumentCalc.typekeys "<SHIFT MOD1 RIGHT>"
-sleep(2)
+    '/// select a whole row (e.g. A1:IV1)
+    Kontext "DocumentCalc"
+    DocumentCalc.typekeys "<SHIFT MOD1 RIGHT>"
+    sleep(2)
 
-'/// cut selection
-try
-  EditCut
-catch
-  QAErrorLog "Is this a crash?? Please check it out!"
-  goto endsub
-endcatch
-sleep(2)
+    '/// cut selection
+    try
+        EditCut
+    catch
+        QAErrorLog "Is this a crash?? Please check it out!"
+        goto endsub
+    endcatch
+    sleep(2)
 
-'/// go to A2
-Kontext "DocumentCalc"
-call fCalcSelectRange("A2")
-sleep(2)
-Kontext "DocumentCalc"
-'/// call edit->paste special
-EditPasteSpecialCalc
-sleep(2)
+    '/// go to A2
+    Kontext "DocumentCalc"
+    call fCalcSelectRange("A2")
+    sleep(2)
+    Kontext "DocumentCalc"
+    '/// call edit->paste special
+    EditPasteSpecialCalc
+    sleep(2)
 
-'/// check shift cells->right
-Kontext "InhalteEinfuegenCalc"
-NachRechts.Check
+    '/// check shift cells->right
+    Kontext "InhalteEinfuegenCalc"
+    NachRechts.Check
 
-'/// OK
-InhalteEinfuegenCalc.OK
+    '/// OK
+    InhalteEinfuegenCalc.OK
 
-'/// confirm MsgBox
-Kontext "Active"
-  if Active.Exists(2) then
-     if Active.GetRT = 304 then
-        printlog Active.GetText
-        Active.OK
-        sleep(2)
-     end if
-  else
-     warnlog "No message box came up!"
-     goto endsub
-  end if
+    '/// confirm MsgBox
+    Kontext "Active"
+    if Active.Exists(2) then
+        if Active.GetRT = 304 then
+            printlog Active.GetText
+            Active.OK
+            sleep(2)
+        end if
+    else
+        warnlog "No message box came up!"
+        goto endsub
+    end if
 
-'/// check for crash
-try
-   printlog "OK, there are still " & GetDocumentCount & " documents open"
-catch 
-   warnlog "Probably the office did crash -> #I21036#"
-   goto endsub
-endcatch
-  
-call hCloseDocument
+    '/// check for crash
+    try
+        printlog "OK, there are still " & GetDocumentCount & " documents open"
+    catch
+        warnlog "Probably the office did crash -> #I21036#"
+        goto endsub
+    endcatch
+
+    call hCloseDocument
 endcase
 

File testautomation/spreadsheet/optional/includes/validity/c_validity.inc

View file
  • Ignore whitespace
 '**
 '** short description :  Complete test for data validity
 '**
-'************************************************************************
-' **
-' #1 tValidity_Check_Message
-' #1 tValidity_Check_Excel
-' **
 '\***********************************************************************
 
 testcase tValidity_Check_Message
 
-	printlog "This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells"
+    printlog "This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells"
 
     dim sInputFile as string
     dim sOutputFile as string
     dim sMType as string
     dim sInfoStr as string
     dim iCount as integer
-    
+
     sInputFile = convertpath(gTesttoolPath & "spreadsheet/optional/input/validity.ods")
-	sOutputFile = convertpath (gOfficepath & "user/work/validity.ods.ods)"
+    sOutputFile = convertpath (gOfficepath & "user/work/validity.ods.ods)"
 
-	printlog " Open document  <i>gTesttoolPath</i>spreadsheet/optional/input/validity.ods"
-	call hFileOpen (sInputFile)
-	printlog " Save the document under <i>gOfficePath</i>user/work/validity.ods"
-	if NOT hFileSaveAsWithFilter ( sOutputFile, "calc8" ) then
-		warnlog "Saving test document localy failed -> Aborting"
-		call hCloseDocument
-		goto endsub
-	endif
+    printlog " Open document  <i>gTesttoolPath</i>spreadsheet/optional/input/validity.ods"
+    call hFileOpen (sInputFile)
+    printlog " Save the document under <i>gOfficePath</i>user/work/validity.ods"
+    if NOT hFileSaveAsWithFilter ( sOutputFile, "calc8" ) then
+        warnlog "Saving test document localy failed -> Aborting"
+        call hCloseDocument
+        goto endsub
+    endif
 
-	printlog " Do the following operations (see values in table) with every of the 4 sheets."
-	printlog " Goto first cell and insert the correct value"
-	printlog " Press RETURN"
-	printlog "  No warning or information message should appear"
-	printlog " Enter the incorrect value"
-	printlog " Press RETURN"
-	printlog "  A warning or information message should appear"
-	for iCount = 1 to 4
-		select case iCount
-			case 1 : sMType = "Stop"          : sInfoStr = "First"
-			case 2 : sMType = "Warning"       : sInfoStr = "Second"
-			case 3 : sMType = "Information"   : sInfoStr = "Third"
-			case 4 : sMType = "Macro"         : sInfoStr = "Macro"
-		end select
+    printlog " Do the following operations (see values in table) with every of the 4 sheets."
+    printlog " Goto first cell and insert the correct value"
+    printlog " Press RETURN"
+    printlog "  No warning or information message should appear"
+    printlog " Enter the incorrect value"
+    printlog " Press RETURN"
+    printlog "  A warning or information message should appear"
+    for iCount = 1 to 4
+        select case iCount
+        case 1 : sMType = "Stop"          : sInfoStr = "First"
+        case 2 : sMType = "Warning"       : sInfoStr = "Second"
+        case 3 : sMType = "Information"   : sInfoStr = "Third"
+        case 4 : sMType = "Macro"         : sInfoStr = "Macro"
+        end select
 
-		call fCalcSelectSheet(sMType)
+        call fCalcSelectSheet(sMType)
         printlog " *** " & sInfoStr & " it is checked, if the " & sMType & " messages appears, if wrong contents are inserted into the appropriate cells"
-    '///+<UL>            
-    '///+<LI>Goto first cell and insert the <i>correct value</i></LI> 
-    '///+<LI>Press RETURN</LI>
-    '///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI>
-    '///+<LI>Enter the <i>incorrect value</I> 
-    '///+<LI>Press RETURN</LI>
-    '///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI> 
-    '///+<LI><TABLE BORDER=1>
-    '///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR>
-    '///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR>
-          call check_message(sMType, "B4", "3", "8")
-    '///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR>
-          call check_message(sMType, "B5", "9", "10")
-    '///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR>      
-          call check_message(sMType, "B6", "28", "25")
-    '///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR>      
-          call check_message(sMType, "B7", "10", "12")
-    '///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR>      
-          call check_message(sMType, "B8", "11", "9")
-    '///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR>      
-          call check_message(sMType, "B9", "5", "3")
-    '///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR>      
-          call check_message(sMType, "B10", "1", "6")
-    '///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR>      
-          call check_message(sMType, "B11", "1", "6")
-    '///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR>      
-          call check_message(sMType, "B17", "3,14", "3,15")
-    '///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR>     
-          call check_message(sMType, "B18", "10,14", "10,16")
-    '///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR>      
-          call check_message(sMType, "B19", "25,10", "25,09")
-    '///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR>      
-          call check_message(sMType, "B20", "10,5", "10,7")
-    '///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR>      
-          call check_message(sMType, "B21", "11,9", "10")
-    '///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR>      
-          call check_message(sMType, "B22", "3,145", "3,14")
-    '///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR>      
-          call check_message(sMType, "B23", "1,45", "1,38")
-    '///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR>      
-          call check_message(sMType, "B24", "2,03", "2,15")
-    '///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR>      
-          call check_message(sMType, "E4", "13.12.99", "13.11.99")
-    '///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR>      
-          call check_message(sMType, "E5", "12.12.99", "13.12.99")
-    '///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR>      
-          call check_message(sMType, "E6", "14.12.99", "13.12.99")
-    '///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR>      
-          call check_message(sMType, "E7", "13.12.99", "14.12.99")
-    '///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR>
-          call check_message(sMType, "E8", "13.12.99", "12.12.99")
-    '///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR>      
-          call check_message(sMType, "E9", "13.11.99", "13.12.99")
-    '///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR>      
-          call check_message(sMType, "E10", "23.12.99", "12.12.99")
-    '///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR>      
-          call check_message(sMType, "E11", "24.12.99", "23.12.99")
-    '///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR>      
-          call check_message(sMType, "E17", "13:15", "13:16")
-    '///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR>      
-          call check_message(sMType, "E18", "10:15", "14:16")
-    '///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR>      
-          call check_message(sMType, "E19", "23:10", "12:09")
-    '///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR>      
-          call check_message(sMType, "E20", "13:15", "13:16")
-    '///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:14</TD></TR>      
-          call check_message(sMType, "E21", "13:15", "13:14")
-    '///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR>      
-          call check_message(sMType, "E22", "13:16", "13:15")
-    '///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR>      
-          call check_message(sMType, "E23", "13:15", "23:13")
-    '///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR>
-          call check_message(sMType, "E24", "12:59", "13:00")
-    '///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR>           
-          call check_message(sMType, "H4", "abc", "abcd")
-    '///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR>      
-          call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm")
-    '///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR>      
-          call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx")
-    '///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR>      
-          call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh")
-    '///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR>      
-          call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr")
-    '///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR>      
-          call check_message(sMType, "H9", "sdxc", "tgb")
-    '///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR>      
-          call check_message(sMType, "H10", "rfvbj", "dfcvgb")
-    '///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR>      
-          call check_message(sMType, "H11", "g", "we")
-    '///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>
-    '///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR>
-          call check_message(sMType, "B30", "February", "January")
-    '///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR>      
-          call check_message(sMType, "B31", "May", "February")
-    '///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR>      
-          call check_message(sMType, "B32", "June", "January")
-    '///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR>      
-          call check_message(sMType, "B33", "August", "November")
-    '///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR>      
-          call check_message(sMType, "B34", "September", "December")
-    '///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR>      
-          call check_message(sMType, "B35", "October", "March")
-    '///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR>      
-          call check_message(sMType, "B36", "July", "August")
-    '///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR>      
-          call check_message(sMType, "B37", "April", "October")
-    '///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR>      
-          call check_message(sMType, "B38", "Name03", "Name07")
-    '///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR>            
-          call check_message(sMType, "E30", "alpha", "omega")
-    '///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR>      
-          call check_message(sMType, "E31", "beta", "zeta")
-    '///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR>      
-          call check_message(sMType, "E32", "gamma", "psi")
-    '///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR>      
-          call check_message(sMType, "E33", "delta", "pi/2")
-    '///+ </TABLE></LI></UL>
-       next iCount
+        '///+<UL>
+        '///+<LI>Goto first cell and insert the <i>correct value</i></LI>
+        '///+<LI>Press RETURN</LI>
+        '///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI>
+        '///+<LI>Enter the <i>incorrect value</I>
+        '///+<LI>Press RETURN</LI>
+        '///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI>
+        '///+<LI><TABLE BORDER=1>
+        '///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR>
+        '///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR>
+        call check_message(sMType, "B4", "3", "8")
+        '///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR>
+        call check_message(sMType, "B5", "9", "10")
+        '///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR>
+        call check_message(sMType, "B6", "28", "25")
+        '///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR>
+        call check_message(sMType, "B7", "10", "12")
+        '///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR>
+        call check_message(sMType, "B8", "11", "9")
+        '///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR>
+        call check_message(sMType, "B9", "5", "3")
+        '///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR>
+        call check_message(sMType, "B10", "1", "6")
+        '///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR>
+        call check_message(sMType, "B11", "1", "6")
+        '///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR>
+        call check_message(sMType, "B17", "3,14", "3,15")
+        '///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR>
+        call check_message(sMType, "B18", "10,14", "10,16")
+        '///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR>
+        call check_message(sMType, "B19", "25,10", "25,09")
+        '///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR>
+        call check_message(sMType, "B20", "10,5", "10,7")
+        '///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR>
+        call check_message(sMType, "B21", "11,9", "10")
+        '///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR>
+        call check_message(sMType, "B22", "3,145", "3,14")
+        '///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR>
+        call check_message(sMType, "B23", "1,45", "1,38")
+        '///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR>
+        call check_message(sMType, "B24", "2,03", "2,15")
+        '///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR>
+        call check_message(sMType, "E4", "13.12.99", "13.11.99")
+        '///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR>
+        call check_message(sMType, "E5", "12.12.99", "13.12.99")
+        '///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR>
+        call check_message(sMType, "E6", "14.12.99", "13.12.99")
+        '///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR>
+        call check_message(sMType, "E7", "13.12.99", "14.12.99")
+        '///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR>
+        call check_message(sMType, "E8", "13.12.99", "12.12.99")
+        '///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR>
+        call check_message(sMType, "E9", "13.11.99", "13.12.99")
+        '///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR>
+        call check_message(sMType, "E10", "23.12.99", "12.12.99")
+        '///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR>
+        call check_message(sMType, "E11", "24.12.99", "23.12.99")
+        '///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR>
+        call check_message(sMType, "E17", "13:15", "13:16")
+        '///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR>
+        call check_message(sMType, "E18", "10:15", "14:16")
+        '///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR>
+        call check_message(sMType, "E19", "23:10", "12:09")
+        '///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR>
+        call check_message(sMType, "E20", "13:15", "13:16")
+        '///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:14</TD></TR>
+        call check_message(sMType, "E21", "13:15", "13:14")
+        '///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR>
+        call check_message(sMType, "E22", "13:16", "13:15")
+        '///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR>
+        call check_message(sMType, "E23", "13:15", "23:13")
+        '///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR>
+        call check_message(sMType, "E24", "12:59", "13:00")
+        '///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR>
+        call check_message(sMType, "H4", "abc", "abcd")
+        '///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR>
+        call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm")
+        '///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR>
+        call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx")
+        '///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR>
+        call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh")
+        '///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR>
+        call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr")
+        '///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR>
+        call check_message(sMType, "H9", "sdxc", "tgb")
+        '///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR>
+        call check_message(sMType, "H10", "rfvbj", "dfcvgb")
+        '///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR>
+        call check_message(sMType, "H11", "g", "we")
+        '///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>
+        '///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR>
+        call check_message(sMType, "B30", "February", "January")
+        '///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR>
+        call check_message(sMType, "B31", "May", "February")
+        '///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR>
+        call check_message(sMType, "B32", "June", "January")
+        '///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR>
+        call check_message(sMType, "B33", "August", "November")
+        '///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR>
+        call check_message(sMType, "B34", "September", "December")
+        '///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR>
+        call check_message(sMType, "B35", "October", "March")
+        '///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR>
+        call check_message(sMType, "B36", "July", "August")
+        '///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR>
+        call check_message(sMType, "B37", "April", "October")
+        '///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR>
+        call check_message(sMType, "B38", "Name03", "Name07")
+        '///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR>
+        call check_message(sMType, "E30", "alpha", "omega")
+        '///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR>
+        call check_message(sMType, "E31", "beta", "zeta")
+        '///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR>
+        call check_message(sMType, "E32", "gamma", "psi")
+        '///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR>
+        call check_message(sMType, "E33", "delta", "pi/2")
+        '///+ </TABLE></LI></UL>
+    next iCount
     '/// Close the document
-	printlog "Close the document" 
-	call hCloseDocument
+    printlog "Close the document"
+    call hCloseDocument
 
 endcase
 '
 '-------------------------------------------------------------------------------
 '
 testcase tValidity_Check_Excel
-'/// This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells
-     
-    dim sInputFile as String       
+    '/// This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells
+
+    dim sInputFile as String
     dim sOutputFile as String
     dim sMType as String
     dim iCount as integer
     dim sInfoStr as String
     dim sdecimalseperator as string
-		sDecimalseperator = GetDecimalSeperator
+    sDecimalseperator = GetDecimalSeperator
 
-    sInputFile = convertpath(gTesttoolPath & "spreadsheet/optional/input/validity.ods")    
+    sInputFile = convertpath(gTesttoolPath & "spreadsheet/optional/input/validity.ods")
     sOutputFile = convertpath(gOfficePath & "user/work/validity.xls")
 
     '/// Open <i>gTesttoolPath</i>/calc/special/input/validity.ods
-	printlog "Open <i>gTesttoolPath</i>/calc/special/input/validity.ods"
+    printlog "Open <i>gTesttoolPath</i>/calc/special/input/validity.ods"
     call hFileOpen (sInputFile)
     Kontext "SecurityWarning"
     '/// If security warning occours click on 'Enable Macros'.
     call hFileOpen ( sOutputFile )
     sleep (2)
     printlog " Do the following operations (see values in table) with every of the 3 sheets."
-	printlog " Goto first cell and insert the correct value"
-	printlog " Press RETURN"
-	printlog "  No warning or information message should appear"
-	printlog " Enter the incorrect value"
-	printlog " Press RETURN"
-	printlog "  A warning or information message should appear"
+    printlog " Goto first cell and insert the correct value"
+    printlog " Press RETURN"
+    printlog "  No warning or information message should appear"
+    printlog " Enter the incorrect value"
+    printlog " Press RETURN"
+    printlog "  A warning or information message should appear"
     for iCount = 1 to 3
         select case iCount
-            case 1 : sMType = "Stop"          : sInfoStr = "First"
-            case 2 : sMType = "Warning"       : sInfoStr = "Second"
-            case 3 : sMType = "Information"   : sInfoStr = "Third"
+        case 1 : sMType = "Stop"          : sInfoStr = "First"
+        case 2 : sMType = "Warning"       : sInfoStr = "Second"
+        case 3 : sMType = "Information"   : sInfoStr = "Third"
         end select
-    '/// Do the following operations (see values in table) with every of the 3 sheets.
-    call fCalcSelectSheet(sMType)
-    printlog " *** " & sInfoStr & " it is checked, if the " & sMType & " messages appears, if wrong contents are " & _
-    "inserted into the appropriate cells"
-'///+<UL>            
-'///+<LI>Goto first cell and insert the <i>correct value</i></LI> 
-'///+<LI>Press RETURN</LI>
-'///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI>
-'///+<LI>Enter the <i>incorrect value</I> 
-'///+<LI>Press RETURN</LI>
-'///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI> 
-'///+<LI><TABLE BORDER=1>
-'///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR>
-'///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR>
-      call check_message(sMType, "B4", "3", "8")
-'///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR>      
-      call check_message(sMType, "B5", "9", "10")
-'///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR>    
-      call check_message(sMType, "B6", "28", "25")
-'///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR>      
-      call check_message(sMType, "B7", "10", "12")
-'///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR>      
-      call check_message(sMType, "B8", "11", "9")
-'///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR>      
-      call check_message(sMType, "B9", "5", "3")
-'///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR>      
-      call check_message(sMType, "B10", "1", "6")
-'///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR>      
-      call check_message(sMType, "B11", "1", "6")
-'///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR>      
-      call check_message(sMType, "B17", "3" & sdecimalseperator & "14", "3" & sdecimalseperator & "15")
-'///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR>      
-      call check_message(sMType, "B18", "10" & sdecimalseperator & "14", "10" & sdecimalseperator & "16")
-'///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR>      
-      call check_message(sMType, "B19", "25" & sdecimalseperator & "10", "25" & sdecimalseperator & "09")
-'///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR>      
-      call check_message(sMType, "B20", "10" & sdecimalseperator & "5", "10" & sdecimalseperator & "7")
-'///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR>      
-      call check_message(sMType, "B21", "11" & sdecimalseperator & "9", "10")
-'///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR>       
-      call check_message(sMType, "B22", "3" & sdecimalseperator & "145", "3" & sdecimalseperator & "14")
-'///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR>      
-      call check_message(sMType, "B23", "1" & sdecimalseperator & "45", "1" & sdecimalseperator & "38")
-'///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR>      
-      call check_message(sMType, "B24", "2" & sdecimalseperator & "03", "2" & sdecimalseperator & "15")
-'///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR>      
-      call check_message(sMType, "E4", "13.12.99", "13.11.99")
-'///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR>      
-      call check_message(sMType, "E5", "12.12.99", "13.12.99")
-'///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR>      
-      call check_message(sMType, "E6", "14.12.99", "13.12.99")
-'///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR>      
-      call check_message(sMType, "E7", "13.12.99", "14.12.99")
-'///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR>      
-      call check_message(sMType, "E8", "13.12.99", "12.12.99")
-'///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR>      
-      call check_message(sMType, "E9", "13.11.99", "13.12.99")
-'///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR>      
-      call check_message(sMType, "E10", "23.12.99", "12.12.99")
-'///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR>      
-      call check_message(sMType, "E11", "24.12.99", "23.12.99")
-'///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR>      
-      call check_message(sMType, "E17", "13:15", "13:16")
-'///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR>      
-      call check_message(sMType, "E18", "10:15", "14:16")
-'///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR>      
-      call check_message(sMType, "E19", "23:10", "12:09")
-'///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR>      
-      call check_message(sMType, "E20", "13:15", "13:16")
-'///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:15</TD></TR>      
-      call check_message(sMType, "E21", "13:15", "13:14")
-'///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR>      
-      call check_message(sMType, "E22", "13:16", "13:15")
-'///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR>      
-      call check_message(sMType, "E23", "13:15", "23:13")
-'///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR>      
-      call check_message(sMType, "E24", "12:59", "13:00")
-'///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR>
-      call check_message(sMType, "H4", "abc", "abcd")
-'///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR>      
-      call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm")
-'///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR>      
-      call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx")
-'///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR>      
-      call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh")
-'///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR>      
-      call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr")
-'///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR>      
-      call check_message(sMType, "H9", "sdxc", "tgb")
-'///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR>      
-      call check_message(sMType, "H10", "rfvbj", "dfcvgb")
-'///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR>      
-      call check_message(sMType, "H11", "g", "we")
-'///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>we</TD></TR>
-'///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR>
-      call check_message(sMType, "B30", "February", "January")
-'///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR>      
-      call check_message(sMType, "B31", "May", "February")
-'///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR>      
-      call check_message(sMType, "B32", "June", "January")
-'///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR>      
-      call check_message(sMType, "B33", "August", "November")
-'///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR>
-      call check_message(sMType, "B34", "September", "December")
-'///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR>      
-      call check_message(sMType, "B35", "October", "March")
-'///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR>      
-      call check_message(sMType, "B36", "July", "August")
-'///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR>      
-      call check_message(sMType, "B37", "April", "October")
-'///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR>      
-      call check_message(sMType, "B38", "Name03", "Name07")
-'///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR>            
-      call check_message(sMType, "E30", "alpha", "omega")
-'///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR>      
-      call check_message(sMType, "E31", "beta", "zeta")
-'///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR>  
-      call check_message(sMType, "E32", "gamma", "psi")
-'///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR>      
-      call check_message(sMType, "E33", "delta", "pi/2")
-'///+ </TABLE></LI></UL>
-   next iCount
-'/// File / Close
-   call hCloseDocument
+        '/// Do the following operations (see values in table) with every of the 3 sheets.
+        call fCalcSelectSheet(sMType)
+        printlog " *** " & sInfoStr & " it is checked, if the " & sMType & " messages appears, if wrong contents are " & "inserted into the appropriate cells"
+        '///+<UL>
+        '///+<LI>Goto first cell and insert the <i>correct value</i></LI>
+        '///+<LI>Press RETURN</LI>
+        '///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI>
+        '///+<LI>Enter the <i>incorrect value</I>
+        '///+<LI>Press RETURN</LI>
+        '///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI>
+        '///+<LI><TABLE BORDER=1>
+        '///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR>
+        '///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR>
+        call check_message(sMType, "B4", "3", "8")
+        '///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR>
+        call check_message(sMType, "B5", "9", "10")
+        '///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR>
+        call check_message(sMType, "B6", "28", "25")
+        '///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR>
+        call check_message(sMType, "B7", "10", "12")
+        '///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR>
+        call check_message(sMType, "B8", "11", "9")
+        '///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR>
+        call check_message(sMType, "B9", "5", "3")
+        '///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR>
+        call check_message(sMType, "B10", "1", "6")
+        '///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR>
+        call check_message(sMType, "B11", "1", "6")
+        '///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR>
+        call check_message(sMType, "B17", "3" & sdecimalseperator & "14", "3" & sdecimalseperator & "15")
+        '///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR>
+        call check_message(sMType, "B18", "10" & sdecimalseperator & "14", "10" & sdecimalseperator & "16")
+        '///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR>
+        call check_message(sMType, "B19", "25" & sdecimalseperator & "10", "25" & sdecimalseperator & "09")
+        '///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR>
+        call check_message(sMType, "B20", "10" & sdecimalseperator & "5", "10" & sdecimalseperator & "7")
+        '///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR>
+        call check_message(sMType, "B21", "11" & sdecimalseperator & "9", "10")
+        '///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR>
+        call check_message(sMType, "B22", "3" & sdecimalseperator & "145", "3" & sdecimalseperator & "14")
+        '///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR>
+        call check_message(sMType, "B23", "1" & sdecimalseperator & "45", "1" & sdecimalseperator & "38")
+        '///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR>
+        call check_message(sMType, "B24", "2" & sdecimalseperator & "03", "2" & sdecimalseperator & "15")
+        '///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR>
+        call check_message(sMType, "E4", "13.12.99", "13.11.99")
+        '///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR>
+        call check_message(sMType, "E5", "12.12.99", "13.12.99")
+        '///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR>
+        call check_message(sMType, "E6", "14.12.99", "13.12.99")
+        '///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR>
+        call check_message(sMType, "E7", "13.12.99", "14.12.99")
+        '///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR>
+        call check_message(sMType, "E8", "13.12.99", "12.12.99")
+        '///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR>
+        call check_message(sMType, "E9", "13.11.99", "13.12.99")
+        '///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR>
+        call check_message(sMType, "E10", "23.12.99", "12.12.99")
+        '///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR>
+        call check_message(sMType, "E11", "24.12.99", "23.12.99")
+        '///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR>
+        call check_message(sMType, "E17", "13:15", "13:16")
+        '///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR>
+        call check_message(sMType, "E18", "10:15", "14:16")
+        '///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR>
+        call check_message(sMType, "E19", "23:10", "12:09")
+        '///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR>
+        call check_message(sMType, "E20", "13:15", "13:16")
+        '///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:15</TD></TR>
+        call check_message(sMType, "E21", "13:15", "13:14")
+        '///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR>
+        call check_message(sMType, "E22", "13:16", "13:15")
+        '///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR>
+        call check_message(sMType, "E23", "13:15", "23:13")
+        '///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR>
+        call check_message(sMType, "E24", "12:59", "13:00")
+        '///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR>
+        call check_message(sMType, "H4", "abc", "abcd")
+        '///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR>
+        call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm")
+        '///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR>
+        call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx")
+        '///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR>
+        call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh")
+        '///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR>
+        call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr")
+        '///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR>
+        call check_message(sMType, "H9", "sdxc", "tgb")
+        '///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR>
+        call check_message(sMType, "H10", "rfvbj", "dfcvgb")
+        '///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR>
+        call check_message(sMType, "H11", "g", "we")
+        '///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>we</TD></TR>
+        '///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR>
+        call check_message(sMType, "B30", "February", "January")
+        '///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR>
+        call check_message(sMType, "B31", "May", "February")
+        '///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR>
+        call check_message(sMType, "B32", "June", "January")
+        '///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR>
+        call check_message(sMType, "B33", "August", "November")
+        '///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR>
+        call check_message(sMType, "B34", "September", "December")
+        '///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR>
+        call check_message(sMType, "B35", "October", "March")
+        '///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR>
+        call check_message(sMType, "B36", "July", "August")
+        '///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR>
+        call check_message(sMType, "B37", "April", "October")
+        '///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR>
+        call check_message(sMType, "B38", "Name03", "Name07")
+        '///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR>
+        call check_message(sMType, "E30", "alpha", "omega")
+        '///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR>
+        call check_message(sMType, "E31", "beta", "zeta")
+        '///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR>
+        call check_message(sMType, "E32", "gamma", "psi")
+        '///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR>
+        call check_message(sMType, "E33", "delta", "pi/2")
+        '///+ </TABLE></LI></UL>
+    next iCount
+    '/// File / Close
+    call hCloseDocument
 endcase
 

File testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc

View file
  • Ignore whitespace
 '*
 '* short description : Resource Test - Format Menu Part II
 '*
-'************************************************************************
-'*
-' #1 tFormatPrintRanges
-' #1 tFormatCharacter
-' #1 tFormatParagraph
-' #1 tFormatChangeCase
-' #1 tFormatStyles
-' #1 tFormatAutoFormat
-' #1 tFormatConditionalFormatting
-' #1 tFormatAnchor
-' #1 tFormatAlignment
-' #1 tFormatArrange
-' #1 tFormatFlip
-' #1 tFormatGroup
-' #0 tFormatControl
-
-'*
 '\***********************************************************************
 
 sub c_upd_formatmenu2
     '/// Close document
     printlog " Close document"
     Call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 
     '/// Close document
     printlog " Close document"
     Call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 

File testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc

View file
  • Ignore whitespace
 '*
 '* short description : Resource Test - Format Menu Part III
 '*
-'************************************************************************
-'*
-' #1 tFormatGraphicPositionAndSize
-' #1 tFormatGraphicLine
-' #1 tFormatGraphicArea
-' #1 tFormatGraphicText
-' #1 tFormatGraphicPoints
-'*
 '\***********************************************************************
 
 sub c_upd_formatmenu3
     '/// Close document
     printlog " Close document"
     call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 
     '/// Close document
     printlog " Close document"
     Call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 
     '/// Close document
     printlog " Close document"
     Call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 
     '/// Close document
     printlog " Close document"
     call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 
     '/// Close document
     printlog " Close document"
     call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 

File testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc

View file
  • Ignore whitespace
     '/// Close starting document
     printlog " Close starting document"
     call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 
     '/// Close document
     printlog " Close document"
     call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 
     Thesaurus.Cancel
     printlog " Close document"
     call hCloseDocument
-    hFileDelete ( gLastWorkFile )
+    hFileDelete( gLastWorkFile )
 
 endcase
 

File testautomation/spreadsheet/tools/includes/c_l10n_tools.inc

View file
  • Ignore whitespace
 '*
 '* short description : tools for localisation in calc
 '*
-'**************************************************************************************************
-'*
-' #1 fFunctionname        'Returns the localized name of a given function in the current UI language
-' #1 fError_l10n          'Returns the localized name of a given errorcode in the current UI language
-'*
 '\************************************************************************************************
 
 function fFunctionname ( sFunctionname_en as string ) as string
     '///+ -Input is the english name of the function as string
     '///+ -Output is the localized name of the function as string
     '///+ -If there is no translation available the fallback is the english name
-    
+
     dim sloaddocument as string
     dim sfunctionstring as string
     dim scelladress as string
-    
-    use "global/tools/includes/required/t_doc2.inc" 
-    const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname "
-    
+
+    use "global/tools/includes/required/t_doc2.inc"
+    const CFN = "spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname "
+
     sloaddocument = gTesttoolPath & "spreadsheet\tools\input\Functionnames.ods"
-        
+
     '///Load document with all functions <i>gTestToolPath</i>/spreadsheet/tools/input/Functionnames.ods
     hFileOpenLocally( sloaddocument )
     sleep (2)
     '///Search for function by Search and Replace dialog
     kontext "DocumentCalc"
     EditSearchAndReplace
-    sleep (1)
+
     kontext "FindAndReplace"
-    '///Setting dialog to defaults 
-    More.Click
-    SimilaritySearch.UnCheck
-    CurrentSelectionOnly.UnCheck
-    Backwards.UnCheck
-    SearchForStyles.UnCheck
-    SearchIn.Select 1
-    '///Setting search parameter
-    WholeWordsOnly.Check
-    SearchFor.SetText sFunctionname_en
-    SearchNow.click
-    kontext
-    '///If a MsgBox appears the search must have failed => Fallback to english name
-    if active.exists then
-        if active.getRT = 304 then
-            warnlog CFN & "Function not found, falling back to english name"
+    printlog( "Reset <Find and Replace> dialog to default settings" )
+    if ( FindAndReplace.exists( 1 ) ) then
+        More.Click
+        SimilaritySearch.UnCheck
+        CurrentSelectionOnly.UnCheck
+        Backwards.UnCheck
+        SearchForStyles.UnCheck
+        SearchIn.Select 1
+        '///Setting search parameter
+        WholeWordsOnly.Check
+        SearchFor.SetText sFunctionname_en
+        SearchNow.click
+        kontext
+        '///If a MsgBox appears the search must have failed => Fallback to english name
+        if active.exists then
+            if active.getRT = 304 then
+                warnlog CFN & "Function not found, falling back to english name"
+                fFunctionname = sFunctionname_en
+                active.OK
+            else
+                '///Throw a warning if a dialog of unexpected resource type appears
+                warnlog CFN & "Unknown message box! " & active.GetText
+                active.Default
+                fFunctionname = sFunctionname_en
+            end if
+
+            kontext "FindAndReplace"
+            printlog( "Reset dialog to default settings" )
+            if ( FindAndReplace.exists( 1 ) ) then
+                WholeWordsOnly.UnCheck
+                hCloseDialog( FindAndReplace, "close" )
+            else
+                warnlog( CFN & "<FindAndReplace> not open" )
+            endif
+            call hCloseDocument
+            exit function
+        end if
+
+        kontext "FindAndReplace"
+        printlog( "Reset <Find and Replace> dialog to default settings" )
+        if ( FindAndReplace.exists( 1 ) ) then
+            WholeWordsOnly.UnCheck
+            hCloseDialog( FindAndReplace, "close" )
+        else
+            warnlog( CFN & "<FindAndReplace> not open" )
+        endif
+
+        Kontext "RechenleisteCalc"
+        scelladress = Bereich.GetSelText
+        if fCalcGetCellValue (scelladress) = sFunctionname_en then
+            '///Get localised string for function by extracting functionname out of next cell
+            call fCalcSelectRange ( "B" & mid(scelladress,2) )
+            kontext ( "RechenleisteCalc" )
+            EingabeZeileCalc.TypeKeys ("<f2><mod1 a>")
+            editcopy
+            sfunctionstring = GetClipboardText ()
+            kontext "DocumentCalc"
+            DocumentCalc.TypeKeys ("<ESCAPE>",2)
+            ' DEBUG: printlog sfunctionstring
+            ' DEBUG: printlog len(sfunctionstring)
+            ' DEBUG: printlog instr(sfunctionstring,"(")
+            fFunctionname = mid(sfunctionstring,2,(instr(sfunctionstring,"(")-2)
+            printlog "  The name of the function in this locale (" & iSprache & ") is " & fFunctionname
+        else
+            warnlog CFN & "Function not found, falling back to english version"
             fFunctionname = sFunctionname_en
-            active.OK
-        else
-            '///Throw a warning if a dialog of unexpected resource type appears
-           warnlog CFN & "Unknown message box! " & active.GetText
-           active.Default
-           fFunctionname = sFunctionname_en
-       end if
-       kontext "FindAndReplace"
-       sleep (1)
-       '///Reset dialog to defaultsetting
-       WholeWordsOnly.UnCheck
-       FindAndReplace.Close
-       call hCloseDocument
-       exit function
-    end if 
-    kontext "FindAndReplace"
-    sleep (1)
-    '///Reset dialog to defaultsettings
-    WholeWordsOnly.UnCheck
-    FindAndReplace.Close
-    Kontext "RechenleisteCalc"
-    scelladress = Bereich.GetSelText    
-    if fCalcGetCellValue (scelladress) = sFunctionname_en then
-        '///Get localised string for function by extracting functionname out of next cell 
-        call fCalcSelectRange ( "B" & mid(scelladress,2) )
-        kontext ( "RechenleisteCalc" ) 
-        EingabeZeileCalc.TypeKeys ("<f2><mod1 a>")
-        editcopy
-        sfunctionstring = GetClipboardText ()
-        kontext "DocumentCalc"
-        DocumentCalc.TypeKeys ("<ESCAPE>",2)
-        ' DEBUG: printlog sfunctionstring
-        ' DEBUG: printlog len(sfunctionstring)
-        ' DEBUG: printlog instr(sfunctionstring,"(")
-        fFunctionname = mid(sfunctionstring,2,(instr(sfunctionstring,"(")-2)
-        printlog "  The name of the function in this locale (" & iSprache & ") is " & fFunctionname
+        end if
     else
-        warnlog CFN & "Function not found, falling back to english version"
-        fFunctionname = sFunctionname_en
-    end if
-    
+        warnlog( CFN & "Unable to open <FindAndReplace> dialog" )
+    endif
+
     call hCloseDocument
-    hFileDelete ( gLastWorkFile )
-    
+    hFileDelete( gLastWorkFile )
+
 end function
 
 '
     '///+ -Input is the english name of the error as string
     '///+ -Output is the localized name of the error as string
     '///+ -If there is no translation available the fallback is the english name
-    
+
     dim sloaddocument as string
     dim sfunctionstring as string
     dim scelladress as string
-    
-    use "global/tools/includes/required/t_doc2.inc" 
+
+    use "global/tools/includes/required/t_doc2.inc"
     const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fError_l10n "
-    
+
     sloaddocument = gTesttoolPath & "spreadsheet\tools\input\Errorcodes.ods"
-        
+
     '///Load document with all errorcodes <i>gTestToolPath</i>/spreadsheet/tools/input/Errorcodes.ods
     hFileOpenLocally( sloaddocument )
 
     EditSearchAndReplace
     sleep (1)
     kontext "FindAndReplace"
-    '///Setting dialog to defaults 
+    '///Setting dialog to defaults
     More.Click
     SimilaritySearch.UnCheck
     CurrentSelectionOnly.UnCheck
             active.OK
         else
             '///Throw a warning if a dialog of unexpected resource type appears
-           warnlog CFN & "Unknown message box! " & active.GetText
-           active.Default
-           fError_l10n = sError_en
-       end if
-       kontext "FindAndReplace"
-       sleep (1)
-       '///Reset dialog to defaultsetting
-       WholeWordsOnly.UnCheck
-       FindAndReplace.Close
-       call hCloseDocument
-       exit function
-    end if 
+            warnlog CFN & "Unknown message box! " & active.GetText
+            active.Default
+            fError_l10n = sError_en
+        end if
+
+        kontext "FindAndReplace"
+        '///Reset dialog to defaultsetting
+        if ( FindAndReplace.exists( 1 ) ) then
+            WholeWordsOnly.UnCheck
+            hCloseDialog( FindAndReplace, "close" )
+        else
+            warnlog( CFN & "Failed to open <FindAndReplace>" )
+        endif
+
+        call hCloseDocument
+        exit function
+    end if
+
     kontext "FindAndReplace"
-    sleep (1)
     '///Reset dialog to defaultsetting
-    WholeWordsOnly.UnCheck
-    FindAndReplace.Close
+    if ( FindAndReplace.exists( 1 ) ) then
+        WholeWordsOnly.UnCheck
+        hCloseDialog( FindAndReplace, "close" )
+    else
+        warnlog( CFN & "Failed to open <FindAndReplace>" )
+    endif
+    
     Kontext "RechenleisteCalc"
-    scelladress = Bereich.GetSelText    
+    scelladress = Bereich.GetSelText
     if fCalcGetCellValue (scelladress) = sError_en then
-        '///Get localised string for ERR by extracting errorcode out of next cell 
+        '///Get localised string for ERR by extracting errorcode out of next cell
         call fCalcSelectRange ( "B" & mid(scelladress,2) )
         kontext "DocumentCalc"
         editcopy
         warnlog CFN & "Errorcode not found, falling back to english version"
         fError_l10n = sError_en
     end if
-    
+
     call hCloseDocument
-    hFileDelete ( gLastWorkFile )
-    
+    hFileDelete( gLastWorkFile )
+
 end function