paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 01:41:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-css: test

Browse Source
This commit is contained in:
mattias 2022-09-14 21:44:18 +02:00
parent 1137322634
commit 9156d10257
1 changed files with 2 additions and 1 deletions

3
packages/fcl-css/tests/tccssresolver.pp
View File

@ -992,7 +992,7 @@ begin
Div1:=TDemoDiv.Create(Doc);
Div1.Parent:=Doc.Root;
Div1.Style:='left: 10px;';
Div1.Style:='left: 10px; top: 5px';
Doc.Style:=LinesToStr([
'div { left: 6px; }',
@ -1000,6 +1000,7 @@ begin
Doc.ApplyStyle;
AssertEquals('Root.Left','',Doc.Root.Left);
AssertEquals('Div1.Left','10px',Div1.Left);
AssertEquals('Div1.Top','5px',Div1.Top);
end;
{ TDemoDiv }