paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 16:40:28 +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, kwBlue,
kwWhite, kwWhite,
kwBlack, kwBlack,
kwNone,
kwBlock, kwBlock,
kwInline_Block, kwInline_Block,
kwLTR, kwLTR,
@ -412,6 +413,7 @@ type
// inline style // inline style
procedure Test_InlineStyle; procedure Test_InlineStyle;
procedure Test_InlineStyle_DisplayNone;
// specifity // specifity
procedure Test_Specifity_Id_Class; procedure Test_Specifity_Id_Class;
@ -850,6 +852,7 @@ begin
kwBlack:=AddKeyword('black'); kwBlack:=AddKeyword('black');
kwLastColor:=kwBlack; kwLastColor:=kwBlack;
kwNone:=CSSKeywordNone;
kwBlock:=AddKeyword('block'); kwBlock:=AddKeyword('block');
kwInline_Block:=AddKeyword('inline-block'); kwInline_Block:=AddKeyword('inline-block');
@ -878,7 +881,7 @@ begin
// display // display
DemoAttrs[naDisplay].OnCheck:=@OnCheck_Display; DemoAttrs[naDisplay].OnCheck:=@OnCheck_Display;
Chk_DisplayAllowedKeywordIDs:=[kwBlock,kwInline_Block]; Chk_DisplayAllowedKeywordIDs:=[kwNone,kwBlock,kwInline_Block];
// left, top // left, top
DemoAttrs[naLeft].OnCheck:=@OnCheck_LeftTop; DemoAttrs[naLeft].OnCheck:=@OnCheck_LeftTop;
@ -2481,6 +2484,20 @@ begin
AssertEquals('Div1.Top','5px',Div1.Top); AssertEquals('Div1.Top','5px',Div1.Top);
end; 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; procedure TTestNewCSSResolver.Test_Specifity_Id_Class;
var var
Div1: TDemoDiv; Div1: TDemoDiv;