Commits

Anonymous committed 2249d8c

automation007: Fix CRLF line terminators: .inc-files

Comments (0)

Files changed (9)

testautomation/chart2/optional/includes/loadsave/ch2_xml_format.inc

-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'* 
-'* Copyright 2008 by Sun Microsystems, Inc.
-'*
-'* OpenOffice.org - a multi-platform office productivity suite
-'*
-'* $RCSfile: ch2_xml_format.inc,v $
-'*
-'* $Revision: 1.2 $
-'*
-'* last change: $Author: obo $ $Date: 2008-07-22 10:36:42 $
-'*
-'* This file is part of OpenOffice.org.
-'*
-'* OpenOffice.org is free software: you can redistribute it and/or modify
-'* it under the terms of the GNU Lesser General Public License version 3
-'* only, as published by the Free Software Foundation.
-'*
-'* OpenOffice.org is distributed in the hope that it will be useful,
-'* but WITHOUT ANY WARRANTY; without even the implied warranty of
-'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-'* GNU Lesser General Public License version 3 for more details
-'* (a copy is included in the LICENSE file that accompanied this code).
-'*
-'* You should have received a copy of the GNU Lesser General Public License
-'* version 3 along with OpenOffice.org.  If not, see
-'* <http://www.openoffice.org/license.html>
-'* for a copy of the LGPLv3 License.
-'*
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@sun.com
-'*
-'* short description : Verify the Chart2 XML file format
-'*
-'************************************************************************
-'*
-' #1 tCompareXMLFormatCreate   ' Verify Chart2 XML file format by using three characteristcs on new chart
-' #1 tCompareXMLFormatLoad     ' Verify Chart2 XML file format by using three characteristcs on loaded chart
-'*
-'\***********************************************************************
-
-testcase tCompareXMLFormatCreate
-'///+ Test purpose: Verify within three characteristics that there is really a chart 
-
-    dim sOutputFile as string
-    dim sUnpackedStorageDir as string
-    dim sChartContentXML as string
-    
-    gApplication   = "WRITER"
-    sOutputFile = convertpath(gOfficepath & "user\work\Chart2_XML.odt")
-    sUnpackedStorageDir = (gOfficePath & ConvertPath("user\work\chart2_XML2"))
-    sChartContentXML = (gOfficePath & ConvertPath("user\work\chart2_XML2") & ConvertPath("\Object 1\content.xml"))
-    
-    '/// File / New / Text
-    printlog " Open new Writer document"
-    call hNewDocument
-    '/// Insert chart with Insert / Object / Chart
-    printlog " Insert chart with Insert / Object / Chart"
-    InsertChart
-    '/// Save document to <i>gOfficepath</i>/user/work/Chart2_XML.odt
-    printlog " Save document to <i>gOfficepath</i>/user/work/Chart2_XML.odt"
-    if NOT hFileSaveAsKill (sOutputFile) then
-        warnlog "Saving test document failed -> Aborting"
-        call hCloseDocument
-        goto endsub
-    else
-        printlog "File saved successfully."
-    endif    
-    '/// File / Close
-    call hCloseDocument
-    sleep(3)
-    printlog "File closed"    
-    '/// Uncompress with <i>unzip</i> or <i>jar</i> the 
-    '///+ <i>gOfficepath</i>/user/work/verySimpleChart.ods document
-    '///+ into <i>gOfficePath</i>/user/work/chart2_XML-directory
-    printlog "Unpack storage of test document."
-    UnpackStorage(sOutputFile, sUnpackedStorageDir)
-    printlog "Read the test documents DOM."    
-    '/// Load the XML file <i>gOfficePath</i>/user/work/chart2_XML/Object 1/content.xml
-    '///+ in an XML editor
-    SAXReadFile(sChartContentXML)       
-    printlog "Set the DOM pointer to document root"
-    printlog "|-/"
-    SAXSeekElement("/")
-    printlog "  |-office:document-content"
-    '/// Open the element 'office:document-content' 
-    SAXSeekElement("office:document-content")
-    printlog "    |-office:body"
-    '/// Open the element 'office:body'
-    SAXSeekElement("office:body")
-    printlog "      |-office:chart"
-    '/// Open the element 'office:chart'
-    SAXSeekElement("office:chart")
-    printlog "         |-chart:chart"
-    '/// Open the element 'chart:chart'
-    SAXSeekElement("chart:chart")
-    '/// Get the attribute value for <i>chart:class</i>.
-    '///+ If it is 'chart:bar' the first characteristics validation has been
-    '///+ passed.
-    if SAXGetAttributeValue("chart:class") = "chart:bar" then
-        printlog "This is a bar chart as expected"
-    else 
-        warnlog "This is no bar chart, it is a " & SaxGetAttributeValue("chart:class")
-    endif        
-    printlog "Seek for chart:plot-area"
-    printlog "            |-chart:plot-area"
-    '/// Open the element 'chart:plot-area'
-    SAXSeekElement("chart:plot-area")
-    '/// If the attribute value of 'chart:data-source-has-labels' is 'both'
-    '///+ the second characteristics validation has been passed.
-    if SAXGetAttributeValue("chart:data-source-has-labels") = "both" then
-        printlog "The label attribute for chart:plot-area is correct"
-    else 
-        warnlog "The lable attribute is not both, it is " & SaxGetAttributeValue("chart:data-source-has-labels")
-    endif    
-    printlog "Seek for chart:series"
-    printlog "               |-chart:series"
-    '/// Open the element 'chart:series'
-    SAXSeekElement("chart:series")
-    '/// If the attribute valie of 'chart:values-cell-range-address' is local-table.$B$2:.$B$5''
-    '///+ the hird characteristics validation has been passed.
-    if SAXGetAttributeValue("chart:values-cell-range-address") = "local-table.$B$2:.$B$5" then
-        printlog "The cell range for chart:series is correct"
-    else 
-        warnlog "The cell range is not local-table.$B$2:.$B$5, it is " & SaxGetAttributeValue("chart:values-cell-range-address")
-    endif
-    ' DEBUG: printlog "I'm here: " & SAXGetElementName   
-    '/// Close the XML editor.
-    SAXRelease    
-endcase
-'
-'--------------------------------------------------------------------
-'
-testcase tCompareXMLFormatLoad
-'///+ Test purpose: Verify within three characteristics that there is really a chart 
-
-    dim sOutputFile as string
-    dim sUnpackedStorageDir as string
-    dim sChartContentXML as string
-    
-    gApplication   = "CALC"
-    sOutputFile = convertpath(gOfficepath & "user\work\verySimpleChart.ods")
-    sUnpackedStorageDir = (gOfficePath & ConvertPath("user\work\chart2_XML"))
-    sChartContentXML = (gOfficePath & ConvertPath("user\work\chart2_XML") & ConvertPath("\Object 1\content.xml"))
-    
-    '/// File / Open / <i>gTestToolPath</i>/chart2/update/input/verySimpleChart.ods
-    '/// File / Save As / <i>gOfficepath</i>/user/work/verySimpleChart.ods 
-    if fLoadVerySimpleChartAndSaveLocal() > 0 then
-        warnlog "Loading test document failed!"
-        goto endsub
-    else
-        printlog "Test document has successfully been loaded."
-    endif
-    
-    '/// Select the chart object using the navigator
-    printlog "Select chart using navigator"
-    if fSelectFirstOLE = 0 then
-        printlog "Chart is selected"
-    else 
-        warnlog "Chart could not be selected"
-        call hCloseDocument
-        goto endsub
-    endif
-    
-    '/// Activate chart with Edit / Object / Edit
-    printlog "Activate chart by Edit / Object / Edit"
-    EditObjectEdit
-    
-    'Save document localy
-    Kontext "DocumentCalc"
-    '/// Press twice <ESCAPE> to leave the chart object
-    DocumentCalc.TypeKeys "<ESCAPE>" , 2   'Leave chart and unselect it
-    '/// Press <CTRL+HOME> to get to cell A1
-    DocumentCalc.TypeKeys "<MOD1 HOME>"
-    '/// Press <F9> to re-calculate the spreadsheet and the objects
-    DocumentCalc.TypeKeys "<F9>"
-    '/// Save the document again
-    if NOT hFileSave (sOutputFile) then
-        warnlog "Saving test document localy failed -> Aborting"
-        call hCloseDocument
-        goto endsub
-    else
-        printlog "File with very simple chart saved successfully."
-    endif    
-    '/// File / Close
-    call hCloseDocument
-    sleep(3)
-    printlog "File with very simple chart closed"    
-    '/// Uncompress with <i>unzip</i> or <i>jar</i> the 
-    '///+ <i>gOfficepath</i>/user/work/verySimpleChart.ods document
-    '///+ into <i>gOfficePath</i>/user/work/chart2_XML-directory
-    printlog "Unpack storage of test document."
-    UnpackStorage(sOutputFile, sUnpackedStorageDir)
-    printlog "Read the test documents DOM."    
-    '/// Load the XML file <i>gOfficePath</i>/user/work/chart2_XML/Object 1/content.xml
-    '///+ in an XML editor
-    SAXReadFile(sChartContentXML)       
-    printlog "Set the DOM pointer to document root"
-    printlog "|-/"
-    SAXSeekElement("/")
-    printlog "  |-office:document-content"
-    '/// Open the element 'office:document-content' 
-    SAXSeekElement("office:document-content")
-    printlog "    |-office:body"
-    '/// Open the element 'office:body'
-    SAXSeekElement("office:body")
-    printlog "      |-office:chart"
-    '/// Open the element 'office:chart'
-    SAXSeekElement("office:chart")
-    printlog "         |-chart:chart"
-    '/// Open the element 'chart:chart'
-    SAXSeekElement("chart:chart")
-    '/// Get the attribute value for <i>chart:class</i>.
-    '///+ If it is 'chart:bar' the first characteristics validation has been
-    '///+ passed.
-    if SAXGetAttributeValue("chart:class") = "chart:bar" then
-        printlog "This is a bar chart as expected"
-    else 
-        warnlog "This is no bar chart, it is a " & SaxGetAttributeValue("chart:class")
-    endif        
-    printlog "Seek for chart:plot-area"
-    printlog "            |-chart:plot-area"
-    '/// Open the element 'chart:plot-area'
-    SAXSeekElement("chart:plot-area")
-    '/// If the attribute value of 'table:cell-range-address' is 'Sheet1.A1:Sheet1.B2'
-    '///+ the second characteristics validation has been passed.
-    if SAXGetAttributeValue("table:cell-range-address") = "Sheet1.A1:B2" then
-        printlog "The cell range for chart:plot-area is correct"
-    else 
-        warnlog "#i100780#: The cell range is not Sheet1.A1:B2, it is " & SaxGetAttributeValue("table:cell-range-address")
-    endif    
-    printlog "Seek for chart:series"
-    printlog "               |-chart:series"
-    '/// Open the element 'chart:series'
-    SAXSeekElement("chart:series")
-    '/// If the attribute valie of 'chart:values-cell-range-address' is Sheet1.A1:Sheet1.A2''
-    '///+ the hird characteristics validation has been passed.
-    if SAXGetAttributeValue("chart:values-cell-range-address") = "Sheet1.A1:A2" then
-        printlog "The cell range for chart:series is correct"
-    else 
-        warnlog "#i100780#: The cell range is not Sheet1.A1:A2, it is " & SaxGetAttributeValue("chart:values-cell-range-address")
-    endif
-    ' DEBUG: printlog "I'm here: " & SAXGetElementName   
-    '/// Close the XML editor.
-    SAXRelease    
-endcase
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'* 
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: ch2_xml_format.inc,v $
+'*
+'* $Revision: 1.2 $
+'*
+'* last change: $Author: obo $ $Date: 2008-07-22 10:36:42 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org.  If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/***********************************************************************
+'*
+'* owner : oliver.craemer@sun.com
+'*
+'* short description : Verify the Chart2 XML file format
+'*
+'************************************************************************
+'*
+' #1 tCompareXMLFormatCreate   ' Verify Chart2 XML file format by using three characteristcs on new chart
+' #1 tCompareXMLFormatLoad     ' Verify Chart2 XML file format by using three characteristcs on loaded chart
+'*
+'\***********************************************************************
+
+testcase tCompareXMLFormatCreate
+'///+ Test purpose: Verify within three characteristics that there is really a chart 
+
+    dim sOutputFile as string
+    dim sUnpackedStorageDir as string
+    dim sChartContentXML as string
+    
+    gApplication   = "WRITER"
+    sOutputFile = convertpath(gOfficepath & "user\work\Chart2_XML.odt")
+    sUnpackedStorageDir = (gOfficePath & ConvertPath("user\work\chart2_XML2"))
+    sChartContentXML = (gOfficePath & ConvertPath("user\work\chart2_XML2") & ConvertPath("\Object 1\content.xml"))
+    
+    '/// File / New / Text
+    printlog " Open new Writer document"
+    call hNewDocument
+    '/// Insert chart with Insert / Object / Chart
+    printlog " Insert chart with Insert / Object / Chart"
+    InsertChart
+    '/// Save document to <i>gOfficepath</i>/user/work/Chart2_XML.odt
+    printlog " Save document to <i>gOfficepath</i>/user/work/Chart2_XML.odt"
+    if NOT hFileSaveAsKill (sOutputFile) then
+        warnlog "Saving test document failed -> Aborting"
+        call hCloseDocument
+        goto endsub
+    else
+        printlog "File saved successfully."
+    endif    
+    '/// File / Close
+    call hCloseDocument
+    sleep(3)
+    printlog "File closed"    
+    '/// Uncompress with <i>unzip</i> or <i>jar</i> the 
+    '///+ <i>gOfficepath</i>/user/work/verySimpleChart.ods document
+    '///+ into <i>gOfficePath</i>/user/work/chart2_XML-directory
+    printlog "Unpack storage of test document."
+    UnpackStorage(sOutputFile, sUnpackedStorageDir)
+    printlog "Read the test documents DOM."    
+    '/// Load the XML file <i>gOfficePath</i>/user/work/chart2_XML/Object 1/content.xml
+    '///+ in an XML editor
+    SAXReadFile(sChartContentXML)       
+    printlog "Set the DOM pointer to document root"
+    printlog "|-/"
+    SAXSeekElement("/")
+    printlog "  |-office:document-content"
+    '/// Open the element 'office:document-content' 
+    SAXSeekElement("office:document-content")
+    printlog "    |-office:body"
+    '/// Open the element 'office:body'
+    SAXSeekElement("office:body")
+    printlog "      |-office:chart"
+    '/// Open the element 'office:chart'
+    SAXSeekElement("office:chart")
+    printlog "         |-chart:chart"
+    '/// Open the element 'chart:chart'
+    SAXSeekElement("chart:chart")
+    '/// Get the attribute value for <i>chart:class</i>.
+    '///+ If it is 'chart:bar' the first characteristics validation has been
+    '///+ passed.
+    if SAXGetAttributeValue("chart:class") = "chart:bar" then
+        printlog "This is a bar chart as expected"
+    else 
+        warnlog "This is no bar chart, it is a " & SaxGetAttributeValue("chart:class")
+    endif        
+    printlog "Seek for chart:plot-area"
+    printlog "            |-chart:plot-area"
+    '/// Open the element 'chart:plot-area'
+    SAXSeekElement("chart:plot-area")
+    '/// If the attribute value of 'chart:data-source-has-labels' is 'both'
+    '///+ the second characteristics validation has been passed.
+    if SAXGetAttributeValue("chart:data-source-has-labels") = "both" then
+        printlog "The label attribute for chart:plot-area is correct"
+    else 
+        warnlog "The lable attribute is not both, it is " & SaxGetAttributeValue("chart:data-source-has-labels")
+    endif    
+    printlog "Seek for chart:series"
+    printlog "               |-chart:series"
+    '/// Open the element 'chart:series'
+    SAXSeekElement("chart:series")
+    '/// If the attribute valie of 'chart:values-cell-range-address' is local-table.$B$2:.$B$5''
+    '///+ the hird characteristics validation has been passed.
+    if SAXGetAttributeValue("chart:values-cell-range-address") = "local-table.$B$2:.$B$5" then
+        printlog "The cell range for chart:series is correct"
+    else 
+        warnlog "The cell range is not local-table.$B$2:.$B$5, it is " & SaxGetAttributeValue("chart:values-cell-range-address")
+    endif
+    ' DEBUG: printlog "I'm here: " & SAXGetElementName   
+    '/// Close the XML editor.
+    SAXRelease    
+endcase
+'
+'--------------------------------------------------------------------
+'
+testcase tCompareXMLFormatLoad
+'///+ Test purpose: Verify within three characteristics that there is really a chart 
+
+    dim sOutputFile as string
+    dim sUnpackedStorageDir as string
+    dim sChartContentXML as string
+    
+    gApplication   = "CALC"
+    sOutputFile = convertpath(gOfficepath & "user\work\verySimpleChart.ods")
+    sUnpackedStorageDir = (gOfficePath & ConvertPath("user\work\chart2_XML"))
+    sChartContentXML = (gOfficePath & ConvertPath("user\work\chart2_XML") & ConvertPath("\Object 1\content.xml"))
+    
+    '/// File / Open / <i>gTestToolPath</i>/chart2/update/input/verySimpleChart.ods
+    '/// File / Save As / <i>gOfficepath</i>/user/work/verySimpleChart.ods 
+    if fLoadVerySimpleChartAndSaveLocal() > 0 then
+        warnlog "Loading test document failed!"
+        goto endsub
+    else
+        printlog "Test document has successfully been loaded."
+    endif
+    
+    '/// Select the chart object using the navigator
+    printlog "Select chart using navigator"
+    if fSelectFirstOLE = 0 then
+        printlog "Chart is selected"
+    else 
+        warnlog "Chart could not be selected"
+        call hCloseDocument
+        goto endsub
+    endif
+    
+    '/// Activate chart with Edit / Object / Edit
+    printlog "Activate chart by Edit / Object / Edit"
+    EditObjectEdit
+    
+    'Save document localy
+    Kontext "DocumentCalc"
+    '/// Press twice <ESCAPE> to leave the chart object
+    DocumentCalc.TypeKeys "<ESCAPE>" , 2   'Leave chart and unselect it
+    '/// Press <CTRL+HOME> to get to cell A1
+    DocumentCalc.TypeKeys "<MOD1 HOME>"
+    '/// Press <F9> to re-calculate the spreadsheet and the objects
+    DocumentCalc.TypeKeys "<F9>"
+    '/// Save the document again
+    if NOT hFileSave (sOutputFile) then
+        warnlog "Saving test document localy failed -> Aborting"
+        call hCloseDocument
+        goto endsub
+    else
+        printlog "File with very simple chart saved successfully."
+    endif    
+    '/// File / Close
+    call hCloseDocument
+    sleep(3)
+    printlog "File with very simple chart closed"    
+    '/// Uncompress with <i>unzip</i> or <i>jar</i> the 
+    '///+ <i>gOfficepath</i>/user/work/verySimpleChart.ods document
+    '///+ into <i>gOfficePath</i>/user/work/chart2_XML-directory
+    printlog "Unpack storage of test document."
+    UnpackStorage(sOutputFile, sUnpackedStorageDir)
+    printlog "Read the test documents DOM."    
+    '/// Load the XML file <i>gOfficePath</i>/user/work/chart2_XML/Object 1/content.xml
+    '///+ in an XML editor
+    SAXReadFile(sChartContentXML)       
+    printlog "Set the DOM pointer to document root"
+    printlog "|-/"
+    SAXSeekElement("/")
+    printlog "  |-office:document-content"
+    '/// Open the element 'office:document-content' 
+    SAXSeekElement("office:document-content")
+    printlog "    |-office:body"
+    '/// Open the element 'office:body'
+    SAXSeekElement("office:body")
+    printlog "      |-office:chart"
+    '/// Open the element 'office:chart'
+    SAXSeekElement("office:chart")
+    printlog "         |-chart:chart"
+    '/// Open the element 'chart:chart'
+    SAXSeekElement("chart:chart")
+    '/// Get the attribute value for <i>chart:class</i>.
+    '///+ If it is 'chart:bar' the first characteristics validation has been
+    '///+ passed.
+    if SAXGetAttributeValue("chart:class") = "chart:bar" then
+        printlog "This is a bar chart as expected"
+    else 
+        warnlog "This is no bar chart, it is a " & SaxGetAttributeValue("chart:class")
+    endif        
+    printlog "Seek for chart:plot-area"
+    printlog "            |-chart:plot-area"
+    '/// Open the element 'chart:plot-area'
+    SAXSeekElement("chart:plot-area")
+    '/// If the attribute value of 'table:cell-range-address' is 'Sheet1.A1:Sheet1.B2'
+    '///+ the second characteristics validation has been passed.
+    if SAXGetAttributeValue("table:cell-range-address") = "Sheet1.A1:B2" then
+        printlog "The cell range for chart:plot-area is correct"
+    else 
+        warnlog "#i100780#: The cell range is not Sheet1.A1:B2, it is " & SaxGetAttributeValue("table:cell-range-address")
+    endif    
+    printlog "Seek for chart:series"
+    printlog "               |-chart:series"
+    '/// Open the element 'chart:series'
+    SAXSeekElement("chart:series")
+    '/// If the attribute valie of 'chart:values-cell-range-address' is Sheet1.A1:Sheet1.A2''
+    '///+ the hird characteristics validation has been passed.
+    if SAXGetAttributeValue("chart:values-cell-range-address") = "Sheet1.A1:A2" then
+        printlog "The cell range for chart:series is correct"
+    else 
+        warnlog "#i100780#: The cell range is not Sheet1.A1:A2, it is " & SaxGetAttributeValue("chart:values-cell-range-address")
+    endif
+    ' DEBUG: printlog "I'm here: " & SAXGetElementName   
+    '/// Close the XML editor.
+    SAXRelease    
+endcase

