From 49904b6e13d023b2b3af8211ac01e8d0ee6b5e41 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 29 Nov 2012 21:35:42 +0000
Subject: [PATCH] EditorMacroScript: More tests

git-svn-id: trunk@39412 -
---
 .../macroscript/test/testscriptprocs.pas      | 42 ++++++++++++++++++-
 1 file changed, 41 insertions(+), 1 deletion(-)

diff --git a/components/macroscript/test/testscriptprocs.pas b/components/macroscript/test/testscriptprocs.pas
index f1120a2c04..ad886a6075 100644
--- a/components/macroscript/test/testscriptprocs.pas
+++ b/components/macroscript/test/testscriptprocs.pas
@@ -448,11 +448,51 @@ begin
                  );
 
 
-    // SelectionMode
+    // TODO: SelectionMode
     {%endregion Selection *}
 
 
     {%region Logical / Physical *}
+    // LogicalToPhysicalPos
+    DoTestSimple('LogicalToPhysicalPos', ' öabc',
+                 'var p: TPoint; begin'+LineEnding+
+                 '  p := Caller.LogicalToPhysicalPos(point(4,1));'+LineEnding+ // "a|b"
+                 '  Caller.InsertTextAtCaret(inttostr(p.x)+'',''+inttostr(p.y), scamBegin);'+LineEnding+
+                 'end.',
+                 '3,1');
+
+    // LogicalToPhysicalCol
+    DoTestSimple('LogicalToPhysicalCol', ' öabc'+LineEnding+'x',
+                 'var i: Integer; begin'+LineEnding+
+                 '  i := Caller.LogicalToPhysicalCol(''ööabc'', 2, 6);'+LineEnding+ // "a|b"
+                 '  Caller.InsertTextAtCaret(inttostr(i), scamBegin);'+LineEnding+
+                 'end.',
+                 '4');
+
+    // PhysicalToLogicalPos
+    DoTestSimple('PhysicalToLogicalPos', ' öabc',
+                 'var p: TPoint; begin'+LineEnding+
+                 '  p := Caller.PhysicalToLogicalPos(point(3,1));'+LineEnding+ // "a|b"
+                 '  Caller.InsertTextAtCaret(inttostr(p.x)+'',''+inttostr(p.y), scamBegin);'+LineEnding+
+                 'end.',
+                 '4,1');
+
+    // PhysicalToLogicalCol
+    DoTestSimple('PhysicalToLogicalCol', ' öabc'+LineEnding+'x',
+                 'var i: Integer; begin'+LineEnding+
+                 '  i := Caller.PhysicalToLogicalCol(''ööabc'', 2, 4);'+LineEnding+ // "a|b"
+                 '  Caller.InsertTextAtCaret(inttostr(i), scamBegin);'+LineEnding+
+                 'end.',
+                 '6');
+
+    // PhysicalLineLength
+    DoTestSimple('PhysicalLineLength', ' öabc'+LineEnding+'x',
+                 'var i: Integer; begin'+LineEnding+
+                 '  i := Caller.PhysicalLineLength(''ööabc'', 2);'+LineEnding+
+                 '  Caller.InsertTextAtCaret(inttostr(i), scamBegin);'+LineEnding+
+                 'end.',
+                 '5');
+
     {%endregion Logical / Physical *}