fe73cbd · typeable/elm-ui

git.iko.soy/typeable/elm-ui

support paragraph wrapping case

commitfe73cbd6886594ca13a50795a258e20370ef4180 authorElm UI Automation <automation@elm-ui.com> dateWed 13 May 2020, 21:13 (6 years ago) parent1095236

6 files changed+343−139

compare with master

unifiedsplit

tests-rendering/src/Testable.elm+34−3 tests-rendering/src/Testable/Element.elm+135−39 tests-rendering/src/Testable/Element/Font.elm+6−1 tests-rendering/src/Testable/Generator.elm+31−9 tests-rendering/src/Testable/Runner.elm+123−76 tests-rendering/src/Tests/Run.elm+14−11

tests-rendering/src/Testable.elm+34−3

@@ -20,6 +20,7 @@ module Testable exposing

2020 , getIds

2121 , getSpacing

2222 , getSpacingFromAttributes

23+ , lessThanOrEqual

2324 , runTests

2425 , textHeight

2526 , toElement

@@ -192,9 +193,21 @@ type alias TextMetrics =

192193 }

193194

194195

196+{-| The font metrics we currently have are `actual`, meaning for the text actually rendered, not the font as a whole.

197+

198+We also know the font size is 20, so we're just going to return 20.

199+

200+TODO: improve font metric collection using something like opentype.js

201+

202+-}

195203textHeight metrics =

196− metrics.actualBoundingBoxAscent

197− + metrics.actualBoundingBoxDescent

204+ let

205+ actualHeight =

206+ metrics.actualBoundingBoxAscent

207+ + metrics.actualBoundingBoxDescent

208+ in

209+ -- actualHeight / 20

210+ 20

198211

199212

200213{-| -}

@@ -238,6 +251,19 @@ type alias LayoutTest =

238251{- Expectations -}

239252

240253

254+floatToString : Float -> String

255+floatToString x =

256+ String.fromFloat (toFloat (round (x * 100)) / 100)

257+

258+

259+lessThanOrEqual : String -> Float -> Float -> LayoutExpectation

260+lessThanOrEqual label one two =

261+ Expect

262+ { description = label ++ " " ++ floatToString one ++ " <= " ++ floatToString two

263+ , result = one <= two

264+ }

265+

266+

241267equal : a -> a -> LayoutExpectation

242268equal one two =

243269 Expect

@@ -324,7 +350,12 @@ toElement el =

324350

325351toHtml : Element msg -> Html msg

326352toHtml el =

327− Element.layout [ idAttr "0" ] <|

353+ Element.layout

354+ [ idAttr "0"

355+ , Element.width (Element.px 1000)

356+ , Element.height (Element.px 1000)

357+ ]

358+ <|

328359 renderElement [ 0, 0 ] el

329360

330361

tests-rendering/src/Testable/Element.elm+135−39

@@ -20,6 +20,7 @@ module Testable.Element exposing

2020 , isVisible

2121 , label

2222 , layout

23+ , link

2324 , maximum

2425 , minimum

2526 , moveDown

@@ -97,12 +98,36 @@ none =

9798

9899paragraph : List (Testable.Attr msg) -> List (Testable.Element msg) -> Testable.Element msg

99100paragraph attrs =

100− Testable.Paragraph (implicitWidthHeightShrink attrs)

101+ let

102+ withImplicits =

103+ implicitTest (widthHelper Nothing Nothing (Fill 1))

104+ :: implicitTest (heightHelper Nothing Nothing Shrink)

105+ :: attrs

106+ in

107+ Testable.Paragraph (skipOverridden withImplicits)

101108

102109

103110textColumn : List (Testable.Attr msg) -> List (Testable.Element msg) -> Testable.Element msg

104111textColumn attrs =

105− Testable.TextColumn (implicitWidthHeightShrink attrs)

112+ let

113+ withImplicits =

114+ implicitTest (widthHelper (Just 500) (Just 750) (Fill 1))

115+ :: implicitTest (heightHelper Nothing Nothing Shrink)

116+ :: attrs

117+ in

118+ Testable.TextColumn (skipOverridden withImplicits)

119+

120+

121+link :

122+ List (Testable.Attr msg)

123+ ->

124+ { url : String

125+ , label : Testable.Element msg

126+ }

127+ -> Testable.Element msg

128+link attrs details =

129+ -- TODO: this is not actually a link element!!

