~alcinnz/CatTrap: Add missing field into testsuite.

1 files changed, 4 insertions(+), 0 deletions(-)

M test/Test.hs

M test/Test.hs => test/Test.hs +4 -0

@@ 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),