@@ -41,6 +41,7 @@ module Testable.Element exposing
4141 , spacing
4242 , text
4343 , textColumn
44+ , toProgram
4445 , transparent
4546 , width
4647 )
@@ -64,11 +65,16 @@ import Testable
6465import Testable.Runner
6566
6667
67−layout : List (Testable.Attr msg) -> Testable.Element Testable.Runner.Msg -> Testable.Runner.TestableProgram
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+
75+layout : List (Testable.Attr msg) -> Testable.Element Testable.Runner.Msg -> Testable.Runner.Testable
6876layout attrs elem =
69− Testable.Runner.program
70− [ ( "Tests Run", elem )
71− ]
77+ Testable.Runner.testable "Test" elem
7278
7379
7480text : String -> Testable.Element msg