paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds performance tests

Browse Source 
git-svn-id: trunk@32741 -
This commit is contained in:
sekelsenmat 2011-10-07 11:08:48 +00:00
parent 1d224762e2
commit d2e2258a3c
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
test/lazutils/testunicode.pas
View File

@ -45,7 +45,21 @@ begin
AssertStringOperation(AMsg, AStr1, UTF8LowerCase(AStr1, ALocale), AStrExpected2);
end;
function DateTimeToMilliseconds(aDateTime: TDateTime): Int64;
var
TimeStamp: TTimeStamp;
begin
{Call DateTimeToTimeStamp to convert DateTime to TimeStamp:}
TimeStamp:= DateTimeToTimeStamp (aDateTime);
{Multiply and add to complete the conversion:}
Result:= TimeStamp.Time;
end;
procedure TestUTF8UpperCase;
var
lStartTime, lTimeDiff: TDateTime;
Str: UTF8String;
i: Integer;
begin
// ASCII
AssertStringOperationUTF8UpperCase('ASCII UTF8UpperCase', '', 'abcdefghijklmnopqrstuwvxyz', 'ABCDEFGHIJKLMNOPQRSTUWVXYZ');
@ -56,6 +70,23 @@ begin
AssertStringOperationUTF8UpperCase('Turkish UTF8UpperCase 1', 'tu', 'abcçdefgğhıijklmnoöprsştuüvyz', 'ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ');
AssertStringOperationUTF8UpperCase('Turkish UTF8UpperCase 2', 'tu', 'ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ', 'ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ');
// Performance test
lStartTime := Now;
for i := 0 to 9999 do
begin
Str := UTF8UpperCase('aąbcćdeęfghijklłmnńoóprsśtuwyzźż');
Str := Str + UTF8UpperCase('AĄBCĆDEĘFGHIJKLŁMNŃOÓPRSŚTUWYZŹŻ');
end;
lTimeDiff := Now - lStartTime;
WriteLn('UpperCase Performance test took: ', DateTimeToMilliseconds(lTimeDiff), ' ms');
end;
procedure TestUTF8LowerCase;
var
i: Integer;
lStartTime, lTimeDiff: TDateTime;
Str: UTF8String;
begin
// ASCII
AssertStringOperationUTF8LowerCase('ASCII UTF8LowerCase', '', 'ABCDEFGHIJKLMNOPQRSTUWVXYZ', 'abcdefghijklmnopqrstuwvxyz');
// Latin
@ -64,9 +95,20 @@ begin
// Turkish
AssertStringOperationUTF8LowerCase('Turkish UTF8UpperCase 1', 'tu', 'abcçdefgğhıijklmnoöprsştuüvyz', 'abcçdefgğhıijklmnoöprsştuüvyz');
AssertStringOperationUTF8LowerCase('Turkish UTF8UpperCase 2', 'tu', 'ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ', 'abcçdefgğhıijklmnoöprsştuüvyz');
// Performance test
lStartTime := Now;
for i := 0 to 9999 do
begin
Str := UTF8LowerCase('aąbcćdeęfghijklłmnńoóprsśtuwyzźż');
Str := Str + UTF8LowerCase('AĄBCĆDEĘFGHIJKLŁMNŃOÓPRSŚTUWYZŹŻ');
end;
lTimeDiff := Now - lStartTime;
WriteLn('LowerCase Performance test took: ', DateTimeToMilliseconds(lTimeDiff), ' ms');
end;
begin
TestUTF8UpperCase();
TestUTF8LowerCase();
end.