general text wrapping test

2024-11-29 07:18:39 +03:00 · 2020-05-13 23:13:05 -04:00 · 2020-05-13 23:13:05 -04:00 · 2c582df903
commit 2c582df903
parent 9f9f9bbd20
1 changed files with 44 additions and 0 deletions
--- a/tests-rendering/src/Tests/TextWrapping.elm
+++ b/tests-rendering/src/Tests/TextWrapping.elm
@ -0,0 +1,44 @@
+module Tests.TextWrapping exposing (main, view)
+
+import Html
+import Testable
+import Testable.Element exposing (..)
+import Testable.Element.Background as Background
+import Testable.Element.Font as Font
+import Testable.Generator
+import Testable.Runner
+import Tests.Palette as Palette exposing (..)
+
+
+box attrs =
+    el
+        ([ width (px 50)
+         , height (px 50)
+         , Background.color blue
+         ]
+            ++ attrs
+        )
+        none
+
+
+{-| -}
+main : Html.Html msg
+main =
+    Testable.Runner.show view
+
+
+view =
+    column [ paddingXY 0 100, spacing 16 ]
+        [ paragraph []
+            [ text Testable.Generator.lorem
+            ]
+        , paragraph []
+            [ text Testable.Generator.lorem
+            , text Testable.Generator.lorem
+            ]
+        , paragraph []
+            [ text Testable.Generator.lorem
+            , paragraph []
+                [ text Testable.Generator.lorem ]
+            ]
+        ]