git.iko.soy/typeable/elm-ui
on master help sign in
update manual test runner to 0.19
commitdc0d456449152c744c5be8d5503f6e50668cc2dd authorMatthew Griffith <mdg.griffith@gmail.com> dateMon 17 Sep 2018, 12:16 (8 years ago) parent968f216
4 files changed+13−8
tests/Tests/Nearby.elm+1−1 tests/elm.json+7−3 tests/gather-styles.html+1−2 tests/src/Testable/Runner.elm+4−2
tests/Tests/Nearby.elm+1−1
@@ -388,6 +388,6 @@ view =
388388 , nearby inFront "inFront" box
389389 , nearby onRight "onRight" box
390390 , nearby onLeft "onLeft" box
391− , nearby behind "behind" transparentBox
391+ , nearby behindContent "behindContent" transparentBox
392392 , text "all nearbys, all alignments"
393393 ]
tests/elm.json+7−3
@@ -3,7 +3,8 @@
33 "source-directories": [
44 "src",
55 "suite",
6− "../src"
6+ "../src",
7+ "."
78 ],
89 "elm-version": "0.19.0",
910 "dependencies": {
@@ -12,10 +13,13 @@
1213 "elm/core": "1.0.0",
1314 "elm/html": "1.0.0",
1415 "elm/json": "1.0.0",
15− "elm/virtual-dom": "1.0.0"
16+ "elm/parser": "1.1.0",
17+ "elm/random": "1.0.0",
18+ "elm/time": "1.0.0",
19+ "elm/virtual-dom": "1.0.0",
20+ "elm-explorations/test": "1.1.0"
1621 },
1722 "indirect": {
18− "elm/time": "1.0.0",
1923 "elm/url": "1.0.0"
2024 }
2125 },
tests/gather-styles.html+1−2
@@ -13,9 +13,8 @@
1313
1414<script type="text/javascript">
1515
16− //var app = Elm.Main.fullscreen();
1716 var node = document.getElementById('root');
18− var app = Elm.Tests.Run.embed(node);
17+ var app = Elm.Tests.Run.init({ node: node });
1918
2019 var test_results = "waiting.."
2120
tests/src/Testable/Runner.elm+4−2
@@ -49,7 +49,7 @@ program tests =
4949 cur :: remaining ->
5050 ( Just cur, remaining )
5151 in
52− Browser.embed
52+ Browser.element
5353 { init =
5454 always
5555 ( { current = current
@@ -166,7 +166,7 @@ runTest boxes label element =
166166
167167update : Msg -> Model Msg -> ( Model Msg, Cmd Msg )
168168update msg model =
169− case msg of
169+ case Debug.log "update" msg of
170170 NoOp ->
171171 ( model, Cmd.none )
172172
@@ -246,6 +246,7 @@ view model =
246246 finished :: remaining ->
247247 if False then
248248 viewResultsInline finished
249+
249250 else
250251 Element.layout [] <|
251252 Element.column
@@ -254,6 +255,7 @@ view model =
254255 , Element.width (Element.px 800)
255256 ]
256257 (List.map viewResult (finished :: remaining))
258+
257259 else
258260 Html.text "running?"
259261