130+ Testable.El (implicitWidthHeightShrink attrs) details.label

106131

107132

108133{-| Old labeling mechanism that i removed to hastily

@@ -344,7 +369,10 @@ widthHelper maybeMin maybeMax len =

344369 )

345370 , test =

346371 \found ->

347− [ Testable.true "exact width is exact" (floor found.self.bbox.width == val)

372+ [ expectRoundedEquality

373+ { expected = toFloat val

374+ , found = found.self.bbox.width

375+ }

348376 , Testable.true "min/max is upheld" (minMaxTest (floor found.self.bbox.width))

349377 ]

350378 }

@@ -400,6 +428,9 @@ widthHelper maybeMin maybeMax len =

400428 Testable.true "element has fill width" <|

401429 (floor spacePerPortion == floor context.self.bbox.width)

402430 || minMaxTest (floor context.self.bbox.width)

431+ , Testable.lessThanOrEqual "not larger than parent"

432+ context.self.bbox.width

433+ context.parent.bbox.width

403434 ]

404435 }

405436

@@ -434,6 +465,9 @@ widthHelper maybeMin maybeMax len =

434465 { expected = totalChildren + horizontalPadding

435466 , found = context.self.bbox.width

436467 }

468+ , Testable.lessThanOrEqual "not larger than parent"

469+ context.self.bbox.width

470+ context.parent.bbox.width

437471 ]

438472

439473 Testable.Row rowAttrs _ ->

@@ -462,6 +496,9 @@ widthHelper maybeMin maybeMax len =

462496 { expected = totalChildren + horizontalPadding + totalSpacing

463497 , found = context.self.bbox.width

464498 }

499+ , Testable.lessThanOrEqual "not larger than parent"

500+ context.self.bbox.width

501+ context.parent.bbox.width

465502 ]

466503

467504 Testable.Column _ _ ->

@@ -490,10 +527,41 @@ widthHelper maybeMin maybeMax len =

490527 { expected = Maybe.withDefault 0 (List.maximum allChildren)

491528 , found = context.self.bbox.width

492529 }

530+ , Testable.lessThanOrEqual "not larger than parent"

531+ context.self.bbox.width

532+ context.parent.bbox.width

493533 ]

494534

495535 Testable.TextColumn _ _ ->

496− []

536+ -- The width of the column is the width of the widest child.

537+ let

538+ childWidth child =

539+ child.bbox.width

540+ + context.self.bbox.padding.left

541+ + context.self.bbox.padding.right

542+

543+ textChildren =

544+ List.map

545+ (\txt ->

546+ txt.width

547+ + context.self.bbox.padding.left

548+ + context.self.bbox.padding.right

549+ )

550+ context.self.textMetrics

551+

552+ allChildren =

553+ context.children

554+ |> List.map childWidth

555+ |> List.append textChildren

556+ in

557+ [ expectRoundedEquality

558+ { expected = Maybe.withDefault 0 (List.maximum allChildren)

559+ , found = context.self.bbox.width

560+ }

561+ , Testable.lessThanOrEqual "not larger than parent"

562+ context.self.bbox.width

563+ context.parent.bbox.width

564+ ]

497565

498566 Testable.Paragraph _ _ ->

499567 -- This should be the size it's text,

@@ -515,6 +583,9 @@ widthHelper maybeMin maybeMax len =

515583 { expected = totalChildren + horizontalPadding

516584 , found = context.self.bbox.width

517585 }

586+ , Testable.lessThanOrEqual "not larger than parent"

587+ context.self.bbox.width

588+ context.parent.bbox.width

518589 ]

519590

520591 Testable.Text _ ->

@@ -593,8 +664,10 @@ heightHelper maybeMin maybeMax len =

593664 , id = Testable.IsHeight

594665 , test =

595666 \found ->

