update dev300-m58
[ooovba.git] / testautomation / framework / optional / includes / options_loadsave_general.inc
blob798cdc5f7397f41134b48f3c6b85f9ef717fb99a
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: options_loadsave_general.inc,v $
11 '* $Revision: 1.1 $
13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $
15 '* This file is part of OpenOffice.org.
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.
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).
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.
32 '/************************************************************************
34 '*  owner : thorsten.bosbach@sun.com
36 '*  short description : Tools->Options Load/Save: General
38 '\******************************************************************************
40 testcase tLoadSaveGeneral
41     Dim lbSave(15) as Boolean
42     Dim lsSave(20) as String
43     Dim AppCount as Integer
44     dim i as Integer
46     '///check if all settings are saved in configuration ( Load & Save / General )
48     '///+open tools / options / load & save / general
49     ToolsOptions
50     hToolsOptions("LoadSave","General")
51     '///save old settings
52     printlog " - save old settings"
53     lbSave(13) = BenutzerspezifischeEinstellungen.IsChecked
54     lbSave(1)  = DokumenteigenschaftenBearbeiten.IsChecked
55     lbSave(2)  = Sicherungskopie.IsChecked
56     lbSave(3)  = AutomatischSpeichern.IsChecked
58     if AutomatischSpeichern.IsChecked then
59         lsSave(1) = Minuten.GetText
60     endif
62     lbSave(10) = NoPrettyPrinting.IsChecked
63     lbSave(11) = URLimDateisystem.IsChecked
64     lbSave(12) = URLimInternet.IsChecked
66     printlog("Listed Documenttypes are: ")
67     AppCount = Dokumenttyp.GetItemCount
68     if (AppCount > 7) then
69         Warnlog( "Seven applications should be listed, there are " & AppCount )
70         for i = 1 to AppCount
71             DokumentTyp.select(i)
72             printlog( "    -  " & DokumentTyp.getSelText)
73         next i
74     endif
75     for i=1 to AppCount
76         Dokumenttyp.Select(i)
77         lsSave(2+i)          = Dokumenttyp.GetSelText
78         lsSave(2+AppCount+i) = Filter.GetSelText
79     next i
81     '///+invert and change all settings
82     printlog " - invert/change settings"
83     if lbSave(13) then BenutzerspezifischeEinstellungen.UnCheck else BenutzerspezifischeEinstellungen.Check
84     if lbSave(1) then DokumenteigenschaftenBearbeiten.Uncheck else DokumenteigenschaftenBearbeiten.Check
85     if lbSave(2) then Sicherungskopie.Uncheck else Sicherungskopie.Check
86     if lbSave(3) then AutomatischSpeichern.Uncheck else AutomatischSpeichern.Check
87     if AutomatischSpeichern.IsChecked then
88         lsSave(1) = Minuten.GetText
89         Minuten.SetText "23"
90     endif
91     if lbSave(10) then NoPrettyPrinting.Uncheck else NoPrettyPrinting.Check
92     if lbSave(11) then URLimDateisystem.Uncheck else URLimDateisystem.Check
93     if lbSave(12) then URLimInternet.Uncheck else URLimInternet.Check
94     printlog( "Setting filters for documenttypes: Select third item from every list" )
95     for i=1 to AppCount
96         Dokumenttyp.Select(i)
97         Filter.Select(3)
98         printlog( "Doctype: " & Dokumenttyp.getSelText() & " has filter: " & Filter.getSelText() )
99     next i
101     '///+close options dialog with OK
102     printlog " - close options-dlg with OK"
103     kontext "ExtrasOptionenDlg"
104     ExtrasOptionenDlg.OK
105     sleep(3)
107     '///exit and restart StarOffice
108     printlog " - exit/restart StarOffice"
109     ExitRestartTheOffice
111     '///check inverting and changes
112     printlog " - check inverting/changes"
113     '///+open tools / options / load & save / general
114     ToolsOptions
115     hToolsOptions ( "LoadSave", "General" )
117     if BenutzerspezifischeEinstellungen.IsChecked = lbSave ( 13 ) then
118         Warnlog "'Load user setting with document' => changes not saved"
119     endif
120     if DokumenteigenschaftenBearbeiten.IsChecked = lbSave ( 1 ) then
121         Warnlog "'Edit document properties before saving' => changes not saved"
122     endif
123     if Sicherungskopie.IsChecked = lbSave ( 2 ) then
124         Warnlog "'Create backup copy' => changes not saved"
125     endif
126     if AutomatischSpeichern.IsChecked = lbSave ( 3 ) then
127         printlog "AutoSave => changes not saved"
128     endif
129     if AutomatischSpeichern.IsChecked then
130         if Minuten.GetText <> "23" then
131             Warnlog "Minutes for AutoSave => changes not saved"
132         endif
133     endif
134     if NoPrettyPrinting.IsChecked = lbSave ( 10 ) then
135         Warnlog "no pretty printing => changes not saved"
136     endif
137     if URLimDateisystem.IsChecked = lbSave ( 11 ) then
138         Warnlog "URL: File system => changes not saved"
139     endif
140     if URLimInternet.IsChecked = lbSave ( 12 ) then
141         Warnlog "URL: Internet => changes not saved"
142     endif
143     
144     printlog( "Verifying filters for documenttypes: Select third item from every list" )
145     for i=1 to AppCount
146         Dokumenttyp.Select(i)
147         printlog( "Doctype: " & Dokumenttyp.getSelText() & " has filter: " & Filter.getSelText() )
148         
149         if Filter.GetSelIndex <> 3 then
150             warnlog( "#i79150# some options in Tools/Options->Load/Save->General are not saved" )
151         endif
152     next i
154     '///make other changes
155     printlog " - make other changes"
156     BenutzerspezifischeEinstellungen.Uncheck
157     DokumenteigenschaftenBearbeiten.Check
158     Sicherungskopie.Uncheck
159     AutomatischSpeichern.Check
160     Minuten.SetText "01"
161     NoPrettyPrinting.Uncheck
162     URLimDateisystem.Uncheck
163     URLimInternet.Uncheck
164     for i=1 to AppCount
165         Dokumenttyp.Select(i)
166         Filter.Select(4)
167     next i
169     printlog " - close options-dlg with OK"
170     '///+close options dialog with OK
172     kontext "extrasoptionendlg"
173     ExtrasOptionenDlg.OK
174     Sleep (1)
176     '///+you must get for all applications a filter-changes-warning ( perhaps not for all )
177     printlog "    - react on messageboxes for loosing settings after changing default-filters"
178     kontext "FilterWarning"
179     for i=1 to AppCount
180         if FilterWarning.Exists(5) then
181             FilterWarning.OK
182         else
183             i = AppCount + 1
184         endif
185     next i
186     Sleep (3)
188     '///check second changes
189     printlog " - check second changes"
190     '///+open tools / options / load & save / general
191     ToolsOptions
192     hToolsOptions ( "LoadSave", "General" )
194     if BenutzerspezifischeEinstellungen.IsChecked <> FALSE then
195         Warnlog "'Load user setting with document' => changes not saved"
196     endif
197     if DokumenteigenschaftenBearbeiten.IsChecked <> TRUE then
198         Warnlog "'Edit document properties before saving' => changes not saved"
199     endif
200     if Sicherungskopie.IsChecked <> FALSE then
201         Warnlog "'Create backup copy' => changes not saved"
202     endif
203     if AutomatischSpeichern.IsChecked <> TRUE then
204         Warnlog "AutoSave => changes not saved"
205     endif
206     if Minuten.GetText <> "1" then
207         Warnlog "Minutes for AutoSave => changes not saved"
208     endif
209     if NoPrettyPrinting.IsChecked <> FALSE then
210         Warnlog "no pretty printing => changes not saved"
211     endif
212     if URLimDateisystem.IsChecked <> FALSE then
213         Warnlog "URL: File system => changes not saved"
214     endif
215     if URLimInternet.IsChecked <> FALSE  then
216         Warnlog "URL: Internet => changes not saved"
217     endif
218     for i=1 to AppCount
219         Dokumenttyp.Select(i)
220         if Filter.GetSelIndex <> 4 then
221             Warnlog "Document '" + Dokumenttyp.GetSelText + "': changes not saved"
222         endif
223     next i
225     '///reset to default settings
226     printlog " - reset to saved settings"
227     if lbSave ( 13 ) = FALSE then
228         BenutzerspezifischeEinstellungen.UnCheck else BenutzerspezifischeEinstellungen.Check
229     endif
230     if lbSave ( 1  ) = FALSE then
231         DokumenteigenschaftenBearbeiten.UnCheck else DokumenteigenschaftenBearbeiten.Check
232     endif
233     if lbSave ( 2  ) = FALSE then
234         Sicherungskopie.Uncheck else Sicherungskopie.Check
235     endif
236     AutomatischSpeichern.Check
237     Minuten.SetText lsSave ( 1 )
238     if lbSave ( 3  ) = FALSE then
239         AutomatischSpeichern.Uncheck else AutomatischSpeichern.Check
240     endif
241     if lbSave ( 10 ) = FALSE then
242         NoPrettyPrinting.Uncheck else NoPrettyPrinting.Check
243     endif
244     if lbSave ( 11 ) = FALSE then
245         URLimDateisystem.UnCheck else URLimDateisystem.Check
246     endif
247     if lbSave ( 12 ) = FALSE then
248         URLimInternet.UnCheck else URLimInternet.Check
249     endif
250     for i=1 to AppCount
251         Dokumenttyp.Select(i)
252         if Dokumenttyp.GetSelText <> lsSave ( 2 + i ) then
253             Warnlog "The sorting of the document-listbox has been changed!"
254         endif
255         Filter.Select(lsSave(2+AppCount+i))
256     next i
258     '///+close options dialog with OK
259     kontext "ExtrasOptionenDlg"
260     ExtrasOptionenDlg.OK
261     Sleep (3)
263     '///check the reset
264     printlog " - check settings"
265     '///+open tools / options / load & save / general
266     ToolsOptions
267     hToolsOptions ( "LoadSave", "General" )
269     if BenutzerspezifischeEinstellungen.IsChecked <> lbSave ( 13 ) then
270         Warnlog "'Load user setting with document' => changes not saved"
271     endif
272     if DokumenteigenschaftenBearbeiten.IsChecked <> lbSave ( 1 ) then
273         Warnlog "'Edit document properties before saving' => changes not saved"
274     endif
275     if Sicherungskopie.IsChecked <> lbSave ( 2 ) then
276         Warnlog "'Create backup copy' => changes not saved"
277     endif
278     if AutomatischSpeichern.IsChecked <> lbSave ( 3 ) then
279         Warnlog "AutoSave => changes not saved"
280     endif
281     if AutomatischSpeichern.IsChecked then
282         if Minuten.GetText <> lsSave( 1 ) then
283             Warnlog "Minutes for AutoSave => changes not saved"
284         endif
285     endif
286     if NoPrettyPrinting.IsChecked <> lbSave ( 10 ) then
287         Warnlog "no pretty printing => changes not saved"
288     endif
289     if URLimDateisystem.IsChecked <> lbSave ( 11 ) then
290         Warnlog "URL: File system => changes not saved"
291     endif
292     if URLimInternet.IsChecked <> lbSave ( 12 ) then
293         Warnlog "URL: Internet => changes not saved"
294     endif
295     for i=1 to AppCount
296         Dokumenttyp.Select(i)
297         if Dokumenttyp.GetSelText <> lsSave ( 2 + i ) then
298             Warnlog "The sorting of the document-listbox has been changed!"
299         endif
300         if Filter.GetSelText <> lsSave ( 2 + AppCount + i ) then
301             Warnlog "Document '" + Dokumenttyp.GetSelText + "': changes not saved"
302         endif
303     next i
305     '///+close options dialog with OK
306     kontext "extrasoptionendlg"
307     ExtrasOptionenDlg.OK
308 endcase