summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/global/g_paragraph.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_paragraph.inc')
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_paragraph.inc244
1 files changed, 116 insertions, 128 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_paragraph.inc b/testautomation/graphics/optional/includes/global/g_paragraph.inc
index 63a83ae0829f..707ebaba85c8 100755
--- a/testautomation/graphics/optional/includes/global/g_paragraph.inc
+++ b/testautomation/graphics/optional/includes/global/g_paragraph.inc
@@ -47,10 +47,8 @@ testcase tdFormatParagraph
dim iTemp as integer
iCount = 0
- '/// open application ///'
Call hNewDocument
- printlog "'/// - save states ///" '
ToolsOptions
hToolsOptions (gApplication,"General")
iTemp = Masseinheit.GetSelIndex
@@ -58,7 +56,6 @@ testcase tdFormatParagraph
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
- '/// call Format->Paragraph & set some values on 'indents and spacing' ///'
FormatParagraph
Kontext
Active.SetPage TabEinzuegeUndAbstaende
@@ -87,143 +84,134 @@ testcase tdFormatParagraph
sTemp(4) = Oben.getText
sTemp(5) = Unten.getText
TabEinzuegeUndAbstaende.OK
- '///+ close dialog ///'
- '///+ call Format->Paragraph again and check values ///'
FormatParagraph
Kontext
Active.SetPage TabEinzuegeUndAbstaende
Kontext "TabEinzuegeUndAbstaende"
if LiberalMeasurement(VonLinks.GetText, sTemp(1)) <> TRUE Then WarnLog "Value changed VonLinks is: '" + VonLinks.GetText + "' should: '" + sTemp(1) +"'"
- if LiberalMeasurement(VonRechts.GetText, sTemp(2)) <> TRUE Then WarnLog "Value changed VonRechts is: '" + VonRechts.GetText + "' should: '" + sTemp(2) +"'"
- if LiberalMeasurement(ErsteZeile.GetText, sTemp(3)) <> TRUE Then WarnLog "Value changed ErsteZeile is: '" + ErsteZeile.GetText + "' should: '" + sTemp(3) +"'"
- if LiberalMeasurement(Oben.GetText, sTemp(4)) <> TRUE Then WarnLog "Value changed Oben is: '" + Oben.GetText + "' should: '" + sTemp(4) +"'"
- if LiberalMeasurement(Unten.GetText, sTemp(5)) <> TRUE Then WarnLog "Value changed Unten is: '" + Unten.GetText + "' should: '" + sTemp(5) +"'"
+ if LiberalMeasurement(VonRechts.GetText, sTemp(2)) <> TRUE Then WarnLog "Value changed VonRechts is: '" + VonRechts.GetText + "' should: '" + sTemp(2) +"'"
+ if LiberalMeasurement(ErsteZeile.GetText, sTemp(3)) <> TRUE Then WarnLog "Value changed ErsteZeile is: '" + ErsteZeile.GetText + "' should: '" + sTemp(3) +"'"
+ if LiberalMeasurement(Oben.GetText, sTemp(4)) <> TRUE Then WarnLog "Value changed Oben is: '" + Oben.GetText + "' should: '" + sTemp(4) +"'"
+ if LiberalMeasurement(Unten.GetText, sTemp(5)) <> TRUE Then WarnLog "Value changed Unten is: '" + Unten.GetText + "' should: '" + sTemp(5) +"'"
- '///+ try to activate the metric field for line spacing, has to work for the last 3 of 6 entries !///'
- Zaehler=Zeilenabstand.GetItemCount
- for a=1 to Zaehler
- Zeilenabstand.Select a
- sIndent = Zeilenabstand.GetSelText
- sleep 1
- try
- ' if um.IsEnabled then printlog "## UM##"
- ' if von.IsEnabled then printlog "##VON##"
- if (von.IsEnabled and um.IsEnabled) then printlog "##VON#### UM## !!!!! :-("
- if von.IsEnabled then
- sIndentValue = von.GetText
- von.More
- sleep 1
- if sIndentValue = von.GetText then
- warnlog "value didn't change :-( : '"+sIndent +"'"
- else
- printlog "value changed :-) '"+sIndent +"'"
- endif
- iCount = iCount+1
- else
- if um.IsEnabled then
- sIndentValue = Um.GetText
- Um.More
- sleep 1
- if sIndentValue = Um.GetText then
- warnlog "value didn't change :-( : '"+sIndent +"'"
- else
- printlog "value changed :-) '"+sIndent +"'"
- endif
- iCount = iCount+1
- else
- printlog "value not changeable :-? '"+sIndent +"'"
- endif
- endif
- catch
- warnLog "BIGERROR :-("
- endcatch
- printlog "----------------------------------------------------------------------------------------"
- sleep 1
- TabEinzuegeUndAbstaende.OK
- sleep 1
- FormatParagraph
- Kontext
- Active.SetPage TabEinzuegeUndAbstaende
- Kontext "TabEinzuegeUndAbstaende"
- next a
- if iCount <> 3 then warnlog "Could only activate "+ iCount + " out of "+Zaehler +" vlauefields :-("
- TabeinzuegeUndAbstaende.OK
+ Zaehler=Zeilenabstand.GetItemCount
+ for a=1 to Zaehler
+ Zeilenabstand.Select a
+ sIndent = Zeilenabstand.GetSelText
+ sleep 1
+ try
+ ' if um.IsEnabled then printlog "## UM##"
+ ' if von.IsEnabled then printlog "##VON##"
+ if (von.IsEnabled and um.IsEnabled) then printlog "##VON#### UM## !!!!! :-("
+ if von.IsEnabled then
+ sIndentValue = von.GetText
+ von.More
+ sleep 1
+ if sIndentValue = von.GetText then
+ warnlog "value didn't change :-( : '"+sIndent +"'"
+ else
+ printlog "value changed :-) '"+sIndent +"'"
+ endif
+ iCount = iCount+1
+ else
+ if um.IsEnabled then
+ sIndentValue = Um.GetText
+ Um.More
+ sleep 1
+ if sIndentValue = Um.GetText then
+ warnlog "value didn't change :-( : '"+sIndent +"'"
+ else
+ printlog "value changed :-) '"+sIndent +"'"
+ endif
+ iCount = iCount+1
+ else
+ printlog "value not changeable :-? '"+sIndent +"'"
+ endif
+ endif
+ catch
+ warnLog "BIGERROR :-("
+ endcatch
+ printlog "----------------------------------------------------------------------------------------"
+ sleep 1
+ TabEinzuegeUndAbstaende.OK
+ sleep 1
+ FormatParagraph
+ Kontext
+ Active.SetPage TabEinzuegeUndAbstaende
+ Kontext "TabEinzuegeUndAbstaende"
+ next a
+ if iCount <> 3 then warnlog "Could only activate "+ iCount + " out of "+Zaehler +" vlauefields :-("
+ TabeinzuegeUndAbstaende.OK
- '/// call Format->Paragraph & set some values on 'alignment' ///'
- '///+ check button, close dialog, open again, check if the button is stioll selected ///'
- '///+ do it for all four buttons: left, right, center, justified ///'
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
- Links.Check
- TabAusrichtungAbsatz.OK
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- if Links.IsChecked=False Then WarnLog " Button 'left' is not activated"
+ Links.Check
+ TabAusrichtungAbsatz.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ if Links.IsChecked=False Then WarnLog " Button 'left' is not activated"
- Rechts.Check
- TabAusrichtungAbsatz.OK
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- if Rechts.IsChecked=False Then WarnLog " Button 'right' is not activated"
+ Rechts.Check
+ TabAusrichtungAbsatz.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ if Rechts.IsChecked=False Then WarnLog " Button 'right' is not activated"
- Zentriert.Check
- TabAusrichtungAbsatz.OK
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- if Zentriert.IsChecked=False Then WarnLog " Button 'center' is not activated"
+ Zentriert.Check
+ TabAusrichtungAbsatz.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ if Zentriert.IsChecked=False Then WarnLog " Button 'center' is not activated"
- Blocksatz.Check
- TabAusrichtungAbsatz.OK
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- if Blocksatz.IsChecked=False Then WarnLog " Button 'justified' is not activated"
- TabAusrichtungAbsatz.OK
+ Blocksatz.Check
+ TabAusrichtungAbsatz.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ if Blocksatz.IsChecked=False Then WarnLog " Button 'justified' is not activated"
+ TabAusrichtungAbsatz.OK
- '/// call Format->Paragraph & set some values on 'tabs' ///'
- FormatParagraph
- Kontext
- Active.SetPage TabTabulator
- Kontext "TabTabulator"
- SetClipboard Position.GetItemCount
- Position.SetText "1"
- Neu.Click
- Position.SetText "2"
- Neu.Click
- Position.SetText "3"
- Neu.Click
- TabTabulator.OK
- FormatParagraph
- Kontext
- Active.SetPage TabTabulator
- Kontext "TabTabulator"
- if GetClipboardText + 3 = Position.GetItemCount Then PrintLog " positions added"
- Loeschen.Click
- if Position.GetItemCount="3" Then
- WarnLog " Delete does not work"
- else
- Printlog " TAll ran well in TabTabulator"
- end if
- TabTabulator.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabTabulator
+ Kontext "TabTabulator"
+ SetClipboard Position.GetItemCount
+ Position.SetText "1"
+ Neu.Click
+ Position.SetText "2"
+ Neu.Click
+ Position.SetText "3"
+ Neu.Click
+ TabTabulator.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabTabulator
+ Kontext "TabTabulator"
+ if GetClipboardText + 3 = Position.GetItemCount Then PrintLog " positions added"
+ Loeschen.Click
+ if Position.GetItemCount="3" Then
+ WarnLog " Delete does not work"
+ else
+ Printlog " TAll ran well in TabTabulator"
+ end if
+ TabTabulator.OK
- printlog "'/// - Reset states back to what they were before ///"'
- ToolsOptions
- hToolsOptions (gApplication,"General")
- Masseinheit.Select iTemp
- if ( Masseinheit.GetSelIndex <> iTemp ) then WarnLog "Unit of Measurement state were NOT changed back"
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ ToolsOptions
+ hToolsOptions (gApplication,"General")
+ Masseinheit.Select iTemp
+ if ( Masseinheit.GetSelIndex <> iTemp ) then WarnLog "Unit of Measurement state were NOT changed back"
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- '/// close application ///'
- Call hCloseDocument
+ Call hCloseDocument
endcase
generated by cgit (git 2.34.1) at 2024-07-29 15:56:14 +0000