git.iko.soy/typeable/elm-ui
on master help sign in
Element.toProgram
3444788Elm UI Automation
tests-rendering/src/Testable/Element.elm+10−4
compare with master
unifiedsplit
@@ -41,6 +41,7 @@ module Testable.Element exposing
41 , spacing
41 , spacing
42 , text
42 , text
43 , textColumn
43 , textColumn
44+ , toProgram
44 , transparent
45 , transparent
45 , width
46 , width
46 )
47 )
@@ -64,11 +65,16 @@ import Testable
64import Testable.Runner
65import Testable.Runner
65
66
66
67
68+{-| This is used when we want to run all tests in a test suite instead of one at a time.
69+-}
70+toProgram : Testable.Runner.Testable -> Testable.Runner.TestableProgram
71+toProgram testable =
72+ Testable.Runner.program [ testable ]
73+
74+
67−layout : List (Testable.Attr msg) -> Testable.Element Testable.Runner.Msg -> Testable.Runner.TestableProgram
75+layout : List (Testable.Attr msg) -> Testable.Element Testable.Runner.Msg -> Testable.Runner.Testable
68layout attrs elem =
76layout attrs elem =
69− Testable.Runner.program
77+ Testable.Runner.testable "Test" elem
70− [ ( "Tests Run", elem )
71− ]
72
78
73
79
74text : String -> Testable.Element msg
80text : String -> Testable.Element msg