596− [ Testable.true ("exact height is exact: " ++ String.fromInt (floor found.self.bbox.height) ++ "," ++ String.fromInt val)

597− (floor found.self.bbox.height == val)

667+ [ expectRoundedEquality

668+ { expected = toFloat val

669+ , found = found.self.bbox.height

670+ }

598671 , Testable.true "min/max holds true"

599672 (minMaxTest (floor found.self.bbox.height))

600673 ]

@@ -665,46 +738,60 @@ heightHelper maybeMin maybeMax len =

665738 Testable.El _ _ ->

666739 let

667740 childHeight child =

668− -- TODO: add margin values to heights

669741 child.bbox.height

670−

671− totalChildren =

672− context.children

673− |> List.map childHeight

674− |> List.append (List.map Testable.textHeight context.self.textMetrics)

675− |> List.sum

676−

677− verticalPadding =

678− context.self.bbox.padding.top + context.self.bbox.padding.bottom

679−

680− spacingValue =

681− toFloat context.parentSpacing * (toFloat (List.length context.children) - 1)

682742 in

683− [ expectRoundedEquality

684− { expected = totalChildren + verticalPadding + spacingValue

685− , found = context.self.bbox.height

686− }

743+ [ if List.isEmpty context.children then

744+ -- context.self.textMetrics

745+ -- |> List.map Testable.textHeight

746+ -- |> List.sum

747+ -- TODO: apparently the font metrics we have are for the literal characters rendered

748+ -- not for the font itself.

749+ -- so for now, we are stubbing this in as 20, which is the default font size.

750+ Testable.true "expected multiple of 20"

751+ ((round context.self.bbox.height |> modBy 20) == 0)

752+

753+ else

754+ expectRoundedEquality

755+ { expected =

756+ context.children

757+ |> List.map childHeight

758+ |> List.sum

759+ |> (\h -> h + context.self.bbox.padding.top + context.self.bbox.padding.bottom)

760+ , found = context.self.bbox.height

761+ }

762+ , Testable.lessThanOrEqual "not larger than parent"

763+ context.self.bbox.height

764+ context.parent.bbox.height

687765 ]

688766

689767 Testable.Row _ _ ->

690768 let

691769 childHeight child =

692770 child.bbox.height

693−

694− totalChildren =

695− context.children

696− |> List.map childHeight

697− |> List.append (List.map Testable.textHeight context.self.textMetrics)

698− |> List.maximum

699− |> Maybe.withDefault 0

700−

701− verticalPadding =

702− context.self.bbox.padding.top + context.self.bbox.padding.bottom

703771 in

704− [ expectRoundedEquality

705− { expected = totalChildren + verticalPadding

706− , found = context.self.bbox.height

707− }

772+ [ if List.isEmpty context.children then

773+ -- context.self.textMetrics

774+ -- |> List.map Testable.textHeight

775+ -- |> List.sum

776+ -- TODO: apparently the font metrics we have are for the literal characters rendered

777+ -- not for the font itself.

778+ -- so for now, we are stubbing this in as 20, which is the default font size.

779+ Testable.true "expected multiple of 20"

780+ ((round context.self.bbox.height |> modBy 20) == 0)

781+

782+ else

783+ expectRoundedEquality

784+ { expected =

785+ context.children

786+ |> List.map childHeight

787+ |> List.maximum

788+ |> Maybe.withDefault 0

789+ |> (\h -> h + context.self.bbox.padding.top + context.self.bbox.padding.bottom)

790+ , found = context.self.bbox.height

791+ }

792+ , Testable.lessThanOrEqual "not larger than parent"

793+ context.self.bbox.height

794+ context.parent.bbox.height

708795 ]

709796

710797 Testable.Column colAttrs _ ->

@@ -731,13 +818,22 @@ heightHelper maybeMin maybeMax len =

731818 { expected = totalChildren + verticalPadding + totalSpacing

732819 , found = context.self.bbox.height

733820 }

821+ , Testable.lessThanOrEqual "not larger than parent"

822+ context.self.bbox.height

823+ context.parent.bbox.height

734824 ]

735825

736826 Testable.TextColumn _ _ ->

737− []

827+ [ Testable.lessThanOrEqual "not larger than parent"

828+ context.self.bbox.height

829+ context.parent.bbox.height

830+ ]

738831

739832 Testable.Paragraph _ _ ->

740− []

833+ [ Testable.lessThanOrEqual "not larger than parent"

834+ context.self.bbox.height

835+ context.parent.bbox.height

836+ ]

741837

742838 Testable.Text _ ->

743839 []

tests-rendering/src/Testable/Element/Font.elm+6−1

@@ -1,4 +1,4 @@

1−module Testable.Element.Font exposing (color)

1+module Testable.Element.Font exposing (bold, color, size)

33{-| -}

@@ -8,6 +8,11 @@ import Element.Font as Font

88import Testable

1010

11+bold : Testable.Attr msg

12+bold =

13+ Testable.Attr Font.bold

14+

15+

1116color : Color -> Testable.Attr msg

1217color clr =

1318 Testable.LabeledTest

tests-rendering/src/Testable/Generator.elm+31−9

@@ -4,7 +4,8 @@ module Testable.Generator exposing (..)

55import Testable

66import Testable.Element exposing (..)

7−import Testable.Runner

7+import Testable.Element.Background as Background

8+import Testable.Element.Font as Font

910

1011{-| Given a list of attributes, generate every context this list of attributes could be in.

@@ -17,11 +18,8 @@ So, this means,

1718-}

1819element : String -> List (Testable.Attr msg) -> List ( String, Testable.Element msg )

1920element label attrs =

20− -- List.map

21− -- (\c ->

22− -- ( label, el attrs c )

23− -- )

24− -- content

21+ -- [ ( label, paragraph attrs [ short ] )

22+ -- ]

2523 mapEveryCombo

2624 (\makeLayout child ->

2725 ( label, makeLayout attrs child )

@@ -56,9 +54,33 @@ layouts =

5654 ]

5755

5856

57+nearbys =

58+ [ inFront

59+ , above

60+ , onLeft

61+ , onRight

62+ , below

63+ , behindContent

64+ ]

65+

66+

5967contents =

6068 [ none

61− , text "short and small"

62− , text "There are many variations of passages of Lorem Ipsum available, but the majority have suffered alteration in some form, by injected humour, or randomised words which don't look even slightly believable. If you are going to use a passage of Lorem Ipsum, you need to be sure there isn't anything embarrassing hidden in the middle of text. All the Lorem Ipsum generators on the Internet tend to repeat predefined chunks as necessary, making this the first true generator on the Internet. It uses a dictionary of over 200 Latin words, combined with a handful of model sentence structures, to generate Lorem Ipsum which looks reasonable. The generated Lorem Ipsum is therefore always free from repetition, injected humour, or non-characteristic words etc."

63− , el [ width (px 50), height (px 50) ] none

69+ , text short

70+ , text lorem

71+ , el

72+ [ width (px 50)

73+ , height (px 50)

74+ , Background.color (rgb (240 / 255) 0 (245 / 255))

75+ , Font.color (rgb 1 1 1)

76+ ]

77+ none

6478 ]

79+

80+

81+short =

82+ "short and small"

83+

84+

85+lorem =

86+ "There are many variations of passages of Lorem Ipsum available, but the majority have suffered alteration in some form, by injected humour, or randomised words which don't look even slightly believable. If you are going to use a passage of Lorem Ipsum, you need to be sure there isn't anything embarrassing hidden in the middle of text. All the Lorem Ipsum generators on the Internet tend to repeat predefined chunks as necessary, making this the first true generator on the Internet. It uses a dictionary of over 200 Latin words, combined with a handful of model sentence structures, to generate Lorem Ipsum which looks reasonable. The generated Lorem Ipsum is therefore always free from repetition, injected humour, or non-characteristic words etc."

tests-rendering/src/Testable/Runner.elm+123−76

@@ -52,10 +52,11 @@ program tests =

5252 ( { current = current

5353 , upcoming = upcoming

5454 , finished = []

55+ , selected = 0

5556 , highlightDomId = Nothing

5657 }

5758 , Task.perform (always Analyze)

58− (Process.sleep 32

59+ (Process.sleep 64

5960 |> Task.andThen

6061 (always Time.now)

6162 )

@@ -77,6 +78,7 @@ type alias Model msg =

7778 { current : Maybe ( String, Testable.Element msg )

7879 , upcoming : List ( String, Testable.Element msg )

7980 , finished : List (WithResults (Testable.Element msg))

81+ , selected : Int

8082 , highlightDomId : Maybe String

8183 }

8284

@@ -131,6 +133,7 @@ encodeForReport withResults =

131133type Msg

132134 = NoOp

133135 | Analyze

136+ | Select Int

134137 | HighlightDomID (Maybe String)

135138 | RefreshBoundingBox

136139 (List

@@ -166,6 +169,11 @@ update msg model =

166169 , Cmd.none

167170 )

168171

172+ Select index ->

173+ ( { model | selected = index }

174+ , Cmd.none

175+ )

176+

169177 RefreshBoundingBox boxes ->

170178 case model.current of

171179 Nothing ->

@@ -208,7 +216,7 @@ update msg model =

208216 , upcoming = remaining

209217 }

210218 , Task.perform (always Analyze)

211− (Process.sleep 32

219+ (Process.sleep 64

212220 |> Task.andThen

213221 (always Time.now)

214222 )

@@ -232,58 +240,60 @@ view model =

232240 case model.current of

233241 Nothing ->

234242 if List.isEmpty model.upcoming then

235− case model.finished of

236− [] ->

237− Element.layout [] <|

238− Element.column

239− [ Element.spacing 20

240− , Element.padding 20

241− , Element.width (Element.px 800)

242− ]

243− [ Element.none ]

244−

245− finished :: remaining ->

246− Element.layout

247− [ Font.size 16

248− , Element.inFront (Element.html (viewElementHighlight model))

243+ let

244+ selected =

245+ getByIndex model.selected model.finished

246+

247+ -- |> Debug.log "selected"

248+ in

249+ Element.layout

250+ [ Font.size 16

251+ , Element.inFront (Element.html (viewElementHighlight model))

252+ , Element.height Element.fill

253+ ]

254+ <|

255+ Element.row [ Element.width Element.fill, Element.height Element.fill ]

256+ [ Element.el

257+ [ Element.width

258+ (Element.fill

259+ |> Element.maximum 900

260+ )

261+ , Element.alignTop

249262 , Element.height Element.fill

263+ , Element.scrollbars

250264 ]

251− <|

252− Element.row [ Element.width Element.fill, Element.height Element.fill ]

253− [ Element.el

254− [ Element.width

255− (Element.fill

256− |> Element.maximum 900)

257− , Element.alignTop

258− , Element.height Element.fill

259− , Element.scrollbars

260− ]

265+ (Element.el

266+ [ Element.centerX

267+ , Element.padding 100

268+ , Border.dashed

269+ , Border.width 2

270+ , Border.color palette.lightGrey

271+ , Font.size 20

272+ , Element.inFront

261273 (Element.el

262− [ Element.centerX

263− , Element.padding 100

264− , Border.dashed

265− , Border.width 2

266− , Border.color palette.lightGrey

267− , Font.size 20

268− , Element.inFront

269− (Element.el

270− [ Font.size 14

271− , Font.color palette.lightGrey

272− ]

273− (Element.text "test case")

274− )

274+ [ Font.size 14

275+ , Font.color palette.lightGrey

275276 ]

276− (Testable.toElement finished.element)

277+ (Element.text "test case")

277278 )

278− , Element.column

279− [ Element.spacing 20

280− , Element.padding 20

281− , Element.width Element.fill

282− , Element.height Element.fill

283− , Element.scrollbarY

284− ]

285− (List.map viewResult (finished :: remaining))

286279 ]

280+ (case selected of

281+ Nothing ->

282+ Element.text "nothing selected"

283+

284+ Just sel ->

285+ Testable.toElement sel.element

286+ )

287+ )

288+ , Element.column

289+ [ Element.spacing 20

290+ , Element.padding 20

291+ , Element.width Element.fill

292+ , Element.height Element.fill

293+ , Element.scrollbarY

294+ ]

295+ (List.indexedMap (viewResult model.selected) model.finished)

296+ ]

287297

288298 else

289299 Html.text ""

@@ -292,6 +302,20 @@ view model =

292302 Testable.toHtml current

293303

294304

305+getByIndex i ls =

306+ List.foldl

307+ (\elem ( index, found ) ->

308+ if i == index then

309+ ( index + 1, Just elem )

310+

311+ else

312+ ( index + 1, found )

313+ )

314+ ( 0, Nothing )

315+ ls

316+ |> Tuple.second

317+

318+

295319viewElementHighlight model =

296320 case model.highlightDomId of

297321 Nothing ->

@@ -322,35 +346,58 @@ viewElementHighlight model =

322346 ]

323347

324348

325−viewResult : WithResults (Testable.Element Msg) -> Element.Element Msg

326−viewResult testable =

327− let

328− isExpectationPassing result =

329− case result of

330− Testable.Todo label ->

331− True

332−

333− Testable.Expect details ->

334− details.result

335−

336− isPassing layoutTest =

337− List.any isExpectationPassing layoutTest.expectations

349+viewResult : Int -> Int -> WithResults (Testable.Element Msg) -> Element.Element Msg

350+viewResult selectedIndex index testable =

351+ if index == selectedIndex then

352+ Element.column

353+ [ Element.alignLeft

354+ , Element.spacing 16

355+ ]

356+ [ Element.el [ Font.size 24 ] (Element.text testable.label)

357+ , Element.column

358+ [ Element.alignLeft, Element.spacing 16 ]

359+ (testable.results

360+ |> groupBy .elementDomId

361+ |> List.map (expandDetails >> viewLayoutTestGroup)

362+ )

363+ ]

338364

339− ( passing, failing ) =

340− List.partition isPassing testable.results

341− in

342− Element.column

343− [ Element.alignLeft

344− , Element.spacing 16

345− ]

346− [ Element.el [ Font.size 24 ] (Element.text testable.label)

347− , Element.column

348− [ Element.alignLeft, Element.spacing 16 ]

349− (testable.results

350− |> groupBy .elementDomId

351− |> List.map (expandDetails >> viewLayoutTestGroup)

352− )

353− ]

365+ else

366+ let

367+ isExpectationPassing result =

368+ case result of

369+ Testable.Todo label ->

370+ True

371+

372+ Testable.Expect details ->

373+ details.result

374+

375+ isPassing layoutTest =

376+ List.all isExpectationPassing layoutTest.expectations

377+

378+ ( passing, failing ) =

379+ List.partition isPassing testable.results

380+ in

381+ Element.column

382+ [ Element.alignLeft

383+ , Element.spacing 16

384+ , Element.pointer

385+ , Events.onClick (Select index)

386+ ]

387+ [ Element.row [ Element.spacing 16 ]

388+ [ Element.el [ Font.size 24 ] (Element.text testable.label)

389+ , Element.text (String.fromInt (List.length passing) ++ " passing")

390+ , let

391+ failingCount =

392+ List.length failing

393+ in

394+ if failingCount == 0 then

395+ Element.none

396+

397+ else

398+ Element.text (String.fromInt (List.length failing) ++ " failing")

399+ ]

400+ ]

354401

355402

356403expandDetails group =

tests-rendering/src/Tests/Run.elm+14−11

@@ -2,6 +2,7 @@ module Tests.Run exposing (main)

33{-| -}

5+import Testable.Generator

56import Testable.Runner

67import Tests.Basic

78import Tests.ColumnAlignment

@@ -10,20 +11,22 @@ import Tests.ElementAlignment

1011import Tests.Nearby

1112import Tests.RowAlignment

1213import Tests.RowSpacing

14+import Tests.TextWrapping

1315import Tests.Transparency

1416

1517

1618main : Testable.Runner.TestableProgram

1719main =

18− Testable.Runner.program

19− [ Tuple.pair "Basic Element" Tests.Basic.view

20− , Tuple.pair "Nearby" Tests.Nearby.view

21− , Tuple.pair "Element Alignment" Tests.ElementAlignment.view

22− , Tuple.pair "Transparency" Tests.Transparency.view

23− , Tuple.pair "Column Alignment" Tests.ColumnAlignment.view

24−

25− -- This has 12k cases, so it runs slow and sometimes crashes IE

26− , Tuple.pair "Row Alignment" Tests.RowAlignment.view

27− , Tuple.pair "Column Spacing" Tests.ColumnSpacing.view

28− , Tuple.pair "Row Spacing" Tests.RowSpacing.view

20+ (Testable.Runner.program << List.concat)

21+ [ -- Testable.Generator.element "Basics" []

22+ -- Tuple.pair "Basic Element" Tests.Basic.view

23+ -- , Tuple.pair "Nearby" Tests.Nearby.view

24+ -- , Tuple.pair "Element Alignment" Tests.ElementAlignment.view

25+ -- , Tuple.pair "Transparency" Tests.Transparency.view

26+ -- , Tuple.pair "Column Alignment" Tests.ColumnAlignment.view

27+ -- -- This has 12k cases, so it runs slow and sometimes crashes IE

28+ -- , Tuple.pair "Row Alignment" Tests.RowAlignment.view

29+ -- , Tuple.pair "Column Spacing" Tests.ColumnSpacing.view

30+ -- , Tuple.pair "Row Spacing" Tests.RowSpacing.view

31+ [ Tuple.pair "Paragraph wrapping" Tests.TextWrapping.view ]

2932 ]