jl165 merging heads
[LibreOffice.git] / testautomation / writer / optional / w_formatpage.bas
blob5354809b169634c575f5f4a86dfc1758514bd1c5
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.
7 ' OpenOffice.org - a multi-platform office productivity suite
9 ' This file is part of OpenOffice.org.
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.
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).
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.
26 '/************************************************************************
28 '* owner : helge.delfs@oracle.com
30 '* short description : Test the functionality of Page Formatting / Page Styles
32 '\*******************************************************************
34 global gSeperator as String
35 global gMeasurementUnit as String
37 sub main
38 Dim StartZeit
40 StartZeit = Now()
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\formatpage\w_formatpage1.inc"
48 use "writer\optional\includes\formatpage\w_formatpage2.inc"
49 use "writer\optional\includes\formatpage\w_formatpage3.inc"
50 use "writer\optional\includes\formatpage\w_formatpage4.inc"
52 printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
53 printlog Chr(13) + "******* Writer - Level 1 - Test *******"
54 printlog Chr(13) + " - Test of page function -"
56 Call hStatusIn ( "writer", "w_FormatPage.bas" , "Page" )
58 Call wOptionsUndo ( "All" ) ' Sets all writer-options to default
59 'Software Configuration:
60 'Getting the decimal seperator from global function
61 gSeperator = GetDecimalSeperator()
62 'Setting the measurement unit to centimeters.
63 gMeasurementUnit = fSetMeasurementToCM()
65 Call tFormatPage_1
66 Call tFormatPage_2
67 Call tFormatPage_3
68 Call tFormatPage_4
69 Call tFormatPage_5
70 Call tFormatPage_6
71 Call tFormatPage_7
72 Call tFormatPage_8
73 Call tFormatPage_9
74 Call tFormatPage_10
75 Call tFormatPage_11
76 Call tFormatPage_12
77 Call tFormatPage_13
78 Call tFormatPage_14
79 Call tFormatPage_15
80 Call tFormatPage_16
81 Call tFormatPage_17
82 Call tFormatPage_18
83 Call tFormatPage_19
84 Call tFormatPage_20
85 Call tFormatPage_21
86 Call tFormatPage_22
87 Call tFormatPage_23
88 Call tFormatPage_24
89 Call tFormatPage_25
90 Call tFormatPage_26
91 Call tFormatPage_27
92 Call tFormatPage_28
93 Call tFormatPage_29
94 Call tFormatPage_30
95 Call tFormatPage_31
96 Call tFormatPage_32
97 Call tFormatPage_33
98 Call tFormatPage_34
99 Call tFormatPage_35
100 Call tFormatPage_36
101 Call tFormatPage_37
102 Call tFormatPage_38
103 Call tFormatPage_39
104 Call tFormatPage_40
105 Call tFormatPage_41
106 Call tFormatPage_42
107 Call tFormatPage_43
108 Call tFormatPage_44
109 Call tFormatPage_45
110 Call tFormatPage_46
111 Call tFormatPage_47
112 Call tFormatPage_48
113 Call tFormatPage_49
114 Call tFormatPage_50
115 Call tFormatPage_51
116 Call tFormatPage_52
117 Call tFormatPage_53
118 Call tFormatPage_54
119 Call tFormatPage_55
120 Call tFormatPage_56
121 Call tFormatPage_57
122 Call tFormatPage_58
123 Call tFormatPage_59
124 Call tFormatPage_60
126 Call hStatusOut
128 Printlog Chr(13) + "End of Level 1 Test (Format page):"
129 Printlog "Duration: "+ WieLange ( StartZeit )
130 Printlog "Date: " + Date + " Time: " + Time
132 end sub
134 sub LoadIncludeFiles
135 use "global\system\includes\master.inc"
136 use "global\system\includes\gvariabl.inc"
137 Call GetUseFiles
138 gApplication = "WRITER"
139 end sub