@@ -1,4 +1,12 @@
1−port module Testable.Runner exposing (Msg, TestableProgram, program, show)
1+port module Testable.Runner exposing
2+ ( Msg
3+ , Testable
4+ , TestableProgram
5+ , program
6+ , show
7+ , testable
8+ , rename
9+ )
210
311{-| -}
412
@@ -26,6 +34,22 @@ type alias TestableProgram =
2634 Program () (Model Msg) Msg
2735
2836
37+{-| This should be a real type, but I'm too busy atm.
38+-}
39+type alias Testable =
40+ ( String, Testable.Element Msg )
41+
42+
43+rename : String -> Testable -> Testable
44+rename newName ( _, el ) =
45+ ( newName, el )
46+
47+
48+testable : String -> Testable.Element Msg -> Testable
49+testable =
50+ Tuple.pair
51+
52+
2953palette =
3054 { white = Element.rgb 1 1 1
3155 , red = Element.rgb 1 0 0
@@ -35,7 +59,7 @@ palette =
3559 }
3660
3761
38−program : List ( String, Testable.Element Msg ) -> TestableProgram
62+program : List Testable -> TestableProgram
3963program tests =
4064 let
4165 ( current, upcoming ) =
@@ -347,16 +371,16 @@ viewElementHighlight model =
347371
348372
349373viewResult : Int -> Int -> WithResults (Testable.Element Msg) -> Element.Element Msg
350−viewResult selectedIndex index testable =
374+viewResult selectedIndex index myTest =
351375 if index == selectedIndex then
352376 Element.column
353377 [ Element.alignLeft
354378 , Element.spacing 16
355379 ]
356− [ Element.el [ Font.size 24 ] (Element.text testable.label)
380+ [ Element.el [ Font.size 24 ] (Element.text myTest.label)
357381 , Element.column
358382 [ Element.alignLeft, Element.spacing 16 ]
359− (testable.results
383+ (myTest.results
360384 |> groupBy .elementDomId
361385 |> List.map (expandDetails >> viewLayoutTestGroup)
362386 )
@@ -376,7 +400,7 @@ viewResult selectedIndex index testable =
376400 List.all isExpectationPassing layoutTest.expectations
377401
378402 ( passing, failing ) =
379− List.partition isPassing testable.results
403+ List.partition isPassing myTest.results
380404 in
381405 Element.column
382406 [ Element.alignLeft
@@ -385,7 +409,7 @@ viewResult selectedIndex index testable =
385409 , Events.onClick (Select index)
386410 ]
387411 [ Element.row [ Element.spacing 16 ]
388− [ Element.el [ Font.size 24 ] (Element.text testable.label)
412+ [ Element.el [ Font.size 24 ] (Element.text myTest.label)
389413 , Element.text (String.fromInt (List.length passing) ++ " passing")
390414 , let
391415 failingCount =