paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 07:13:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

EditorMacroScript: More tests

Browse Source 
git-svn-id: trunk@39402 -
This commit is contained in:
martin 2012-11-28 19:28:04 +00:00
parent a78197d384
commit c2891838cf
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/macroscript/test/testscriptprocs.pas
View File

@ -371,7 +371,7 @@ begin
);
// SelText
DoTestSimple('SelText', 'Test'+ LineEnding + 'Ö Foo' + LineEnding,
DoTestSimple('SelText (read)', 'Test'+ LineEnding + 'Ö Foo' + LineEnding,
'var s: String; begin ' + LineEnding +
's := caller.SelText;' + LineEnding +
'Caller.CaretXY := point(2,1);' + LineEnding +
@ -389,7 +389,28 @@ begin
'Test',
5, 2
);
DoTestSimple('SelText (write)', 'Test'+ LineEnding + 'Ö Foo' + LineEnding,
'caller.SelText := ''X'';',
' Xo',
5, 2, -1, -1, True, 8, 2 // select "Fo"
);
// ClearSelection (does delete the text)
DoTestSimple('ClearSelection', 'Test123',
'caller.ClearSelection;',
'T123',
2, 1, -1, -1, True, 5, 1 // select "est"
);
// SelectAll
DoTestSimple('SelectAll', 'Test123',
'caller.SelectAll;' + LineEnding +
'caller.SelText := '''';',
''+LineEnding,
2, 1, -1, -1, False, 5, 1 // select "est"
);
// SelectionMode
{%endregion Selection *}