tests: started css body test

tests/base/TCFresnelCSS.pas

@@ -17,7 +17,8 @@ interface
 
 uses
   Classes, SysUtils, Math, fpcunit, testregistry, FpImage, Fresnel.DOM,
-  Fresnel.Renderer, Fresnel.Layouter, Fresnel.Classes, AvgLvlTree, LazUTF8;
+  Fresnel.Renderer, Fresnel.Layouter, Fresnel.Classes, Fresnel.Controls,
+  AvgLvlTree, LazUTF8;
 
 type
 
@@ -97,6 +98,7 @@ type
   TTestFresnelCSS = class(TCustomTestFresnelCSS)
   published
     procedure TestEmptyViewport;
+    procedure TestBody;
   end;
 
 implementation
@@ -464,6 +466,18 @@ begin
   Viewport.Draw;
 end;
 
+procedure TTestFresnelCSS.TestBody;
+var
+  Body: TBody;
+begin
+  Body:=TBody.Create(Viewport);
+  Body.Name:='Body';
+  Body.Parent:=Viewport;
+  Viewport.Draw;
+  Body.WriteComputedAttributes('Body');
+
+end;
+
 Initialization
   RegisterTests([TTestFresnelCSS]);
 end.