testautomation/writer/optional/w_formatpage.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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: w_formatpage.bas,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner :  helge.delfs@sun.com
  35 '*
  36 '* short description : Test the functionality of Page Formatting / Page Styles
  37 '*
  38 '\*******************************************************************
  39
  40 global gSeperator as String
  41 global gMeasurementUnit as String
  42
  43 sub main
  44     Dim StartZeit
  45
  46     StartZeit = Now()
  47
  48     use "writer\tools\includes\w_tools.inc"
  49     use "writer\tools\includes\w_tool3.inc"
  50         use "writer\tools\includes\w_tool7.inc"
  51     use "writer\optional\includes\tools\tools1.inc"
  52     use "writer\optional\includes\tools\tools2.inc"
  53     use "writer\optional\includes\formatpage\w_formatpage1.inc"
  54     use "writer\optional\includes\formatpage\w_formatpage2.inc"
  55     use "writer\optional\includes\formatpage\w_formatpage3.inc"
  56     use "writer\optional\includes\formatpage\w_formatpage4.inc"
  57
  58     printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
  59     printlog Chr(13) + "******* Writer - Level 1 - Test *******"
  60     printlog Chr(13) + "      - Test of page function -"
  61
  62     Call hStatusIn ( "writer", "w_FormatPage.bas" , "Page" )
  63
  64     Call wOptionsUndo ( "All" )        ' Sets all writer-options to default
  65     'Software Configuration:
  66     'Getting the decimal seperator from global function
  67     gSeperator = GetDecimalSeperator()
  68     'Setting the measurement unit to centimeters.
  69     gMeasurementUnit = fSetMeasurementToCM()
  70
  71     Call tFormatPage_1
  72     Call tFormatPage_2
  73     Call tFormatPage_3
  74     Call tFormatPage_4
  75     Call tFormatPage_5
  76     Call tFormatPage_6
  77     Call tFormatPage_7
  78     Call tFormatPage_8
  79     Call tFormatPage_9
  80     Call tFormatPage_10
  81     Call tFormatPage_11
  82     Call tFormatPage_12
  83     Call tFormatPage_13
  84     Call tFormatPage_14
  85     Call tFormatPage_15
  86     Call tFormatPage_16
  87     Call tFormatPage_17
  88     Call tFormatPage_18
  89     Call tFormatPage_19
  90     Call tFormatPage_20
  91     Call tFormatPage_21
  92     Call tFormatPage_22
  93     Call tFormatPage_23
  94     Call tFormatPage_24
  95     Call tFormatPage_25
  96     Call tFormatPage_26
  97     Call tFormatPage_27
  98     Call tFormatPage_28
  99     Call tFormatPage_29
 100     Call tFormatPage_30
 101     Call tFormatPage_31
 102     Call tFormatPage_32
 103     Call tFormatPage_33
 104     Call tFormatPage_34
 105     Call tFormatPage_35
 106     Call tFormatPage_36
 107     Call tFormatPage_37
 108     Call tFormatPage_38
 109     Call tFormatPage_39
 110     Call tFormatPage_40
 111     Call tFormatPage_41
 112     Call tFormatPage_42
 113     Call tFormatPage_43
 114     Call tFormatPage_44
 115     Call tFormatPage_45
 116     Call tFormatPage_46
 117     Call tFormatPage_47
 118     Call tFormatPage_48
 119     Call tFormatPage_49
 120     Call tFormatPage_50
 121     Call tFormatPage_51
 122     Call tFormatPage_52
 123     Call tFormatPage_53
 124     Call tFormatPage_54
 125     Call tFormatPage_55
 126     Call tFormatPage_56
 127     Call tFormatPage_57
 128     Call tFormatPage_58
 129     Call tFormatPage_59
 130     Call tFormatPage_60
 131
 132     Call hStatusOut
 133
 134     Printlog Chr(13) + "End of Level 1 Test (Format page):"
 135     Printlog "Duration: "+ WieLange ( StartZeit )
 136     Printlog "Date: " +  Date + "    Time: " + Time
 137
 138 end sub
 139
 140 sub LoadIncludeFiles
 141     use "global\system\includes\master.inc"
 142     use "global\system\includes\gvariabl.inc"
 143     Call GetUseFiles
 144     gApplication = "WRITER"
 145 end sub
 146