summaryrefslogtreecommitdiff
path: root/testautomation/framework/optional/includes/options_loadsave_general.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/framework/optional/includes/options_loadsave_general.inc')
-rw-r--r--[-rwxr-xr-x]testautomation/framework/optional/includes/options_loadsave_general.inc106
1 files changed, 87 insertions, 19 deletions
diff --git a/testautomation/framework/optional/includes/options_loadsave_general.inc b/testautomation/framework/optional/includes/options_loadsave_general.inc
index 84c41e906df6..69e08f7bef20 100755..100644
--- a/testautomation/framework/optional/includes/options_loadsave_general.inc
+++ b/testautomation/framework/optional/includes/options_loadsave_general.inc
@@ -63,6 +63,7 @@ testcase tLoadSaveGeneral
printlog( " - " & DokumentTyp.getSelText)
next i
endif
+
for i=1 to AppCount
Dokumenttyp.Select(i)
lsSave(2+i) = Dokumenttyp.GetSelText
@@ -70,18 +71,55 @@ testcase tLoadSaveGeneral
next i
printlog " - invert/change settings"
- if lbSave(13) then BenutzerspezifischeEinstellungen.UnCheck else BenutzerspezifischeEinstellungen.Check
- if lbSave(1) then DokumenteigenschaftenBearbeiten.Uncheck else DokumenteigenschaftenBearbeiten.Check
- if lbSave(2) then Sicherungskopie.Uncheck else Sicherungskopie.Check
- if lbSave(3) then AutomatischSpeichern.Uncheck else AutomatischSpeichern.Check
+ if lbSave(13) then
+ BenutzerspezifischeEinstellungen.UnCheck
+ else
+ BenutzerspezifischeEinstellungen.Check
+ endif
+
+ if lbSave(1) then
+ DokumenteigenschaftenBearbeiten.Uncheck
+ else
+ DokumenteigenschaftenBearbeiten.Check
+ endif
+
+ if lbSave(2) then
+ Sicherungskopie.Uncheck
+ else
+ Sicherungskopie.Check
+ endif
+
+ if lbSave(3) then
+ AutomatischSpeichern.Uncheck
+ else
+ AutomatischSpeichern.Check
+ endif
+
if AutomatischSpeichern.IsChecked then
lsSave(1) = Minuten.GetText
Minuten.SetText "23"
endif
- if lbSave(10) then NoPrettyPrinting.Uncheck else NoPrettyPrinting.Check
- if lbSave(11) then URLimDateisystem.Uncheck else URLimDateisystem.Check
- if lbSave(12) then URLimInternet.Uncheck else URLimInternet.Check
+
+ if lbSave(10) then
+ NoPrettyPrinting.Uncheck
+ else
+ NoPrettyPrinting.Check
+ endif
+
+ if lbSave(11) then
+ URLimDateisystem.Uncheck
+ else
+ URLimDateisystem.Check
+ endif
+
+ if lbSave(12) then
+ URLimInternet.Uncheck
+ else
+ URLimInternet.Check
+ endif
+
printlog( "Setting filters for documenttypes: Select third item from every list" )
+
for i=1 to AppCount
Dokumenttyp.Select(i)
Filter.Select(3)
@@ -90,8 +128,7 @@ testcase tLoadSaveGeneral
printlog " - close options-dlg with OK"
kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
- sleep(3)
+ hCloseDialog( ExtrasOptionenDlg, "ok" )
printlog " - exit/restart StarOffice"
ExitRestartTheOffice
@@ -103,15 +140,19 @@ testcase tLoadSaveGeneral
if BenutzerspezifischeEinstellungen.IsChecked = lbSave ( 13 ) then
Warnlog "'Load user setting with document' => changes not saved"
endif
+
if DokumenteigenschaftenBearbeiten.IsChecked = lbSave ( 1 ) then
Warnlog "'Edit document properties before saving' => changes not saved"
endif
+
if Sicherungskopie.IsChecked = lbSave ( 2 ) then
Warnlog "'Create backup copy' => changes not saved"
endif
+
if AutomatischSpeichern.IsChecked = lbSave ( 3 ) then
printlog "AutoSave => changes not saved"
endif
+
if AutomatischSpeichern.IsChecked then
if Minuten.GetText <> "23" then
Warnlog "Minutes for AutoSave => changes not saved"
@@ -120,20 +161,23 @@ testcase tLoadSaveGeneral
if NoPrettyPrinting.IsChecked = lbSave ( 10 ) then
Warnlog "no pretty printing => changes not saved"
endif
+
if URLimDateisystem.IsChecked = lbSave ( 11 ) then
Warnlog "URL: File system => changes not saved"
endif
+
if URLimInternet.IsChecked = lbSave ( 12 ) then
Warnlog "URL: Internet => changes not saved"
endif
-
+
printlog( "Verifying filters for documenttypes: Select third item from every list" )
for i=1 to AppCount
Dokumenttyp.Select(i)
- printlog( "Doctype: " & Dokumenttyp.getSelText() & " has filter: " & Filter.getSelText() )
-
+ printlog( "Doctype: " & Dokumenttyp.getSelText() & " has filter: " & Filter.getSelText() )
+
if Filter.GetSelIndex <> 3 then
- warnlog( "#i79150# some options in Tools/Options->Load/Save->General are not saved" )
+ '#i79150#
+ warnlog( "Some options in Tools/Options->Load/Save->General are not saved" )
endif
next i
@@ -146,6 +190,7 @@ testcase tLoadSaveGeneral
NoPrettyPrinting.Uncheck
URLimDateisystem.Uncheck
URLimInternet.Uncheck
+
for i=1 to AppCount
Dokumenttyp.Select(i)
Filter.Select(4)
@@ -154,8 +199,7 @@ testcase tLoadSaveGeneral
printlog " - close options-dlg with OK"
kontext "extrasoptionendlg"
- ExtrasOptionenDlg.OK
- Sleep (1)
+ hCloseDialog( ExtrasOptionenDlg, "ok" )
printlog " - react on messageboxes for loosing settings after changing default-filters"
kontext "FilterWarning"
@@ -166,7 +210,7 @@ testcase tLoadSaveGeneral
i = AppCount + 1
endif
next i
- Sleep (3)
+ WaitSlot()
printlog " - check second changes"
ToolsOptions
@@ -175,27 +219,35 @@ testcase tLoadSaveGeneral
if BenutzerspezifischeEinstellungen.IsChecked <> FALSE then
Warnlog "'Load user setting with document' => changes not saved"
endif
+
if DokumenteigenschaftenBearbeiten.IsChecked <> TRUE then
Warnlog "'Edit document properties before saving' => changes not saved"
endif
+
if Sicherungskopie.IsChecked <> FALSE then
Warnlog "'Create backup copy' => changes not saved"
endif
+
if AutomatischSpeichern.IsChecked <> TRUE then
Warnlog "AutoSave => changes not saved"
endif
+
if Minuten.GetText <> "1" then
Warnlog "Minutes for AutoSave => changes not saved"
endif
+
if NoPrettyPrinting.IsChecked <> FALSE then
Warnlog "no pretty printing => changes not saved"
endif
+
if URLimDateisystem.IsChecked <> FALSE then
Warnlog "URL: File system => changes not saved"
endif
+
if URLimInternet.IsChecked <> FALSE then
Warnlog "URL: Internet => changes not saved"
endif
+
for i=1 to AppCount
Dokumenttyp.Select(i)
if Filter.GetSelIndex <> 4 then
@@ -207,26 +259,33 @@ testcase tLoadSaveGeneral
if lbSave ( 13 ) = FALSE then
BenutzerspezifischeEinstellungen.UnCheck else BenutzerspezifischeEinstellungen.Check
endif
+
if lbSave ( 1 ) = FALSE then
DokumenteigenschaftenBearbeiten.UnCheck else DokumenteigenschaftenBearbeiten.Check
endif
if lbSave ( 2 ) = FALSE then
Sicherungskopie.Uncheck else Sicherungskopie.Check
endif
+
AutomatischSpeichern.Check
Minuten.SetText lsSave ( 1 )
+
if lbSave ( 3 ) = FALSE then
AutomatischSpeichern.Uncheck else AutomatischSpeichern.Check
endif
+
if lbSave ( 10 ) = FALSE then
NoPrettyPrinting.Uncheck else NoPrettyPrinting.Check
endif
+
if lbSave ( 11 ) = FALSE then
URLimDateisystem.UnCheck else URLimDateisystem.Check
endif
+
if lbSave ( 12 ) = FALSE then
URLimInternet.UnCheck else URLimInternet.Check
endif
+
for i=1 to AppCount
Dokumenttyp.Select(i)
if Dokumenttyp.GetSelText <> lsSave ( 2 + i ) then
@@ -236,8 +295,8 @@ testcase tLoadSaveGeneral
next i
kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
- Sleep (3)
+ hCloseDialog( ExtrasOptionenDlg, "ok" )
+
printlog " - check settings"
ToolsOptions
@@ -246,29 +305,37 @@ testcase tLoadSaveGeneral
if BenutzerspezifischeEinstellungen.IsChecked <> lbSave ( 13 ) then
Warnlog "'Load user setting with document' => changes not saved"
endif
+
if DokumenteigenschaftenBearbeiten.IsChecked <> lbSave ( 1 ) then
Warnlog "'Edit document properties before saving' => changes not saved"
endif
+
if Sicherungskopie.IsChecked <> lbSave ( 2 ) then
Warnlog "'Create backup copy' => changes not saved"
endif
+
if AutomatischSpeichern.IsChecked <> lbSave ( 3 ) then
Warnlog "AutoSave => changes not saved"
endif
+
if AutomatischSpeichern.IsChecked then
if Minuten.GetText <> lsSave( 1 ) then
Warnlog "Minutes for AutoSave => changes not saved"
endif
endif
+
if NoPrettyPrinting.IsChecked <> lbSave ( 10 ) then
Warnlog "no pretty printing => changes not saved"
endif
+
if URLimDateisystem.IsChecked <> lbSave ( 11 ) then
Warnlog "URL: File system => changes not saved"
endif
+
if URLimInternet.IsChecked <> lbSave ( 12 ) then
Warnlog "URL: Internet => changes not saved"
endif
+
for i=1 to AppCount
Dokumenttyp.Select(i)
if Dokumenttyp.GetSelText <> lsSave ( 2 + i ) then
@@ -280,5 +347,6 @@ testcase tLoadSaveGeneral
next i
kontext "extrasoptionendlg"
- ExtrasOptionenDlg.OK
+ hCloseDialog( ExtrasOptionenDlg, "ok" )
+
endcase
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-30 12:19:00 +0000