paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 18:50:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: added test if 8859-1-UTF8-8859-1 is lossless

Browse Source 
git-svn-id: trunk@42023 -
This commit is contained in:
mattias 2013-07-08 17:36:28 +00:00
parent 0745efd94a
commit 9640cbc6e8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/lazutils/testlconvencoding.pas
View File

@ -47,13 +47,14 @@ procedure TTestLConvEncoding.Test_CP_UTF8_CP;
end;
begin
Test('ISO_8859_1',@ISO_8859_1ToUTF8,@UTF8ToISO_8859_1);
Test('866',@CP866ToUTF8,@UTF8ToCP866);
Test('1250',@CP1250ToUTF8,@UTF8ToCP1250);
Test('1251',@CP1251ToUTF8,@UTF8ToCP1251);
Test('1252',@CP1252ToUTF8,@UTF8ToCP1252);
Test('1253',@CP1253ToUTF8,@UTF8ToCP1253);
Test('1254',@CP1254ToUTF8,@UTF8ToCP1254);
Test('1255',@CP1255ToUTF8,@UTF8ToCP1255);
Test('866',@CP866ToUTF8,@UTF8ToCP866);
end;
initialization