testautomation/writer/optional/w_section.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 : Section test
  31 '*
  32 '\*******************************************************************
  33
  34 global gSeperator , gMeasurementUnit , gDefaultSectionName as String
  35
  36 sub main
  37     Dim StartZeit
  38     StartZeit = Now()
  39
  40     use "writer\tools\includes\w_tools.inc"
  41         use "writer\tools\includes\w_tool7.inc"
  42     use "writer\optional\includes\section\w_section_1.inc"
  43     use "writer\optional\includes\section\w_section_2.inc"
  44     use "writer\optional\includes\section\w_section_3.inc"
  45     use "writer\optional\includes\section\w_section_4.inc"
  46     use "writer\optional\includes\section\w_section_tools.inc"
  47
  48     printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
  49     printlog Chr(13) + "******* Writer - Section - Test *******"
  50
  51     Call hStatusIn ( "writer" , "w_section.bas" , "Section" )
  52
  53     'Software Configuration:
  54     'Getting the decimal seperator from global function
  55     gSeperator = GetDecimalSeperator()
  56     'Setting the measurement unit to centimeters.
  57     gMeasurementUnit = fSetMeasurementToCM()
  58
  59     Select case iSprache
  60         case 01   : gDefaultSectionName = "Section"    '(English USA)
  61         case 31   : gDefaultSectionName = "Bereik"    '(Dutch)
  62         case 33   : gDefaultSectionName = "Section"    '(French)
  63         case 34   : gDefaultSectionName = "Sección"    '(Spanish)
  64         case 36   : gDefaultSectionName = "Szakasz"    '(Hungarian)
  65         case 39   : gDefaultSectionName = "Sezione"    '(Italian)
  66         case 46   : gDefaultSectionName = "Område"     '(Swedish)
  67         case 49   : gDefaultSectionName = "Bereich"    '(German)
  68         case 55   : gDefaultSectionName = "Seção"    '(Portuguese)
  69         case 81   : gDefaultSectionName = "範囲"      '(Japanese)
  70         case 82   : gDefaultSectionName = "구역"      '(Korean)
  71         case 86   : gDefaultSectionName = "区域"      '(Simplified Chinese)
  72         case 88   : gDefaultSectionName = "�?�域"       '(Traditional Chinese)
  73         case else : QAErrorLog "The test does not support the language " + iSprache
  74         exit sub
  75     end select
  76
  77     Call w_section_1
  78     Call w_section_2
  79     Call w_section_3
  80     Call w_section_4
  81
  82     Call hStatusOut
  83
  84     Printlog Chr(13) + "End of Level1 - Test :"
  85     Printlog "Duration: "+ WieLange ( StartZeit )
  86     Printlog "Date: " +  Date + "    Time: " + Time
  87
  88 end sub
  89
  90 sub LoadIncludeFiles
  91    use "global\system\includes\master.inc"
  92    use "global\system\includes\gvariabl.inc"
  93    use "global\tools\includes\required\t_lists.inc"
  94    Call GetUseFiles
  95    gApplication = "WRITER"
  96
  97 end sub