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
|
unit TestDwarfVarious;
{$mode objfpc}{$H+}
interface
uses
FpDbgDwarf, FpDbgUtil, LazLoggerBase, LazUTF8, sysutils, fpcunit, testregistry;
type
{ TestDwarfVarious }
TTestDwarfVarious = class(TTestCase)
published
procedure TestCompareUtf8BothCase;
end;
implementation
procedure TTestDwarfVarious.TestCompareUtf8BothCase;
var
s1, s2,s3: String;
begin
s2 := UTF8UpperCase( '_vptr$TOBJECT');
s3 := UTF8LowerCase( '_vptr$TOBJECT');
s1 := '_vptr$TOBJECT';
AssertTrue( CompareUtf8BothCase(@s2[1],@s3[1],@s1[1]) );
s1 := '_Vptr$TOBJECT';
AssertTrue( CompareUtf8BothCase(@s2[1],@s3[1],@s1[1]) );
s1 := '_vPtR$TOBJECT';
AssertTrue( CompareUtf8BothCase(@s2[1],@s3[1],@s1[1]) );
s1 := '_Vvptr$TOBJECT';
AssertFalse( CompareUtf8BothCase(@s2[1],@s3[1],@s1[1]) );
end;
initialization
RegisterTest(TTestDwarfVarious);
end.
|
