testautomation/framework/optional/includes/options_loadsave_general.inc

   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 : thorsten.bosbach@oracle.com
  29 '*
  30 '*  short description : Tools->Options Load/Save: General
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tLoadSaveGeneral
  35     Dim lbSave(15) as Boolean
  36     Dim lsSave(20) as String
  37     Dim AppCount as Integer
  38     dim i as Integer
  39
  40
  41     ToolsOptions
  42     hToolsOptions("LoadSave","General")
  43     printlog " - save old settings"
  44     lbSave(13) = BenutzerspezifischeEinstellungen.IsChecked
  45     lbSave(1)  = DokumenteigenschaftenBearbeiten.IsChecked
  46     lbSave(2)  = Sicherungskopie.IsChecked
  47     lbSave(3)  = AutomatischSpeichern.IsChecked
  48
  49     if AutomatischSpeichern.IsChecked then
  50         lsSave(1) = Minuten.GetText
  51     endif
  52
  53     lbSave(10) = NoPrettyPrinting.IsChecked
  54     lbSave(11) = URLimDateisystem.IsChecked
  55     lbSave(12) = URLimInternet.IsChecked
  56
  57     printlog("Listed Documenttypes are: ")
  58     AppCount = Dokumenttyp.GetItemCount
  59     if (AppCount > 7) then
  60         Warnlog( "Seven applications should be listed, there are " & AppCount )
  61         for i = 1 to AppCount
  62             DokumentTyp.select(i)
  63             printlog( "    -  " & DokumentTyp.getSelText)
  64         next i
  65     endif
  66
  67     for i=1 to AppCount
  68         Dokumenttyp.Select(i)
  69         lsSave(2+i)          = Dokumenttyp.GetSelText
  70         lsSave(2+AppCount+i) = Filter.GetSelText
  71     next i
  72
  73     printlog " - invert/change settings"
  74     if lbSave(13) then
  75         BenutzerspezifischeEinstellungen.UnCheck
  76     else
  77         BenutzerspezifischeEinstellungen.Check
  78     endif
  79
  80     if lbSave(1) then
  81         DokumenteigenschaftenBearbeiten.Uncheck
  82     else
  83         DokumenteigenschaftenBearbeiten.Check
  84     endif
  85
  86     if lbSave(2) then
  87         Sicherungskopie.Uncheck
  88     else
  89         Sicherungskopie.Check
  90     endif
  91
  92     if lbSave(3) then
  93         AutomatischSpeichern.Uncheck
  94     else
  95         AutomatischSpeichern.Check
  96     endif
  97
  98     if AutomatischSpeichern.IsChecked then
  99         lsSave(1) = Minuten.GetText
 100         Minuten.SetText "23"
 101     endif
 102
 103     if lbSave(10) then
 104         NoPrettyPrinting.Uncheck
 105     else
 106         NoPrettyPrinting.Check
 107     endif
 108
 109     if lbSave(11) then
 110         URLimDateisystem.Uncheck
 111     else
 112         URLimDateisystem.Check
 113     endif
 114
 115     if lbSave(12) then
 116         URLimInternet.Uncheck
 117     else
 118         URLimInternet.Check
 119     endif
 120
 121     printlog( "Setting filters for documenttypes: Select third item from every list" )
 122
 123     for i=1 to AppCount
 124         Dokumenttyp.Select(i)
 125         Filter.Select(3)
 126         printlog( "Doctype: " & Dokumenttyp.getSelText() & " has filter: " & Filter.getSelText() )
 127     next i
 128
 129     printlog " - close options-dlg with OK"
 130     kontext "ExtrasOptionenDlg"
 131     hCloseDialog( ExtrasOptionenDlg, "ok" )
 132
 133     printlog " - exit/restart StarOffice"
 134     ExitRestartTheOffice
 135
 136     printlog " - check inverting/changes"
 137     ToolsOptions
 138     hToolsOptions ( "LoadSave", "General" )
 139
 140     if BenutzerspezifischeEinstellungen.IsChecked = lbSave ( 13 ) then
 141         Warnlog "'Load user setting with document' => changes not saved"
 142     endif
 143
 144     if DokumenteigenschaftenBearbeiten.IsChecked = lbSave ( 1 ) then
 145         Warnlog "'Edit document properties before saving' => changes not saved"
 146     endif
 147
 148     if Sicherungskopie.IsChecked = lbSave ( 2 ) then
 149         Warnlog "'Create backup copy' => changes not saved"
 150     endif
 151
 152     if AutomatischSpeichern.IsChecked = lbSave ( 3 ) then
 153         printlog "AutoSave => changes not saved"
 154     endif
 155
 156     if AutomatischSpeichern.IsChecked then
 157         if Minuten.GetText <> "23" then
 158             Warnlog "Minutes for AutoSave => changes not saved"
 159         endif
 160     endif
 161     if NoPrettyPrinting.IsChecked = lbSave ( 10 ) then
 162         Warnlog "no pretty printing => changes not saved"
 163     endif
 164
 165     if URLimDateisystem.IsChecked = lbSave ( 11 ) then
 166         Warnlog "URL: File system => changes not saved"
 167     endif
 168
 169     if URLimInternet.IsChecked = lbSave ( 12 ) then
 170         Warnlog "URL: Internet => changes not saved"
 171     endif
 172
 173     printlog( "Verifying filters for documenttypes: Select third item from every list" )
 174     for i=1 to AppCount
 175         Dokumenttyp.Select(i)
 176         printlog( "Doctype: " & Dokumenttyp.getSelText() & " has filter: " & Filter.getSelText() )
 177
 178         if Filter.GetSelIndex <> 3 then
 179             '#i79150#
 180             warnlog( "Some options in Tools/Options->Load/Save->General are not saved" )
 181         endif
 182     next i
 183
 184     printlog " - make other changes"
 185     BenutzerspezifischeEinstellungen.Uncheck
 186     DokumenteigenschaftenBearbeiten.Check
 187     Sicherungskopie.Uncheck
 188     AutomatischSpeichern.Check
 189     Minuten.SetText "01"
 190     NoPrettyPrinting.Uncheck
 191     URLimDateisystem.Uncheck
 192     URLimInternet.Uncheck
 193
 194     for i=1 to AppCount
 195         Dokumenttyp.Select(i)
 196         Filter.Select(4)
 197     next i
 198
 199     printlog " - close options-dlg with OK"
 200
 201     kontext "extrasoptionendlg"
 202     hCloseDialog( ExtrasOptionenDlg, "ok" )
 203
 204     printlog "    - react on messageboxes for loosing settings after changing default-filters"
 205     kontext "FilterWarning"
 206     for i=1 to AppCount
 207         if FilterWarning.Exists(5) then
 208             FilterWarning.OK
 209         else
 210             i = AppCount + 1
 211         endif
 212     next i
 213     WaitSlot()
 214
 215     printlog " - check second changes"
 216     ToolsOptions
 217     hToolsOptions ( "LoadSave", "General" )
 218
 219     if BenutzerspezifischeEinstellungen.IsChecked <> FALSE then
 220         Warnlog "'Load user setting with document' => changes not saved"
 221     endif
 222
 223     if DokumenteigenschaftenBearbeiten.IsChecked <> TRUE then
 224         Warnlog "'Edit document properties before saving' => changes not saved"
 225     endif
 226
 227     if Sicherungskopie.IsChecked <> FALSE then
 228         Warnlog "'Create backup copy' => changes not saved"
 229     endif
 230
 231     if AutomatischSpeichern.IsChecked <> TRUE then
 232         Warnlog "AutoSave => changes not saved"
 233     endif
 234
 235     if Minuten.GetText <> "1" then
 236         Warnlog "Minutes for AutoSave => changes not saved"
 237     endif
 238
 239     if NoPrettyPrinting.IsChecked <> FALSE then
 240         Warnlog "no pretty printing => changes not saved"
 241     endif
 242
 243     if URLimDateisystem.IsChecked <> FALSE then
 244         Warnlog "URL: File system => changes not saved"
 245     endif
 246
 247     if URLimInternet.IsChecked <> FALSE  then
 248         Warnlog "URL: Internet => changes not saved"
 249     endif
 250
 251     for i=1 to AppCount
 252         Dokumenttyp.Select(i)
 253         if Filter.GetSelIndex <> 4 then
 254             Warnlog "Document '" + Dokumenttyp.GetSelText + "': changes not saved"
 255         endif
 256     next i
 257
 258     printlog " - reset to saved settings"
 259     if lbSave ( 13 ) = FALSE then
 260         BenutzerspezifischeEinstellungen.UnCheck else BenutzerspezifischeEinstellungen.Check
 261     endif
 262
 263     if lbSave ( 1  ) = FALSE then
 264         DokumenteigenschaftenBearbeiten.UnCheck else DokumenteigenschaftenBearbeiten.Check
 265     endif
 266     if lbSave ( 2  ) = FALSE then
 267         Sicherungskopie.Uncheck else Sicherungskopie.Check
 268     endif
 269
 270     AutomatischSpeichern.Check
 271     Minuten.SetText lsSave ( 1 )
 272
 273     if lbSave ( 3  ) = FALSE then
 274         AutomatischSpeichern.Uncheck else AutomatischSpeichern.Check
 275     endif
 276
 277     if lbSave ( 10 ) = FALSE then
 278         NoPrettyPrinting.Uncheck else NoPrettyPrinting.Check
 279     endif
 280
 281     if lbSave ( 11 ) = FALSE then
 282         URLimDateisystem.UnCheck else URLimDateisystem.Check
 283     endif
 284
 285     if lbSave ( 12 ) = FALSE then
 286         URLimInternet.UnCheck else URLimInternet.Check
 287     endif
 288
 289     for i=1 to AppCount
 290         Dokumenttyp.Select(i)
 291         if Dokumenttyp.GetSelText <> lsSave ( 2 + i ) then
 292             Warnlog "The sorting of the document-listbox has been changed!"
 293         endif
 294         Filter.Select(lsSave(2+AppCount+i))
 295     next i
 296
 297     kontext "ExtrasOptionenDlg"
 298     hCloseDialog( ExtrasOptionenDlg, "ok" )
 299
 300
 301     printlog " - check settings"
 302     ToolsOptions
 303     hToolsOptions ( "LoadSave", "General" )
 304
 305     if BenutzerspezifischeEinstellungen.IsChecked <> lbSave ( 13 ) then
 306         Warnlog "'Load user setting with document' => changes not saved"
 307     endif
 308
 309     if DokumenteigenschaftenBearbeiten.IsChecked <> lbSave ( 1 ) then
 310         Warnlog "'Edit document properties before saving' => changes not saved"
 311     endif
 312
 313     if Sicherungskopie.IsChecked <> lbSave ( 2 ) then
 314         Warnlog "'Create backup copy' => changes not saved"
 315     endif
 316
 317     if AutomatischSpeichern.IsChecked <> lbSave ( 3 ) then
 318         Warnlog "AutoSave => changes not saved"
 319     endif
 320
 321     if AutomatischSpeichern.IsChecked then
 322         if Minuten.GetText <> lsSave( 1 ) then
 323             Warnlog "Minutes for AutoSave => changes not saved"
 324         endif
 325     endif
 326
 327     if NoPrettyPrinting.IsChecked <> lbSave ( 10 ) then
 328         Warnlog "no pretty printing => changes not saved"
 329     endif
 330
 331     if URLimDateisystem.IsChecked <> lbSave ( 11 ) then
 332         Warnlog "URL: File system => changes not saved"
 333     endif
 334
 335     if URLimInternet.IsChecked <> lbSave ( 12 ) then
 336         Warnlog "URL: Internet => changes not saved"
 337     endif
 338
 339     for i=1 to AppCount
 340         Dokumenttyp.Select(i)
 341         if Dokumenttyp.GetSelText <> lsSave ( 2 + i ) then
 342             Warnlog "The sorting of the document-listbox has been changed!"
 343         endif
 344         if Filter.GetSelText <> lsSave ( 2 + AppCount + i ) then
 345             Warnlog "Document '" + Dokumenttyp.GetSelText + "': changes not saved"
 346         endif
 347     next i
 348
 349     kontext "extrasoptionendlg"
 350     hCloseDialog( ExtrasOptionenDlg, "ok" )
 351
 352 endcase