testautomation/dbaccess/optional/includes/db_Mozilla.inc

-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'* 
-'* Copyright 2008 by Sun Microsystems, Inc.
-'*
-'* OpenOffice.org - a multi-platform office productivity suite
-'*
-'* $RCSfile: db_Mozilla.inc,v $
-'*
-'* $Revision: 1.1 $
-'*
-'* last change: $Author: jsi $ $Date: 2008-06-16 07:43:41 $
-'*
-'* This file is part of OpenOffice.org.
-'*
-'* OpenOffice.org is free software: you can redistribute it and/or modify
-'* it under the terms of the GNU Lesser General Public License version 3
-'* only, as published by the Free Software Foundation.
-'*
-'* OpenOffice.org is distributed in the hope that it will be useful,
-'* but WITHOUT ANY WARRANTY; without even the implied warranty of
-'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-'* GNU Lesser General Public License version 3 for more details
-'* (a copy is included in the LICENSE file that accompanied this code).
-'*
-'* You should have received a copy of the GNU Lesser General Public License
-'* version 3 along with OpenOffice.org.  If not, see
-'* <http://www.openoffice.org/license.html>
-'* for a copy of the LGPLv3 License.
-'*
-'/************************************************************************
-'*
-'* owner : marc.neumann@sun.com
-'*
-'* short description : Address book mozilla
-'*
-'\***********************************************************************
-sub db_Mozilla
-
-    ' Information for this test under
-    ' http://wiki.services.openoffice.org/wiki/Database_Automatic_Testing#Testing_the_mozilla_Address_book
-
-    if fCreateMozillaAddressbookDatasource(gOfficePath + ConvertPath("user/work/TT_Mozilla.odb")) then
-        
-        tQueryAddressbook(gOfficePath + ConvertPath("user/work/TT_Mozilla.odb"))
-        tSortAddressbook(gOfficePath + ConvertPath("user/work/TT_Mozilla.odb"))
-	else
-        tQueryAddressbook("")
-        tSortAddressbook("")
-    endif
-    
-end sub
-'-------------------------------------------------------------------------
-testcase tQueryAddressbook( sFileName )
-    
-    if ( not fOpenDatabase(sFileName) ) then        
-        warnlog "Database can't be open"
-        printlog "May be you find a solution under http://wiki.services.openoffice.org/wiki/Database_Automatic_Testing#Testing_the_mozilla_Address_book"
-        goto endsub
-    endif
-    
-    fOpenNewQueryDesign
-        
-    Kontext "AddTables"    
-        TableName.Select 1        
-        '/// Add database table to Query.
-        AddTable.Click
-        sleep(2) 
-        if AddTables.exists(2) then 
-            CloseDlg.Click ' When the AddTables dialog still exists then close him
-        endif
-        sleep(1)        
-    Kontext "QueryDesignCriterion"                           
-        Field.Select(1)
-        sleep(1)                
-    Kontext "Toolbar"
-        '/// Executing query
-        printlog "- Executing query"
-        ExecuteBtn.Click
-        sleep(5)
-    Kontext "TableView"
-        if NOT DataWindow.Exists(3) then
-            warnlog "Execution of a query failed!"
-        end if
-
-    call fCloseQueryDesign()
-
-    call fCloseDatabase()
-    
-endcase
-'-------------------------------------------------------------------------
-testcase tSortAddressbook( sFileName )
-    
-    Dim sRecordCount as String
-    
-    '/// open the database file created in the bas file
-    printlog "open the database file created in the bas file"
-    
-    if ( not fOpenDatabase(sFileName) ) then        
-        warnlog "Database can't be open"
-        goto endsub
-    endif
-    
-    '/// open the first table
-    printlog "open the first table"    
-    Kontext "ContainerView"
-        ViewTables
-        TableTree.select(1)
-        OpenTable ' uno-Slot .uno:DB/Open
-    
-    sleep(2)
-
-    '/// count the records in the table
-    printlog "count the records in the table"
-    Kontext "TableView"
-        LastRecord.Click
-        sRecordCount = AllRecords.caption()
-    
-    '/// sort the table
-    printlog "sort the table"
-    Kontext "Toolbar"
-        SortAscending.Click
-        sleep(1)
-    
-    '/// count the table again and check if there are the same count of records then before sorting
-    printlog "count the table again and check if there are the same count of records then before sorting"        
-    Kontext "TableView"
-        LastRecord.Click
-        if (sRecordCount <> AllRecords.caption() ) then
-            warnlog "issue i61611 occur. The records are double after sorting."
-        endif
-
-    '/// close the table
-    printlog "close the table"    
-    call fCloseTableView()
-    
-    '/// close the database
-    printlog "close the database"
-    call fCloseDatabase()
-
-endcase
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'* 
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: db_Mozilla.inc,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-16 07:43:41 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org.  If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/************************************************************************
+'*
+'* owner : marc.neumann@sun.com
+'*
+'* short description : Address book mozilla
+'*
+'\***********************************************************************
+sub db_Mozilla
+
+    ' Information for this test under
+    ' http://wiki.services.openoffice.org/wiki/Database_Automatic_Testing#Testing_the_mozilla_Address_book
+
+    if fCreateMozillaAddressbookDatasource(gOfficePath + ConvertPath("user/work/TT_Mozilla.odb")) then
+        
+        tQueryAddressbook(gOfficePath + ConvertPath("user/work/TT_Mozilla.odb"))
+        tSortAddressbook(gOfficePath + ConvertPath("user/work/TT_Mozilla.odb"))
+	else
+        tQueryAddressbook("")
+        tSortAddressbook("")
+    endif
+    
+end sub
+'-------------------------------------------------------------------------
+testcase tQueryAddressbook( sFileName )
+    
+    if ( not fOpenDatabase(sFileName) ) then        
+        warnlog "Database can't be open"
+        printlog "May be you find a solution under http://wiki.services.openoffice.org/wiki/Database_Automatic_Testing#Testing_the_mozilla_Address_book"
+        goto endsub
+    endif
+    
+    fOpenNewQueryDesign
+        
+    Kontext "AddTables"    
+        TableName.Select 1        
+        '/// Add database table to Query.
+        AddTable.Click
+        sleep(2) 
+        if AddTables.exists(2) then 
+            CloseDlg.Click ' When the AddTables dialog still exists then close him
+        endif
+        sleep(1)        
+    Kontext "QueryDesignCriterion"                           
+        Field.Select(1)
+        sleep(1)                
+    Kontext "Toolbar"
+        '/// Executing query
+        printlog "- Executing query"
+        ExecuteBtn.Click
+        sleep(5)
+    Kontext "TableView"
+        if NOT DataWindow.Exists(3) then
+            warnlog "Execution of a query failed!"
+        end if
+
+    call fCloseQueryDesign()
+
+    call fCloseDatabase()
+    
+endcase
+'-------------------------------------------------------------------------
+testcase tSortAddressbook( sFileName )
+    
+    Dim sRecordCount as String
+    
+    '/// open the database file created in the bas file
+    printlog "open the database file created in the bas file"
+    
+    if ( not fOpenDatabase(sFileName) ) then        
+        warnlog "Database can't be open"
+        goto endsub
+    endif
+    
+    '/// open the first table
+    printlog "open the first table"    
+    Kontext "ContainerView"
+        ViewTables
+        TableTree.select(1)
+        OpenTable ' uno-Slot .uno:DB/Open
+    
+    sleep(2)
+
+    '/// count the records in the table
+    printlog "count the records in the table"
+    Kontext "TableView"
+        LastRecord.Click
+        sRecordCount = AllRecords.caption()
+    
+    '/// sort the table
+    printlog "sort the table"
+    Kontext "Toolbar"
+        SortAscending.Click
+        sleep(1)
+    
+    '/// count the table again and check if there are the same count of records then before sorting
+    printlog "count the table again and check if there are the same count of records then before sorting"        
+    Kontext "TableView"
+        LastRecord.Click
+        if (sRecordCount <> AllRecords.caption() ) then
+            warnlog "issue i61611 occur. The records are double after sorting."
+        endif
+
+    '/// close the table
+    printlog "close the table"    
+    call fCloseTableView()
+    
+    '/// close the database
+    printlog "close the database"
+    call fCloseDatabase()
+
+endcase

testautomation/dbaccess/optional/includes/misc_Macros.inc

-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'* 
-'* Copyright 2008 by Sun Microsystems, Inc.
-'*
-'* OpenOffice.org - a multi-platform office productivity suite
-'*
-'* $RCSfile: misc_RegisterDatabase.inc,v $
-'*
-'* $Revision: 1.1 $
-'*
-'* last change: $Author: jsi $ $Date: 2008/06/16 07:43:42 $
-'*
-'* This file is part of OpenOffice.org.
-'*
-'* OpenOffice.org is free software: you can redistribute it and/or modify
-'* it under the terms of the GNU Lesser General Public License version 3
-'* only, as published by the Free Software Foundation.
-'*
-'* OpenOffice.org is distributed in the hope that it will be useful,
-'* but WITHOUT ANY WARRANTY; without even the implied warranty of
-'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-'* GNU Lesser General Public License version 3 for more details
-'* (a copy is included in the LICENSE file that accompanied this code).
-'*
-'* You should have received a copy of the GNU Lesser General Public License
-'* version 3 along with OpenOffice.org.  If not, see
-'* <http://www.openoffice.org/license.html>
-'* for a copy of the LGPLv3 License.
-'*
-'/************************************************************************
-'*
-'* owner : marc.neumann@sun.com
-'*
-'* short description : macros in databases
-'*
-'\***********************************************************************
-
-sub misc_Macros
-
-	printlog "------------------- misc_Macros.inc ------------------------"
-       
-    call tMacros
-    
-end sub
-'-------------------------------------------------------------------------
-testcase tMacros
-   
-    hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW )
-
-    dim sFileName as String
-    sFileName = ConvertPath(gOfficePath + "/user/work/hsql_macros_in_subdocument.odb")
-    app.FileCopy ConvertPath(gTesttoolPath + "/dbaccess/optional/input/hsql_datasource/hsql_macros_in_subdocument.odb"), ConvertPath(gOfficePath + "/user/work/hsql_macros_in_subdocument.odb")
-
-    ' delete the backup file
-    if fileexists(sFileName + "backup.odb") then
-        app.kill sFileName + "backup.odb"
-    endif
-    
-    FileOpen
-    sleep (1)
-    Kontext "OeffnenDlg"
-    '/// open the given file
-    printlog "open the file: " + sFileName
-    Dateiname.SetText sFileName
-    sleep (3)
-    Oeffnen.Click
-    sleep (3)
-    
-    printlog "check if the subdocument contains macros dialog appear"
-    Kontext "MessageBox"
-    if (MessageBox.exists(1)) then
-        MessageBox.OK
-    else
-        warnlog "the subdocument contains macros dialog does not appear"
-    endif
-    
-    MigrateMacros
-    
-    WaitSlot(10)
-    
-    Kontext "MacroMigration"
-    if not (MacroMigration.exists(1)) then        
-        warnlog "MacroMigration wizard does not appear"
-    endif
-
-    NextButton.click
-    
-    DatabaseFile.settext sFileName + "backup.odb"
-    
-	NextButton.click
-	sleep(20)
-    MacroMigration.OK
-    
-    call fCloseDatabase
-    
-    printlog "open the database again to see if the message box appear again"
-
-    FileOpen
-    sleep (1)
-    Kontext "OeffnenDlg"
-    '/// open the given file
-    printlog "open the file: " + sFileName
-    Dateiname.SetText sFileName
-    sleep (3)
-    Oeffnen.Click
-    sleep (3)
-    
-    Kontext "MessageBox"
-    if (MessageBox.exists(1)) then
-        warnlog "MessageBox about macros appear. Should not after migration."
-    else
-		'nothing
-    endif
-    
-    call fCloseDatabase
-    
-    hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
-    
-endcase    
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'* 
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: misc_RegisterDatabase.inc,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008/06/16 07:43:42 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org.  If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/************************************************************************
+'*
+'* owner : marc.neumann@sun.com
+'*
+'* short description : macros in databases
+'*
+'\***********************************************************************
+
+sub misc_Macros
+
+	printlog "------------------- misc_Macros.inc ------------------------"
+       
+    call tMacros
+    
+end sub
+'-------------------------------------------------------------------------
+testcase tMacros
+   
+    hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW )
+
+    dim sFileName as String
+    sFileName = ConvertPath(gOfficePath + "/user/work/hsql_macros_in_subdocument.odb")
+    app.FileCopy ConvertPath(gTesttoolPath + "/dbaccess/optional/input/hsql_datasource/hsql_macros_in_subdocument.odb"), ConvertPath(gOfficePath + "/user/work/hsql_macros_in_subdocument.odb")
+
+    ' delete the backup file
+    if fileexists(sFileName + "backup.odb") then
+        app.kill sFileName + "backup.odb"
+    endif
+    
+    FileOpen
+    sleep (1)
+    Kontext "OeffnenDlg"
+    '/// open the given file
+    printlog "open the file: " + sFileName
+    Dateiname.SetText sFileName
+    sleep (3)
+    Oeffnen.Click
+    sleep (3)
+    
+    printlog "check if the subdocument contains macros dialog appear"
+    Kontext "MessageBox"
+    if (MessageBox.exists(1)) then
+        MessageBox.OK
+    else
+        warnlog "the subdocument contains macros dialog does not appear"
+    endif
+    
+    MigrateMacros
+    
+    WaitSlot(10)
+    
+    Kontext "MacroMigration"
+    if not (MacroMigration.exists(1)) then        
+        warnlog "MacroMigration wizard does not appear"
+    endif
+
+    NextButton.click
+    
+    DatabaseFile.settext sFileName + "backup.odb"
+    
+	NextButton.click
+	sleep(20)
+    MacroMigration.OK
+    
+    call fCloseDatabase
+    
+    printlog "open the database again to see if the message box appear again"
+
+    FileOpen
+    sleep (1)
+    Kontext "OeffnenDlg"
+    '/// open the given file
+    printlog "open the file: " + sFileName
+    Dateiname.SetText sFileName
+    sleep (3)
+    Oeffnen.Click
+    sleep (3)
+    
+    Kontext "MessageBox"
+    if (MessageBox.exists(1)) then
+        warnlog "MessageBox about macros appear. Should not after migration."
+    else
+		'nothing
+    endif
+    
+    call fCloseDatabase
+    
+    hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
+    
+endcase    

testautomation/framework/required/includes/topten.inc

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

testautomation/framework/required/includes/wizard_fax.inc

-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'* 
-'* Copyright 2008 by Sun Microsystems, Inc.
-'*
-'* OpenOffice.org - a multi-platform office productivity suite
-'*
-'* $RCSfile: wizard_fax.inc,v $
-'*
-'* $Revision: 1.2 $
-'*
-'* last change: $Author: rt $ $Date: 2008-09-04 09:16:59 $
-'*
-'* This file is part of OpenOffice.org.
-'*
-'* OpenOffice.org is free software: you can redistribute it and/or modify
-'* it under the terms of the GNU Lesser General Public License version 3
-'* only, as published by the Free Software Foundation.
-'*
-'* OpenOffice.org is distributed in the hope that it will be useful,
-'* but WITHOUT ANY WARRANTY; without even the implied warranty of
-'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-'* GNU Lesser General Public License version 3 for more details
-'* (a copy is included in the LICENSE file that accompanied this code).
-'*
-'* You should have received a copy of the GNU Lesser General Public License
-'* version 3 along with OpenOffice.org.  If not, see
-'* <http://www.openoffice.org/license.html>
-'* for a copy of the LGPLv3 License.
-'*
-'/************************************************************************
-'*
-'*  owner : joerg.skottke@sun.com
-'*
-'*  short description : Update Test for Fax Wizard
-'*
-'\******************************************************************************
-
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'* 
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: wizard_fax.inc,v $
+'*
+'* $Revision: 1.2 $
+'*
+'* last change: $Author: rt $ $Date: 2008-09-04 09:16:59 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org.  If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/************************************************************************
+'*
+'*  owner : joerg.skottke@sun.com
+'*
+'*  short description : Update Test for Fax Wizard
+'*
+'\******************************************************************************
+
 testcase tUpdtWizardFax
 
-    printlog( "Resource test for the fax wizard" )
-
-    dim iErr as integer
-    dim brc as boolean
-    
-    dim cTemplateName as string
-    dim cTemplatePath as string    
-    
-    ' Build the filename we want to save the template as.
-    cTemplateName = "FWK-testtool-faxtemplate.ott"
-    cTemplatePath = gOfficePath & "user\template\" & cTemplateName
-    cTemplatePath = convertpath( cTemplatePath )  
-    
-    FileAutopilotFax
-
-    kontext "AutopilotFax"
-    if ( AutopilotFax.exists( 2 ) ) then
-    
-        kontext "AutopilotFax"    
-        call DialogTest( AutopilotFax, 1 )
-        hClickNextButton()
-
-        kontext "AutopilotFax"    
-        call DialogTest( AutopilotFax, 2 )
-        hClickNextButton()
-
-        kontext "AutopilotFax"    
-        call DialogTest( AutopilotFax, 3 )
-        hClickNextButton()
-
-        kontext "AutopilotFax"    
-        call DialogTest( AutopilotFax, 4 )
-        hClickNextButton()
-        
-        kontext "AutopilotFax"
-        call DialogTest( AutopilotFax, 5 )
-        
-        printlog( "Name the template for further usage" )
-        TemplateName.setText( cTemplateName )
-        
-        hSetTemplateSavePath( cTemplatePath )
-        
-        hFinishWizard( 1 )
-        
-        kontext "StandardBar"
-        hWaitForObject( Speichern, 5000 )
-       
-        brc = hDestroyDocument()
-        if ( not brc ) then
-            qaerrorlog( "#i59233# The wizard does not display the new template" )
-        endif   
-        
-        printlog( "Delete the user-template: " & cTemplatePath )
-        hDeleteFile( cTemplatePath )
-        
-    else
-        warnlog( "Fax wizard did not open/exceeded timeout" )
-    endif
-        
-    while( getDocumentCount() > 0 ) 
-        hDestroyDocument()
-    wend
-    
-    
-endcase
+    printlog( "Resource test for the fax wizard" )
+
+    dim iErr as integer
+    dim brc as boolean
+    
+    dim cTemplateName as string
+    dim cTemplatePath as string    
+    
+    ' Build the filename we want to save the template as.
+    cTemplateName = "FWK-testtool-faxtemplate.ott"
+    cTemplatePath = gOfficePath & "user\template\" & cTemplateName