Commits

Anonymous committed 25d8116 Merge

automationdev300m87#i115106#fixed loading local file

Comments (0)

Files changed (21)

Add a comment to this file

testautomation/extensions/optional/input/dependencies/version34.oxt

Binary file modified.

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

 
 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
         endif
     endif
 
-    printlog "----------3rd: exporting part of the picture and inserting into new file."
-    hTypeKeys ("<escape><tab>")
-    fGetSizeXY sx1, sY, TRUE
-
-    if ( hCallExport( OutputGrafikTBO + "1", sFilter, TRUE ) ) then
-
-        Kontext "PCTOptions"
-        printlog( "Export options dialog" )
-        if ( PCTOptions.Exists( 2 ) ) then
-            hCloseDialog( PCTOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        sOutputFile = OutputGrafikTBO + "1" + sExt
-        if ( hWaitForOutputFile( sOutputFile ) ) then
-            printlog( "Close file and re-insert graphics into new document" )
-            hInsertGraphicsToNewFile( sOutputFile ) ' local helper function, see bottom of this file
-        else
-            warnlog( "File was not saved: " & sOutputFile )
-        endif
-
-        bTemp = fGetSizeXY( sx1, sY, bTemp )
-        if (bTemp = FALSE) then
-            warnlog "Selected original size NOT OK :-("
-        endif
-    endif
-
-    hFileReOpen( "" )
-    printlog "----------4th: exporting rectangle and reload file."
-    hRechteckErstellen ( 10, 10, 30, 40 )
-
-    if ( hCallExport( OutputGrafikTBO + "2" , sFilter, TRUE ) ) then
-
-        Kontext "PCTOptions"
-        printlog( "Export options dialog" )
-        if ( PCTOptions.Exists( 2 ) ) then
-            Exportwidth.SetText "9"
-            if Exportmeasurement.GetSelText = "inches" then
-                sx1 = (Exportwidth.GetText)+ """"
-                printlog "sx1= " & sx1
-            else
-                sx1 = (Exportwidth.GetText)+ "cm"
-            endif
-
-            if Exportmeasurement.GetSelText = "inches" then
-                sY = (Exportheight.GetText)+ """"
-                printlog "sY= " & sY
-            else
-                sY = (Exportheight.GetText)+ "cm"
-            endif
-            hCloseDialog( PCTOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        sOutputFile = OutputGrafikTBO + "2" + sExt
-
-        if ( not hWaitForOutputFile( sOutputFile ) ) then
-            warnlog( "File was not saved: " & sOutputFile )
-        endif
-
-        printlog( "Reload file if it exists. Warn if not" )
-        hFileReOpen( sOutputFile )
-
-        kontext "DocumentDraw"
-        DocumentDraw.TypeKeys ("<escape><tab>")
-        ContextOriginalSize
-        bTemp = fGetSizeXY( sx1, sY, bTemp )
-        if ( not bTemp ) then warnlog "Selected original size NOT OK :-("
-    endif
-
     call hCloseDocument
 
 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"

testautomation/graphics/optional/includes/global/g_clipboard.inc

 
 testcase tiEditUndo
 
-    Dim sDatei as string
     Dim Ueber_Text_1 as string
+    dim sTestfile as string
+    dim sLocaltestfile as string
     
     if ( gApplication = "IMPRESS" ) then
         ExtensionString = "odp"
         ExtensionString = "odg"
     end if
     
-    sDatei = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-    
-    hFileOpenLocally( sDatei )
-
+    sTestfile = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
+    printlog "Loading test file.."
+    hFileOpenLocally( sTestfile )
+    sleep 3
+    printlog "Selecting grey rectangle.."
     hTypeKeys "<TAB><TAB>"
     sleep 3
+    printlog "Opening Position and size dialog."
     ContextPositionAndSize
     Kontext
     if Messagebox.exists (5) then
-      Messagebox.SetPage TabPositionAndSize
+        Messagebox.SetPage TabPositionAndSize
     else
-      print "what"
+        printlog "Not the expected Dialog came up. Please check."
     endif
     Kontext "TabPositionAndSize"
-    Ueber_Text_1=PositionX.GetText				'/// defining variable for original position of object ///'
+    printlog "defining variable for original position of object"
+    Ueber_Text_1=PositionX.GetText
+    printlog "Canceling dialog."
     TabPositionAndSize.Cancel
     sleep 2
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
-    ContextArrangeBringBackward					'/// Bring Object backward ///'
+    printlog "Sending Rectangle backwards."
+    ContextArrangeBringBackward	
     sleep 1
+    printlog "Deselect."
     gMouseClick 60,60
     sleep 1
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
+    printlog "trying to select blue rectangle in front"
     hTypeKeys "<TAB><TAB>"
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
-    ContextPositionAndSize					'/// Open Position and Size dialog, checking position ///'
+    printlog "Open Position and Size dialog, checking position"
+    ContextPositionAndSize
     Kontext
     Messagebox.SetPage TabPositionAndSize
     Kontext "TabPositionAndSize"
-    if PositionX=0 Then Warnlog "  Command was not completely executed, and it could not be undone."
+    if PositionX=0 Then Warnlog "Command was not completely executed, and it could not be undone."
     TabPositionAndSize.Cancel
     sleep 2
     gMouseClick 60,60
     sleep 1
-    
-    EditUndo							'/// Edit Undo for BringBackward ///'
+    printlog "Edit Undo for BringBackward"
+    EditUndo
     Sleep 2
     gMouseClick 60,60
     sleep 1
     Kontext "Toolbar"
     Auswahl.Click
+    printlog "Trying to select grey rectangle again."
     hTypeKeys "<TAB><TAB>"
     sleep 1
     Kontext "Toolbar"
     Auswahl.Click
-    ContextPositionAndSize					'/// Again checking position using Position and Size dialog ///'
+    printlog "Again checking position using Position and Size dialog"
+    ContextPositionAndSize
     kontext
     Messagebox.SetPage TabPositionAndSize
     kontext "TabPositionAndSize"
+    printlog "Checking if x Position is like ata the start again."
     if PositionX.GetText = Ueber_Text_1 then
       printlog "OK, last order could be redone"
     else
       warnlog "Last order could not be redone"
     end if
     TabPositionAndSize.Cancel
-    
-    Call hCloseDocument						'/// Close document ///'
+    printlog "Close document"
+    sLocaltestfile = hFileGetLocalPath( gTesttoolPath + "leer."+ExtensionString )
+    printlog sLocaltestfile
+    if (FileExists (sLocaltestfile)) then
+        app.kill (sLocaltestfile)
+        printlog "Deleting used file."
+    else
+        warnlog "File is missing."
+    endif
+    Call hCloseDocument	
 
 endcase
 

testautomation/graphics/optional/includes/global/g_demoguide.inc

     wait(20000)
     Kontext "AvailableForUsePreview"
     AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>"
-    sleep (5)
+    sleep (10)
     printlog "    Verify that the background has changed"
     Kontext "DocumentImpress"
     printlog "    Background is " & DocumentImpress.StatusGetText (6)     'Debugcode
     Kontext "Tasks"
     Kontext "AvailableForUsePreview"
     AvailableForUsePreview.TypeKeys "<HOME> <RETURN>"
-    sleep (5)
+    sleep (10)
     Kontext "DocumentImpress"
     if DocumentImpress.StatusGetText (6) = sTemplatename then
             printlog "    The background has been set back to default"
     Kontext "DocumentImpress"
     Kontext "Slides"
     Kontext "SlidesControl"
-    SlidesControl.TypeKeys "<Mod1 X>"
+    SlidesControl.OpenContextMenu
+    sleep 1
+    hMenuSelectNr (8)
     Kontext "DocumentImpress"
-    DocumentImpress.TypeKeys "<HOME>"
+    DocumentImpress.TypeKeys "<HOME>", true
     Kontext "Slides"
     Kontext "SlidesControl"
-    SlidesControl.TypeKeys "<Mod1 V>"
-    kontext "InsertPaste"
-     if InsertPaste.Exists(1) then
-        Before.Check
-        InsertPaste.OK
-     endif
+    SlidesControl.OpenContextMenu
+    sleep 1
+    hMenuSelectNr (10)
+
      Printlog "    Verify that the slide was moved correctly"
      Kontext "Slides"
-     SlidesControl.TypeKeys "<PAGEUP>"
+     sleep (5)
+
      SlidesControl.TypeKeys "<SHIFT F10>"
      if hMenuFindSelect(27268, true, 3) = false then
         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
     setclipboard("")
     try
         Kontext "DocumentImpressOutlineView"
-        DocumentImpressOutlineView.TypeKeys "<MOD1 HOME><SHIFT END>"
         DocumentImpressOutlineView.TypeKeys "<Mod1 C>"
         sleep (5)
-        if getclipboard() <> ".NET Enterprise" then
+        if getclipboard() <> ".NET Enterprise Federation" then
                 warnlog "    Wrong selection in outlineview. Should be '.NET Enterprise', but is '" & getclipboard() +"'."
             else printlog "    Switching to Outlineview was successfull"
         endif

testautomation/graphics/optional/includes/global/g_find_replace.inc

 '*
 '\**********************************************************************************
 testcase tiEditSearchAndReplace
+    qaerrorlog "#i115121# Find and replace: wrong replacement"
+    goto endsub
    '/// This test tests the 'Search and Replace' -dialogue. ///'
    Dim sFile  'as string
    Dim sExpression(2) as string  ' Expression to look for: ... Replace with

testautomation/graphics/optional/includes/global/g_paneview.inc

         Sleep 1
         Slides.Size 300, 400
         Sleep 1
-        Slides.Size 150, 250
+        Slides.Size 170, 250
         Sleep 1
         Slides.Size xSize%, ySize%
         Sleep 1
         Sleep 1
         Pagepane.Size 300, 400
         Sleep 1
-        Pagepane.Size 150, 250
+        Pagepane.Size 170, 250
         Sleep 1
         Pagepane.Size xSize%, ySize%
         Sleep 1

testautomation/graphics/optional/includes/global/g_spellcheck.inc

 testcase tiToolsSpellcheckError
     if iSprache = 48 then
         qaerrorlog "This test is not adapted for polish, 48."
-        got endsub
+        goto endsub
     endif
     Dim Fehler$
     Dim Sprachenname$
     case 39 : FehlerText$ = "Ringrarziamo per l'interessa mostrato a collaborare con la firma." : Fehler$ = "Ringrarziamo" : Sprachenname$ = "Italienisch"
     case 46 : FehlerText$ = "Detd varierar vad som behandlas och ur vilket perspektiv."         : Fehler$ = "Detd"         : Sprachenname$ = "Schwedisch"
     case 49 : FehlerText$ = "Diees ist ein Fehler."                         : Fehler$ = "Diees" : Sprachenname$ = "Deutsch"
-    case 50 : FehlerText$ = "Toje napaka, ker manjka presledek."            : Fehler$ = "Toje" : Sprachenname$ = "Slovenš�?ina"
+    case 50 : FehlerText$ = "Toje napaka, ker manjka presledek."            : Fehler$ = "Toje" : Sprachenname$ = "Slovenš�?ina"
     case 55 : FehlerText$ = "Eesta poderia ser a resposta para suas preces?": Fehler$ = "Eesta" : Sprachenname$ = "Portugiesisch"
     case else :
         if bAsianLan then
     printlog "Close document"
     Call hCloseDocument
 
-endcase
+endcase 'tiToolsSpellcheckCheck_Change
 '-------------------------------------------------------------------------------
 testcase tiToolsSpellcheckCheck_ChangeAll
 
     printlog "Close document"
     Call hCloseDocument
 
-endcase
+endcase 'tiToolsSpellcheckCheck_ChangeAll
+
 '-------------------------------------------------------------------------------
+
 function delete_all_added_words(aWords)
 
     '/// this function delete the words in sWords in all user dictionaries
     Dim iWordCounter as integer
     Dim iBooks as integer
 
-    Select Case Ucase(gApplication)
-    case "DRAW"         : sExt = ".odg"
-    case "IMPRESS"      : sExt = ".odp"
-    end select
-
-    printlog "Load prepared document containing 4 errors : graphics\\required\\input\\recht_" & iSprache & sExt
-    if (not bAsianLan) then
-        printlog "Check if the document is writable."
-        Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
-    else
-        Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_1"+sExt)
-    end if
-    if fIsDocumentWritable = false then
-        printlog "Make the document writable and check if it's succesfull."
-        if fMakeDocumentWritable = false then
-            warnlog "The document can't be make writeable. Test stopped."
-            goto endsub
-        end if
-    end if
-    select case iSprache  ' sWord(1)=red     : sWord(2)=turquoise
-    case 01 : sWord(1) = "documente"     : sWord(2) = "expriss"
-    case 33 : sWord(1) = "intercu"       : sWord(2) = "Lees"
-    case 34 : sWord(1) = "afekto"        : sWord(2) = "fratternal"
-    case 36 : sWord(1) = "szeerint"       : sWord(2) = "tervvezi"
-    case 39 : sWord(1) = "Millano"       : sWord(2) = "tarrget"
-    case 46 : sWord(1) = "desa"          : sWord(2) = "occh"
-    case 49 : sWord(1) = "Texxt"         : sWord(2) = "reichtt"
-    case 50 : sWord(1) = "Bsedilo"       : sWord(2) = "zados�?a"
-    case 55 : sWord(1) = "esktava"         : sWord(2) = "noitee"
-    case else :
-        if bAsianLan then
-            sWord(1) = "documente"     : sWord(2) = "expriss"
-        else
-            Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here and create the file"
-        end if
-    end select
-    sleep 2
-
+    Printlog "Delete the given words from dictionaries."
     printlog "Call Tools->Options."
     ToolsOptions
     printlog "Select in category 'Languagesettings' entry 'Writing Aids.'"
     Kontext "BenutzerwoerterbuchBearbeiten"
     sleep 1
     printlog "Check every book, if it contains the words."
-    iBooks = Buch.getItemCount    
+    iBooks = Buch.getItemCount
     for iBookCounter = 1 to iBooks
         Buch.select(iBookCounter)
         printlog "Items in Booklist: " & WordList.getItemCount
     printlog "Press button 'OK' on dialog 'Writing Aids'."
     ExtrasOptionenDlg.OK
     
-end function
+end function 'delete_all_added_words
+
 '-------------------------------------------------------------------------------
+
 function delete_word_from_dictionary(sWord as String, sDictionary as String)
 
     '/// this function delete the words in sWords in all user dictionaries
     printlog "Press button 'OK' on dialog 'Writing Aids'."
     ExtrasOptionenDlg.OK
 
-end function
+end function 'delete_word_from_dictionary
+
+'-------------------------------------------------------------------------------
 
 function fSelectWithString(oControl as Object,sText as String)
 
         endif
     next
 
-end function
+end function 'fSelectWithString
 
+'-------------------------------------------------------------------------------
 
 function getWordsForLanguage()
 
 
     getWordsForLanguage = aWords
 
-end function
+end function 'getWordsForLanguage

testautomation/graphics/optional/includes/global/g_stylist.inc

         goto endsub
     end select
 
+    printlog "Open new doc"
     Call hNewDocument
     sleep 2
+    printlog "call the navigator"
     Kontext "Gestalter"
     if Gestalter.Exists Then
         Warnlog "- Stylist exists, perhaps not closed last time a Impress doc was open"
 
     FormatStylist
     Kontext "Gestalter"
+    printlog "opening graphics styles"
     Grafikvorlagen.Click
     sleep 1
+    printlog "Select number 1"
     Vorlagenliste.Select Num1        ' num1
     sleep 1
     Printlog "- open Grafic template Dialogs using the context menue , checking if all resources exist"
+    printlog "Opening context menu"
     Vorlagenliste.OpenContextMenu
     sleep 1
     hMenuSelectNr (2)
     Messagebox.SetPage TabText
     Kontext "TabText"
     sleep 1
+    printlog "Canceling dialog"
     TabText.Cancel
     sleep 1
 
         Kontext "Gestalter"
         Printlog "- presentation templates"
         sleep 1
+        printlog "presentation styles"
         Praesentationsvorlagen.Click
 
         Vorlagenliste.Select Num2
         sleep 1
+        printlog "opening context menu"
         Vorlagenliste.OpenContextMenu
         sleep 1
+        printlog "selecting modify"
         hMenuSelectNr (1)
         sleep 1
         Kontext
         if Messagebox.exists (5) then
             try
-                '                    Messagebox.SetPage TabArea
+                printlog "Messagebox.SetPage TabArea"
                 Kontext "TabArea"
                 if TabArea.Exists = false then
                     warnlog "Where is TabArea?"
         Kontext "Gestalter"
         sleep 1
 
+        printlog "Select number 3"
         Vorlagenliste.Select Num3
         sleep 1
+        printlog "opening context menu of number 3"
         Vorlagenliste.OpenContextMenu
         sleep 1
         hMenuSelectNr (1)
         sleep 1
+        printlog "Check the styles..."
         call hWalkTheStyles (1,1)
         Kontext
+        printlog "setting tabpage indents and spacing"
         Messagebox.SetPage TabEinzuegeUndAbstaende
         Kontext "TabEinzuegeUndAbstaende"
         sleep 1
+        printlog "Canceling tabpage"
         TabEinzuegeUndAbstaende.Cancel
         sleep 1
         Kontext "Gestalter"
         sleep 1
 
+        printlog "Select number 4"
         Vorlagenliste.Select Num4
         sleep 1
+        printlog "opening context menu of number 4"
         Vorlagenliste.OpenContextMenu
         sleep 1
         hMenuSelectNr (1)
         sleep 1
         Kontext
+        printlog "setting tabpage TabFont"
         Messagebox.SetPage TabFont
         kontext "TabFont"
         Kontext
+        printlog "setting tabpage TabFontEffects"
         Messagebox.SetPage TabFontEffects
         kontext "TabFontEffects"
         Kontext
+        printlog "setting tabpage TabIndents and Spacing"
         Messagebox.SetPage TabEinzuegeUndAbstaende
         kontext "TabEinzuegeUndAbstaende"
         sleep 1
+        printlog "canceling TabIndents and Spacing"
         TabEinzuegeUndAbstaende.Cancel
         sleep 1
         Kontext "Gestalter"
         sleep 1
 
+        printlog "opening context menu of number 5"
         Vorlagenliste.Select Num5
         sleep 1
+        printlog "opening context menu of number 5"
         Vorlagenliste.OpenContextMenu
         sleep 1
         hMenuSelectNr (1)
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Font"
         Messagebox.SetPage TabFont
         kontext "TabFont"
         Kontext
+        printlog "setting tabpage Tab FontEffects"
         Messagebox.SetPage TabFontEffects
         kontext "TabFontEffects"
         Kontext
+        printlog "setting tabpage TabIndents and Spacing"
         Messagebox.SetPage TabEinzuegeUndAbstaende
         kontext "TabEinzuegeUndAbstaende"
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Bullets"
         Messagebox.SetPage TabBullet
         Kontext "TabBullet"
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Numbering Type"
         Messagebox.SetPage TabNumerierungsart
         Kontext "TabNumerierungsart"
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Graphics"
         Messagebox.SetPage TabGrafiken
         Kontext "TabGrafiken"
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Numbering options"
         Messagebox.SetPage TabOptionenNumerierung
         Kontext "TabOptionenNumerierung"
         sleep 1
+        printlog "Canceling..."
         TabOptionenNumerierung.Cancel
         sleep 1
     endif
+    kontext "DocumentImpress"
+    printlog "Closing Stylist"
     if lcase(gPlatform) = "osx" then
         hTypekeys "<mod1 t>"
     else
-        hTypeKeys "<F11>"
+        Kontext "Gestalter"
+        Gestalter.Close 
     end if
     sleep 1
     Kontext "Gestalter"
     if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
+    printlog "Closing doc."
     Call hCloseDocument
 
 endcase 'tiFormatStylist

testautomation/graphics/optional/includes/impress/i_slideshow.inc

 
     dim bLoaded as boolean
     dim i as integer
+    dim testfile as string
+    dim localtestfile as string
 
     '/// open file 'graphics\\input\\diashow.odp' ///'
-    hFileOpenLocally( gTesttoolPath + "graphics\required\input\diashow.odp" )
+    testfile = ( gTesttoolPath + "graphics\required\input\diashow.odp" )
+    hFileOpenLocally( testfile )
     sleep 30
 
    bLoaded = false
    '/// Set "Start with current page" back to default = on, in ToolsOptions ///'
    setStartCurrentPage(TRUE)
    '/// close the application ///'
-   Call hCloseDocument
-   
+    Call hCloseDocument
+    localtestfile = hFileGetLocalPath( gTesttoolPath + "diashow.odp" )
+    printlog localtestfile
+    if (FileExists (localtestfile)) then
+        app.kill (localtestfile)
+        printlog "Deleting used file."
+    else
+        warnlog "File is missing."
+    endif
 endcase 'tSlideShowSlideShow
 
 '-------------------------------------------------------------------------------
    dim sTemp as string
    dim saSlideNames(4) as string
    dim bCurrentPage as boolean
+   dim sTestfile as string
+   dim sLocaltestfile as string
 
    S1 = glLocale (2) + " 1"
    S2 = glLocale (2) + " 2"
    Call hCloseDocument
    sleep 5
 
-   bLoaded = false
-   '/// open file 'graphics\\input\\diashow.odp' (Slide Show with 4 Slides) ///'
-   hFileOpenLocally( gTesttoolPath + "graphics\required\input\diashow.odp" )
+    bLoaded = false
+    '/// open file 'graphics\\input\\diashow.odp' (Slide Show with 4 Slides) ///'
+    sTestfile = ( gTesttoolPath + "graphics\required\input\diashow.odp" )
+    hFileOpenLocally( sTestfile )
    sleep 10
 
    try
    setStartCurrentPage(TRUE)
    '/// Close the document ///'
    call hCloseDocument
-   
+    sLocaltestfile = hFileGetLocalPath(  gTesttoolPath + "diashow.odp" )
+    printlog sLocaltestfile
+    if (FileExists (sLocaltestfile)) then
+        app.kill (sLocaltestfile)
+        printlog "Deleting used file."
+    else
+        warnlog "File is missing."
+    endif
+
 endcase 'tSlideShowSlideShowSettings
 
 '-------------------------------------------------------------------------------

testautomation/graphics/optional/includes/impress/i_slideshow3.inc

 
 testcase tExtrasIndividuellePraesentation
     Printlog "- Slideshow/Individual slideshow"
- Call hNewDocument							'/// new impress document ///'
+    Call hNewDocument
+    Call sSelectEmptyLayout						'/// new impress document ///'
      '/// Deactivate "Start with current page" in ToolsOptions ///'
      setStartCurrentPage(FALSE)
    '///  check state of navigator ! expected: closed ///'
        Kontext "Bildschirmpraesentation"
        Fenster.Check
        Bildschirmpraesentation.OK
-  InsertSlide                                                           '/// insert slide ///'
-  sleep 2
-  hTypekeys "<Pagedown>"
-  sleep 2
-  InsertSlide
-  sleep 2
-  hTypekeys "<Pagedown>"
-  sleep 2
-  InsertSlide								'/// insert another slide ///'
-  sleep 2
-  hTypekeys "<Pagedown>"
-  sleep 2
-  Printlog "  - Slides added"
-  sleep 1
-  Kontext "DocumentImpress"
-  DocumentImpress.TypeKeys "<MOD1 SHIFT F5>"		'/// open navigator ///'
-  sleep 1
-  Kontext "NavigatorDraw"
+    InsertSlide                                                           '/// insert slide ///'
+    sleep 2
+    Call sSelectEmptyLayout
+    hTypekeys "<Pagedown>"
+    sleep 2
+    InsertSlide
+    sleep 2
+    Call sSelectEmptyLayout
+    hTypekeys "<Pagedown>"
+    sleep 2
+    InsertSlide								'/// insert another slide ///'
+    sleep 2
+    Call sSelectEmptyLayout
+    hTypekeys "<Pagedown>"
+    sleep 2
+    Printlog "  - Slides added"
+    sleep 1
+    Kontext "DocumentImpress"
+    DocumentImpress.TypeKeys "<MOD1 SHIFT F5>"		'/// open navigator ///'
+    sleep 1
+    Kontext "NavigatorDraw"
    if NavigatorDraw.Exists Then
       Printlog "  - Navigator exists"
       Erste.Click							'/// switch to 1st slide ///'

testautomation/graphics/optional/includes/impress/i_view.inc

     Call hNewDocument						'/// new document ///'
     sleep 2
     Kontext "DocumentImpress"
-    if NOT documentImpress.Exists then
-        hNewDocument
-        sleep 1
-    end if
-    sleep 2
+    DocumentImpress.UseMenu
+    hMenuSelectNr (5)
+    hMenuSelectNr (13)
     Printlog "  ViewWorkspaceHandoutView"
     ViewWorkspaceHandoutView						'/// view background handout ///'
     sleep 2
Add a comment to this file

testautomation/graphics/required/input/recht_1.odp

Binary file modified.

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

     '///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
Add a comment to this file

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

File contents unchanged.

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

 '**
 '************************************************************************
 ' **
-' #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
 

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

 '**
 '** 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>