testautomation/writer/optional/w_fields.bas

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner :  helge.delfs@oracle.com
  29 '*
  30 '* short description : Test of content and update reliability of the fields
  31 '*
  32 '\*******************************************************************
  33
  34 global gSeperator as String
  35 global gMeasurementUnit as String
  36
  37 sub main
  38
  39     Dim StartZeit
  40     StartZeit = Now()
  41
  42     use "writer\tools\includes\w_tools.inc"
  43     use "writer\tools\includes\w_tool3.inc"
  44     use "writer\tools\includes\w_tool7.inc"
  45     use "writer\optional\includes\tools\tools1.inc"
  46     use "writer\optional\includes\tools\tools2.inc"
  47     use "writer\optional\includes\fields\w_fields1.inc"
  48     use "writer\optional\includes\fields\w_fields2.inc"
  49     use "writer\optional\includes\fields\w_fields3.inc"
  50     use "writer\optional\includes\fields\w_fields4.inc"
  51     use "writer\optional\includes\fields\w_fields5.inc"
  52     use "writer\optional\includes\fields\w_fields6.inc"
  53     use "writer\optional\includes\fields\w_fields7.inc"
  54
  55     printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
  56     printlog Chr(13) + "******* Writer - Fields - Test *******"
  57
  58     Call hStatusIn ( "writer", "w_fields.bas" , "Fields" )
  59
  60     'Software Configuration:
  61     'Getting the decimal seperator from global function
  62     gSeperator = GetDecimalSeperator()
  63     'Setting the measurement unit to centimeters.
  64     gMeasurementUnit = fSetMeasurementToCM()
  65
  66     printlog Chr(13) + " --- Test Fields - General Test ---"
  67     Call w_fields1
  68     Call w_fields2
  69     printlog Chr(13) + " --- Test Fields - Reference ---"
  70     Call w_fields3
  71     printlog Chr(13) + " --- Test Fields - Doc information ---"
  72     Call w_fields4
  73     printlog Chr(13) + " --- Test Fields - Variables ---"
  74     Call w_fields5
  75     printlog Chr(13) + " --- Test Fields - Functions ---"
  76     Call w_fields6
  77     printlog Chr(13) + " --- Test Fields - L10N ---"
  78     Call w_fields7
  79
  80     Call hStatusOut
  81
  82     Printlog Chr(13) + "End of Level 1 Test - Fields"
  83     Printlog "Duration: "+ WieLange ( StartZeit )
  84     Printlog "Date: " +  Date + "    Time: " + Time
  85
  86 end sub
  87
  88 sub LoadIncludeFiles
  89    use "global\system\includes\master.inc"
  90    use "global\system\includes\gvariabl.inc"
  91
  92    Call GetUseFiles
  93    gApplication = "WRITER"
  94 end Sub