1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
unit TestUCE;
interface
uses
TestFramework, Windows, Classes, UniCodeEditor, Forms;
type
// Test methods for class TUniCodeEdit.
TestTUniCodeEdit = class(TTestCase)
strict private
FForm: TForm;
FEditor: TUniCodeEdit;
public
procedure SetUp; override;
procedure TearDown; override;
published
procedure TestText;
end;
//----------------------------------------------------------------------------------------------------------------------
implementation
uses
SysUtils, Support, Controls;
//----------------- TestTUniCodeEdit -----------------------------------------------------------------------------------
procedure TestTUniCodeEdit.SetUp;
begin
FForm := TForm.Create(nil);
FEditor := TUniCodeEdit.Create(FForm);
FEditor.Parent := FForm;
FEditor.Align := alClient;
FForm.Show;
end;
//----------------------------------------------------------------------------------------------------------------------
procedure TestTUniCodeEdit.TearDown;
begin
FreeAndNil(FForm);
end;
//----------------------------------------------------------------------------------------------------------------------
procedure TestTUniCodeEdit.TestText;
begin
with FEditor do
begin
Text := 'abc ' + #13#10 + #13 + #13 + 'def';
CheckEquals(4, Content.Count, 'Checking correct line break handling (1).');
Text := #13;
CheckEquals(1, Content.Count, 'Checking correct line break handling (2).');
end;
end;
//----------------------------------------------------------------------------------------------------------------------
initialization
// Register any test cases with the test runner
RegisterTest(TestTUniCodeEdit.Suite);
end.
|
