paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 08:30:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix tests conforming to new behaviour wrt empty string

Browse Source 
git-svn-id: trunk@38778 -
This commit is contained in:
michael 2018-04-16 09:45:50 +00:00
parent 659bf09325
commit e495d73239
2 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
tests/test/tstrutils1.pp
View File

@ -48,29 +48,29 @@ function TestOK: Boolean;
begin
TestOK :=
// AnsiStartsStr
not AnsiStartsStr('', '')
and not AnsiStartsStr('', 'ab')
and not AnsiStartsStr('ab', '')
and AnsiStartsStr('abc', 'abc')
and not AnsiStartsStr('abc', 'def')
and AnsiStartsStr('abc', 'abcedfg')
and not AnsiStartsStr('abc', 'ab')
and AnsiStartsStr('áéíç', 'áéíç')
and AnsiStartsStr('áé', 'áéíç')
and not AnsiStartsStr('áéíç', 'áé')
and not AnsiStartsStr('áéíç', 'áéio')
TestValue( AnsiStartsStr('', ''))
and TestValue(AnsiStartsStr('', 'ab'))
and TestValue(not AnsiStartsStr('ab', ''))
and TestValue(AnsiStartsStr('abc', 'abc'))
and TestValue(not AnsiStartsStr('abc', 'def'))
and TestValue(AnsiStartsStr('abc', 'abcedfg'))
and TestValue(not AnsiStartsStr('abc', 'ab'))
and TestValue(AnsiStartsStr('áéíç', 'áéíç'))
and TestValue(AnsiStartsStr('áé', 'áéíç'))
and TestValue(not AnsiStartsStr('áéíç', 'áé'))
and TestValue(not AnsiStartsStr('áéíç', 'áéio'))
// AnsiEndsStr
and AnsiEndsStr('', '')
and AnsiEndsStr('', 'ab')
and not AnsiEndsStr('ab', '')
and AnsiEndsStr('abc', 'abc')
and not AnsiEndsStr('abc', 'def')
and AnsiEndsStr('dfg', 'abcedfg')
and not AnsiEndsStr('dfg', 'df')
and AnsiEndsStr('áéíç', 'áéíç')
and AnsiEndsStr('áé', 'íçáé')
and not AnsiEndsStr('áéíç', 'áé')
and not AnsiEndsStr('íçáé', 'ioáé');
and TestValue(AnsiEndsStr('', ''))
and TestValue(AnsiEndsStr('', 'ab'))
and TestValue(not AnsiEndsStr('ab', ''))
and TestValue(AnsiEndsStr('abc', 'abc'))
and TestValue(not AnsiEndsStr('abc', 'def'))
and TestValue(AnsiEndsStr('dfg', 'abcedfg'))
and TestValue(not AnsiEndsStr('dfg', 'df'))
and TestValue(AnsiEndsStr('áéíç', 'áéíç'))
and TestValue(AnsiEndsStr('áé', 'íçáé'))
and TestValue(not AnsiEndsStr('áéíç', 'áé'))
and TestValue(not AnsiEndsStr('íçáé', 'ioáé'));
end;
begin

4
tests/test/tstrutils2.pp
View File

@ -129,8 +129,8 @@ function TestOK: Boolean;
begin
TestOK :=
// AnsiStartsText
{1} TestValue(not AnsiStartsText(a(Str_Empty), a(Str_Empty)),'not AnsiStartsText', Str_Empty, Str_Empty)
{2} and TestValue(not AnsiStartsText(a(Str_Empty), a(Str_ab)),'not AnsiStartsText', Str_Empty, Str_ab)
{1} TestValue( AnsiStartsText(a(Str_Empty), a(Str_Empty)),'not AnsiStartsText', Str_Empty, Str_Empty)
{2} and TestValue( AnsiStartsText(a(Str_Empty), a(Str_ab)),'not AnsiStartsText', Str_Empty, Str_ab)
{3} and TestValue(not AnsiStartsText(a(Str_ab), a(Str_Empty)),'not AnsiStartsText', Str_ab, Str_Empty)
{4} and TestValue(AnsiStartsText(a(Str_abc), a(Str_abc)),'AnsiStartsText',Str_abc, Str_abc)
{5} and TestValue(not AnsiStartsText(a(Str_abc), a(Str_def)),'not AnsiStartsText', Str_abc, Str_def)