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

fcl-css: test display:none without spaces

Browse Source
This commit is contained in:
mattias 2024-10-01 10:48:35 +02:00
parent e9fa0510d0
commit 3a98dfde1b
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -169,6 +169,7 @@ type
kwBlue,
kwWhite,
kwBlack,
kwNone,
kwBlock,
kwInline_Block,
kwLTR,
@ -412,6 +413,7 @@ type
// inline style
procedure Test_InlineStyle;
procedure Test_InlineStyle_DisplayNone;
// specifity
procedure Test_Specifity_Id_Class;
@ -850,6 +852,7 @@ begin
kwBlack:=AddKeyword('black');
kwLastColor:=kwBlack;
kwNone:=CSSKeywordNone;
kwBlock:=AddKeyword('block');
kwInline_Block:=AddKeyword('inline-block');
@ -878,7 +881,7 @@ begin
// display
DemoAttrs[naDisplay].OnCheck:=@OnCheck_Display;
Chk_DisplayAllowedKeywordIDs:=[kwBlock,kwInline_Block];
Chk_DisplayAllowedKeywordIDs:=[kwNone,kwBlock,kwInline_Block];
// left, top
DemoAttrs[naLeft].OnCheck:=@OnCheck_LeftTop;
@ -2481,6 +2484,20 @@ begin
AssertEquals('Div1.Top','5px',Div1.Top);
end;
procedure TTestNewCSSResolver.Test_InlineStyle_DisplayNone;
var
Div1: TDemoDiv;
begin
Doc.Root:=TDemoNode.Create(nil);
Div1:=TDemoDiv.Create(nil);
Div1.Parent:=Doc.Root;
Div1.InlineStyle:='display:none';
ApplyStyle;
AssertEquals('Div1.Display','none',Div1.Display);
end;
procedure TTestNewCSSResolver.Test_Specifity_Id_Class;
var
Div1: TDemoDiv;