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
70
71
72
73
74
75
|
{
Test all with:
./runtests --format=plain --suite=TTestLConvEncoding
Test specific with:
./runtests --format=plain --suite=Test_CP_UTF8_CP
}
unit TestLConvEncoding;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, fpcunit, LConvEncoding, LazLogger, testglobals, FileProcs,
LazUTF8;
type
{ TTestLConvEncoding }
TTestLConvEncoding = class(TTestCase)
public
published
procedure Test_CP_UTF8_CP;
end;
implementation
{ TTestLConvEncoding }
procedure TTestLConvEncoding.Test_CP_UTF8_CP;
procedure Test(CodePageName: string);
var
c: Char;
AsUTF8, Back: string;
l: integer;
Encoded: boolean;
begin
for c:=#1 to High(Char) do begin
AsUTF8:=ConvertEncodingToUTF8(c,CodePageName,Encoded);
if AsUTF8='' then
AssertEquals('CodePage '+CodePageName+' to UTF8 creates empty string for character #'+IntToStr(ord(c)),true,false);
Back:=ConvertEncodingFromUTF8(AsUTF8,CodePageName,Encoded);
if Back<>c then
AssertEquals('CodePage '+CodePageName+' ('+IntToStr(ord(c))+') to UTF8 ('+dbgs(UTF8CodepointToUnicode(PChar(AsUTF8),l))+') and back differ for character #'+IntToStr(ord(c)),DbgStr(c),dbgstr(Back));
end;
end;
begin
Test(EncodingCPIso1);
Test(EncodingCPIso2);
Test(EncodingCPIso15);
Test(EncodingCP437);
Test(EncodingCP850);
Test(EncodingCP852);
Test(EncodingCP866);
Test(EncodingCP874);
Test(EncodingCP1250);
Test(EncodingCP1251);
Test(EncodingCP1252);
Test(EncodingCP1253);
Test(EncodingCP1254);
Test(EncodingCP1255);
Test(EncodingCP1256);
Test(EncodingCP1257);
Test(EncodingCP1258);
end;
initialization
AddToLazUtilsTestSuite(TTestLConvEncoding);
end.
|
