From 62b95550c3cdc502352f83565cc53ffd1381f1fc Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Wed, 12 Apr 2023 16:02:14 +1200 Subject: [PATCH] Add missing field into testsuite. --- test/Test.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test/Test.hs b/test/Test.hs index 1315f75..bcdaddb 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -77,6 +77,7 @@ spec = do a = PaddedBox { B.min = Size 0 Auto, size = Size 0 Auto, + B.nat = Size 0 0, B.max = Size 0 Auto, padding = Border (Pixels 0) (Pixels 0) 0 0, border = Border (Pixels 0) (Pixels 0) 0 0, @@ -86,6 +87,7 @@ spec = do b = PaddedBox { B.min = Size 0 Auto, size = Size 0 Auto, + B.nat = Size 0 0, B.max = Size 0 Auto, padding = Border (Pixels 0) (Pixels 0) 0 0, border = Border (Pixels 0) (Pixels 0) 0 0, @@ -211,6 +213,7 @@ spec = do a = LayoutFlow () PaddedBox { B.min = Size Auto Auto, size = Size Auto Auto, + B.nat = Size 0 0, B.max = Size Auto Auto, padding = Border (Pixels 0) (Pixels 0) (Pixels 0) (Pixels 0), border = Border (Pixels 0) (Pixels 0) (Pixels 0) (Pixels 0), @@ -220,6 +223,7 @@ spec = do b = LayoutFlow () PaddedBox { B.min = Size Auto Auto, size = Size Auto Auto, + B.nat = Size 0 0, B.max = Size Auto Auto, padding = Border (Pixels 0) (Pixels 0) (Pixels 0) (Pixels 0), border = Border (Pixels 0) (Pixels 0) (Pixels 0) (Pixels 0), -- 2.30.2