mdgriffith/elm-ui
1
1
Fork 0
mirror of https://github.com/mdgriffith/elm-ui.git synced 2024-11-29 07:18:39 +03:00
Code Issues Projects Releases Wiki Activity

Element.toProgram

Browse Source
This commit is contained in:
Elm UI Automation 2020-05-15 09:20:39 -04:00
parent ee7398958f
commit 34447883a8
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests-rendering/src/Testable/Element.elm
View File

@ -41,6 +41,7 @@ module Testable.Element exposing
, spacing
, text
, textColumn
, toProgram
, transparent
, width
)
@ -64,11 +65,16 @@ import Testable
import Testable.Runner
layout : List (Testable.Attr msg) -> Testable.Element Testable.Runner.Msg -> Testable.Runner.TestableProgram
{-| This is used when we want to run all tests in a test suite instead of one at a time.
-}
toProgram : Testable.Runner.Testable -> Testable.Runner.TestableProgram
toProgram testable =
Testable.Runner.program [ testable ]
layout : List (Testable.Attr msg) -> Testable.Element Testable.Runner.Msg -> Testable.Runner.Testable
layout attrs elem =
Testable.Runner.program
[ ( "Tests Run", elem )
]
Testable.Runner.testable "Test" elem
text : String -> Testable.Element msg