summaryrefslogtreecommitdiff
path: root/testautomation/graphics/required/includes/global/id_007.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/required/includes/global/id_007.inc')
-rw-r--r--testautomation/graphics/required/includes/global/id_007.inc489
1 files changed, 229 insertions, 260 deletions
diff --git a/testautomation/graphics/required/includes/global/id_007.inc b/testautomation/graphics/required/includes/global/id_007.inc
index 29791d4b716f..81c265bca515 100644
--- a/testautomation/graphics/required/includes/global/id_007.inc
+++ b/testautomation/graphics/required/includes/global/id_007.inc
@@ -34,7 +34,6 @@
sub id_007
printLog Chr(13) + "--------- id_007 ----------"
- ' in imp available via context menu, in draw via modify menu
call tdModifyFlipVertikal
call tdModifyFlipHorizontal
@@ -56,487 +55,460 @@ sub id_007
call tdModifyCombineSplit
end sub
'-------------------------------------------------------------------------------
-testcase tdModifyFlipVertikal
- '/// open application ///'
+testcase tdModifyFlipVertikal
+ printlog "open application"
Call hNewDocument ' imp: contextmenue same SID!
sleep 1
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
try
- '/// imp: Kontextmenu: Flip->Vertically ///'
- '///+ Modify->Flip->Vertically ///'
+ printlog "imp: Kontextmenu: Flip->Vertically"
ContextFlipVerticalDraw
Printlog "- Flip-vertical is working"
catch
Warnlog "- Flip-Vertical does not work"
endcatch
sleep 1
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyFlipVertikal
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyFlipHorizontal
- '/// open application ///'
+ printlog "open application"
Call hNewDocument ' imp: contextmenue same SID!
WaitSlot (1000)
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
try
- '/// imp: Kontextmenu: Flip->Horizontally ///'
- '///+ Modify->Flip->Horizontally ///'
+ printlog "imp: Kontextmenu: Flip->Horizontally"
ContextFlipHorizontalDraw
Printlog "- Flip-horizontal is working"
catch
Warnlog "- Flip-horizontal does not work"
endcatch
sleep 1
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyFlipHorizontal
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoCurve
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Modify->Convert->To Curve ///'
- '///+ Modify->Convert->To Curve ///'
+ printlog "Modify->Convert->To Curve"
ContextConvertIntoCurve
WaitSlot (2000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoCurve
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoPolygon
dim iWaitIndex as integer
- '/// open application ///'
- Call hNewDocument ' imp: contextmenue same SID!
+
+ printlog "open application"
+ Call hNewDocument
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
- '/// Check if the dialogue is there. If not - wait for maximum 10 seconds)
- iWaitIndex = 0
- do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10
- sleep(1)
- iWaitIndex = iWaitIndex + 1
- loop
- if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then
- warnlog "Dialogue Insert Graphics didnt work. Ending testcase."
- Call hCloseDocument
- goto endsub
- end if
- '/// insert graphic: "global\input\graf_inp\enter.bmp" ///'
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
- Oeffnen.Click
- sleep 3
- '/// Modify->Convert->To Polygon ///'
- '/// Modify->Convert->To Polygon ///'
- ContextConvertIntoPolygon
- Kontext "InPolygonUmwandeln"
- Call DialogTest (InPolygonUmwandeln)
- '/// check checkbox: 'Fill holes' ///'
- LoecherFuellen.Check
- '/// click more in number field: 'Number of colors' ///'
- Farbanzahl.More
- '/// click more in number field: 'Point reductionn' ///'
- Punktreduktion.More
- '/// click more in number field: 'Tile size' ///'
- Kachelgroesse.More
- '/// click button 'Preview' ///'
- Vorschau.Click
- sleep 10
- '/// cancel dialog 'Convert to Polygon' ///'
- InPolygonUmwandeln.Cancel
- sleep (2)
- '/// close application ///'
+ printlog "Check if the dialogue is there. If not - wait for maximum 10 seconds)"
+ iWaitIndex = 0
+ do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10
+ sleep(1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then
+ warnlog "Dialogue Insert Graphics didnt work. Ending testcase."
+ Call hCloseDocument
+ goto endsub
+ end if
+ printlog "insert graphic: global\input\graf_inp\enter.bmp"
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+ Oeffnen.Click
+ sleep 3
+ printlog "Modify->Convert->To Polygon"
+ ContextConvertIntoPolygon
+ Kontext "InPolygonUmwandeln"
+ Call DialogTest (InPolygonUmwandeln)
+ printlog "check checkbox: 'Fill holes'"
+ LoecherFuellen.Check
+ printlog "click more in number field: 'Number of colors'"
+ Farbanzahl.More
+ printlog "click more in number field: 'Point reductionn'"
+ Punktreduktion.More
+ printlog "click more in number field: 'Tile size'"
+ Kachelgroesse.More
+ printlog "click button 'Preview'"
+ Vorschau.Click
+ sleep 10
+ printlog "cancel dialog 'Convert to Polygon'"
+ InPolygonUmwandeln.Cancel
+ sleep (2)
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoPolygon
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoContour
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Modify->Convert->To Contour ///'
- '/// Modify->Convert->To Contour ///'
+ printlog "Modify->Convert->To Contour"
ContextConvertIntoContour
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoContour
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertInto3D
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Modify->Convert->To 3D ///'
- '/// Modify->Convert->To 3D ///'
+ printlog "Modify->Convert->To 3D"
ContextConvertInto3D
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertInto3D
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoRotationObject
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (1000)
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen (20,20,50,50)
sleep 2
- '/// Modify->Convert->To 3D Rotation Object ///'
- '/// Modify->Convert->To 3D Rotation Object ///'
+ printlog "Modify->Convert->To 3D Rotation Object"
ContextConvertInto3DRotationObject
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoRotationObject
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoBitmap
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (3000)
InsertGraphicsFromFile
WaitSlot (3000)
Kontext "GrafikEinfuegenDlg"
- sleep 2
- '/// insert graphic: "global\input\graf_inp\columbia.dxf" ///'
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
- sleep 2
- Oeffnen.Click
- sleep 2
- try
- '/// Modify->Convert->To Bitmap ///'
- ContextConvertIntoBitmap
- Printlog "- Convert into bitmap is working"
- catch
- Warnlog "- Convert into bitmap does not work"
- endcatch
- '/// close application ///'
+ sleep 2
+ printlog "insert graphic: global\input\graf_inp\columbia.dxf"
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
+ sleep 2
+ Oeffnen.Click
+ sleep 2
+ try
+ printlog "Modify->Convert->To Bitmap"
+ ContextConvertIntoBitmap
+ Printlog "- Convert into bitmap is working"
+ catch
+ Warnlog "- Convert into bitmap does not work"
+ endcatch
+printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoBitmap
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoMetaFile
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (3000)
InsertGraphicsFromFile
WaitSlot (1000)
kontext "Messagebox"
- if Messagebox.Exists (5) Then Messagebox.OK
- sleep 1
- Kontext "GrafikEinfuegenDlg"
- '/// insert graphic: "global\input\graf_inp\desp.bmp" ///'
- sleep 2
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
- sleep 2
- Preview.Click
- sleep 3
- Oeffnen.Click
- sleep 5
- try
- '/// Modify->Convert->To Metafile ///'
- '/// Modify->Convert->To Metafile ///'
- ContextConvertIntoMetafile
- Printlog "- convert into meta file does work"
- catch
- Warnlog "- convert into meta file does not work"
- endcatch
- '/// close application ///'
+ if Messagebox.Exists (5) Then Messagebox.OK
+ sleep 1
+ Kontext "GrafikEinfuegenDlg"
+ printlog "insert graphic: global\input\graf_inp\desp.bmp"
+ sleep 2
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
+ sleep 2
+ Preview.Click
+ sleep 3
+ Oeffnen.Click
+ sleep 5
+ try
+ printlog "Modify->Convert->To Metafile"
+ printlog "Modify->Convert->To Metafile"
+ ContextConvertIntoMetafile
+ Printlog "- convert into meta file does work"
+ catch
+ Warnlog "- convert into meta file does not work"
+ endcatch
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoMetaFile
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyArrange
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen ( 10, 10, 20, 40 )
hTypeKeys("<escape>")
Call hRechteckErstellen ( 30, 30, 50, 60 )
- '/// Modify->Arrange->Bring to Front ///'
- '///+ Modify->Arrange->Bring to Front ///'
+ printlog "Modify->Arrange->Bring to Front"
FormatArrangeBringToFront
WaitSlot (1000)
- '/// Modify->Arrange->Bring Forward ///'
- '///+ Modify->Arrange->Bring Forward ///'
+ printlog "Modify->Arrange->Bring Forward"
ContextArrangeBringForward
WaitSlot (1000)
- '/// Modify->Arrange->Send Backward ///'
- '///+ Modify->Arrange->Send Backward ///'
+ printlog "Modify->Arrange->Send Backward"
ContextArrangeBringBackward
WaitSlot (1000)
- '/// Modify->Arrange->Send to Back ///'
- '///+ Modify->Arrange->Send to Back ///'
+ printlog "Modify->Arrange->Send to Back"
FormatArrangeSendToBack
WaitSlot (1000)
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
- '/// Modify->Arrange->Reverse ///'
- '///+ Modify->Arrange->Reverse ///'
+ printlog "Modify->Arrange->Reverse"
ContextArrangeReverse
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyArrange
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyArrangeObjects
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (1000)
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen ( 20, 20, 30, 50 )
hTypeKeys("<escape>")
Call hRechteckErstellen ( 30,30,50,50 )
- '/// Modify->Arrange->In Front of Object ///'
- '///+ Modify->Arrange->In Front of Object ///'
+ printlog "Modify->Arrange->In Front of Object"
ContextArrangeInFrontOfObject
- '/// click on the upper left rectangle ///'
+ printlog "click on the upper left rectangle"
gMouseClick 11,11
- '/// Modify->Arrange->Behind Object ///'
- '///+ Modify->Arrange->Behind Object ///'
+ printlog "Modify->Arrange->Behind Object"
ContextArrangeBehindObject
- '/// click on the lower right rectangle ///'
+ printlog "click on the lower right rectangle"
gMouseClick 45,45
sleep 1
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyArrangeObjects
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyAlignment
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (1000)
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 20, 20, 30, 50 )
- '/// Modify->Alignment->Left ///'
- '///+ Modify->Alignment->Left ///'
+ printlog "Modify->Alignment->Left"
ContextAlignmentLeft
WaitSlot (1000)
- '/// Modify->Alignment->Centered ///'
- '///+ Modify->Alignment->Centered ///'
+ printlog "Modify->Alignment->Centered"
ContextAlignmentCentered
WaitSlot (1000)
- '/// Modify->Alignment->Right ///'
- '///+ Modify->Alignment->Right ///'
+ printlog "Modify->Alignment->Right"
ContextAlignmentRight
WaitSlot (1000)
- '/// Modify->Alignment->Top ///'
- '///+ Modify->Alignment->Top ///'
+ printlog "Modify->Alignment->Top"
ContextAlignmentTop
WaitSlot (1000)
- '/// Modify->Alignment->Center ///'
- '///+ Modify->Alignment->Center ///'
+ printlog "Modify->Alignment->Center"
ContextAlignmentBottom
WaitSlot (1000)
- '/// Modify->Alignment->Bottom ///'
- '///+ Modify->Alignment->Bottom ///'
+ printlog "Modify->Alignment->Bottom"
ContextAlignmentCenter
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyAlignment
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextDistribution
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (3000)
- '/// create 3 rectangles ///'
+ printlog "create 3 rectangles"
Call sSelectEmptyLayout
Call hRechteckErstellen (20,20,30,30)
Call hRechteckErstellen (40,40,50,50)
Call hRechteckErstellen (60,60,70,70)
sleep 1
- '/// select all with keyboard: <STRG>+ <A> ///'
+ printlog "select all with keyboard: <STRG>+ <A>"
EditSelectAll
sleep 1
- '/// Modify->Distibution... ///'
- '///+ Modify->Distibution... ///'
+ printlog "Modify->Distibution..."
ContextDistribution
Kontext "VerteilenDlg"
- sleep 1
- Call DialogTest (VerteilenDlg)
- sleep 1
- '/// check radiobutton horizontal 'Left' ///'
- Links.Check
- '///+ check radiobutton 'Center' ///'
- MitteHorizontal.Check
- '///+ check radiobutton 'spacing' ///'
- AbstandHorizontal.Check
- '///+ check radiobutton 'right' ///'
- Rechts.Check
- '///+ check radiobutton 'none' ///'
- KeineHorizontal.Check
- '/// check radiobutton vertical 'top' ///'
- Oben.Check
- '///+ check radiobutton 'center' ///'
- MitteVertikal.Check
- '///+ check radiobutton 'spacing' ///'
- AbstandVertikal.Check
- '///+ check radiobutton 'bottom' ///'
- Unten.Check
- '///+ check radiobutton 'none' ///'
- KeineVertikal.Check
- '/// cancel dialog 'Distribution' ///'
- VerteilenDlg.Cancel
- sleep 2
- '/// close application ///'
+ sleep 1
+ Call DialogTest (VerteilenDlg)
+ sleep 1
+ printlog "check radiobutton horizontal 'Left'"
+ Links.Check
+ printlog "check radiobutton 'Center'"
+ MitteHorizontal.Check
+ printlog "check radiobutton 'spacing'"
+ AbstandHorizontal.Check
+ printlog "check radiobutton 'right'"
+ Rechts.Check
+ printlog "check radiobutton 'none'"
+ KeineHorizontal.Check
+ printlog "check radiobutton vertical 'top'"
+ Oben.Check
+ printlog "check radiobutton 'center'"
+ MitteVertikal.Check
+ printlog "check radiobutton 'spacing'"
+ AbstandVertikal.Check
+ printlog "check radiobutton 'bottom'"
+ Unten.Check
+ printlog "check radiobutton 'none'"
+ KeineVertikal.Check
+ printlog "cancel dialog 'Distribution'"
+ VerteilenDlg.Cancel
+ sleep 2
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextDistribution
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextDescriptionObject
- '/// Open application ///'
+ printlog "Open application"
Call hNewDocument
WaitSlot (1000)
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
ContextDescriptionObject
Kontext "DescriptionObject"
- Call DialogTest (DescriptionObject)
- '/// Cancel dialog 'DescriptionObject' ///'
- DescriptionObject.Cancel
- '/// Close application ///'
+ Call DialogTest (DescriptionObject)
+ printlog "Cancel dialog 'DescriptionObject'"
+ DescriptionObject.Cancel
+ printlog "Close application"
Call hCloseDocument
-endcase
+endcase 'tdContextDescriptionObject
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextNameObject
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (1000)
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen ( 20, 20, 30, 50 )
hTypeKeys("<escape>")
Call hRechteckErstellen ( 30, 40, 50, 60 )
sleep 1
- '/// select both by spanning a selection with the mouse ///'
+ printlog "select both by spanning a selection with the mouse"
gMouseMove 1,1,70,70
sleep 1
- '/// Modify->Group ///'
- '///+ Modify->Group ///'
+ printlog "Modify->Group"
FormatGroupGroup
WaitSlot (1000)
- '/// Modify->Name Object ///'
- '///+ Modify->Name Object ///'
+ printlog "Modify->Name Object"
ContextNameObject
Kontext "NameDlgObject"
- Call DialogTest (NameDlgObject)
- '/// cancel dialog 'name' ///'
- NameDlgObject.Cancel
- '/// Modify->UnGroup ///'
- '///+ Modify->UnGroup ///'
- FormatUngroupDraw
- '/// close application ///'
+ Call DialogTest (NameDlgObject)
+ printlog "cancel dialog 'name'"
+ NameDlgObject.Cancel
+ printlog "Modify->UnGroup"
+ FormatUngroupDraw
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextNameObject
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyConnectBreak
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
Call sSelectEmptyLayout
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen (10,10,30,30)
Call hRechteckErstellen (35,35,50,50)
sleep 1
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
- '/// Modify->Connect ///'
- '///+ Modify->Connect ///'
+ printlog "Modify->Connect"
ContextConnect
sleep 1
try
- '/// Modify->Break ///'
- '///+ Modify->Break ///'
+ printlog "Modify->Break"
ContextBreak
catch
- Warnlog "- Modify-Break does not work"
+ Warnlog "- Modify-Break does not work"
endcatch
sleep 1
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyConnectBreak
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyShapes
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
Call sSelectEmptyLayout
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
gMouseClick 50,50
Call hRechteckErstellen (30,30,50,50)
Call hRechteckErstellen (60,60,80,80)
sleep 1
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
sleep 1
try
- '/// Modify->Shapes->Merge ///'
- '///+ Modify->Shapes->Merge ///'
- ModifyShapesMerge ' 1
+ printlog "Modify->Shapes->Merge"
+ ModifyShapesMerge ' 1
WaitSlot (1000) 'sleep 1
- Printlog "- Modify-Shape merge is working"
+ Printlog "- Modify-Shape merge is working"
catch
- Warnlog "- Modify-shape merge is not working"
+ Warnlog "- Modify-shape merge is not working"
endcatch
- '/// select all and delete it ///'
+ printlog "select all and delete it"
EditSelectAll
sleep 1
hTypeKeys "<DELETE>"
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen (30,30,50,50)
Call hRechteckErstellen (60,60,80,80)
sleep 1
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
sleep 1
try
- '/// Modify->Shapes->Substract ///'
- '///+ Modify->Shapes->Substract ///'
- ModifyShapesSubstract ' 2
- Printlog "- Modify-shape-substract is working"
+ printlog "Modify->Shapes->Substract"
+ ModifyShapesSubstract ' 2
+ Printlog "- Modify-shape-substract is working"
catch
- Warnlog "- Modify-shape substract is not working"
+ Warnlog "- Modify-shape substract is not working"
endcatch
sleep 1
- '/// select all and delete it ///'
+ printlog "select all and delete it"
EditSelectAll
sleep 1
hTypeKeys "<DELETE>"
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen (30,30,50,50)
sleep 1
Call hRechteckErstellen (60,60,80,80)
@@ -544,45 +516,42 @@ testcase tdModifyShapes
EditSelectall
sleep 1
try
- '/// Modify->Shapes->Intersect ///'
- '///+ Modify->Shapes->Intersect ///'
- ModifyShapesIntersect ' 3
- Printlog "- Modify-shape intersect is working"
+ printlog "Modify->Shapes->Intersect"
+ ModifyShapesIntersect ' 3
+ Printlog "- Modify-shape intersect is working"
catch
- Warnlog "- Modify-Shape intersect is not working"
+ Warnlog "- Modify-Shape intersect is not working"
endcatch
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyShapes
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyCombineSplit
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
Call sSelectEmptyLayout
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen (30,30,50,50)
Call hRechteckErstellen (60,60,80,80)
sleep 1
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
sleep 1
try
- '/// Modify->Shapes->Combine ///'
- '///+ Modify->Shapes->Combine ///'
- ContextCombine
- Printlog "- Modify combine is working"
- '/// Modify->Shapes->Split ///'
- '///+ Modify->Shapes->Split ///'
- ContextSplit
- Printlog "- Modify-split is working"
+ printlog "Modify->Shapes->Combine"
+ ContextCombine
+ Printlog "- Modify combine is working"
+ printlog "Modify->Shapes->Split"
+ ContextSplit
+ Printlog "- Modify-split is working"
catch
- Warnlog "- Modify-combine and split are not working"
+ Warnlog "- Modify-combine and split are not working"
endcatch
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyCombineSplit
-'------------------------------------------------------------------------------------------------------------------------------------------------
+'------------------------------------------------------------------------------------------------------------------------------------------------ \ No newline at end of file
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-21 07:00:12 +0000