update manual test runner to 0.19

tests/Tests/Nearby.elm

@@ -388,6 +388,6 @@ view =
         , nearby inFront "inFront" box
         , nearby onRight "onRight" box
         , nearby onLeft "onLeft" box
-        , nearby behind "behind" transparentBox
+        , nearby behindContent "behindContent" transparentBox
         , text "all nearbys, all alignments"
         ]

tests/elm.json

@@ -3,7 +3,8 @@
     "source-directories": [
         "src",
         "suite",
-        "../src"
+        "../src",
+        "."
     ],
     "elm-version": "0.19.0",
     "dependencies": {
@@ -12,10 +13,13 @@
             "elm/core": "1.0.0",
             "elm/html": "1.0.0",
             "elm/json": "1.0.0",
-            "elm/virtual-dom": "1.0.0"
+            "elm/parser": "1.1.0",
+            "elm/random": "1.0.0",
+            "elm/time": "1.0.0",
+            "elm/virtual-dom": "1.0.0",
+            "elm-explorations/test": "1.1.0"
         },
         "indirect": {
-            "elm/time": "1.0.0",
             "elm/url": "1.0.0"
         }
     },

tests/gather-styles.html

@@ -13,9 +13,8 @@
 
 <script type="text/javascript">
 
-    //var app = Elm.Main.fullscreen();
     var node = document.getElementById('root');
-    var app = Elm.Tests.Run.embed(node);
+    var app = Elm.Tests.Run.init({ node: node });
 
     var test_results = "waiting.."
 

tests/src/Testable/Runner.elm

@@ -49,7 +49,7 @@ program tests =
                 cur :: remaining ->
                     ( Just cur, remaining )
     in
-    Browser.embed
+    Browser.element
         { init =
             always
                 ( { current = current
@@ -166,7 +166,7 @@ runTest boxes label element =
 
 update : Msg -> Model Msg -> ( Model Msg, Cmd Msg )
 update msg model =
-    case msg of
+    case Debug.log "update" msg of
         NoOp ->
             ( model, Cmd.none )
 
@@ -246,6 +246,7 @@ view model =
                     finished :: remaining ->
                         if False then
                             viewResultsInline finished
+
                         else
                             Element.layout [] <|
                                 Element.column
@@ -254,6 +255,7 @@ view model =
                                     , Element.width (Element.px 800)
                                     ]
                                     (List.map viewResult (finished :: remaining))
+
             else
                 Html.text "running?"