Update night watch tests

stephenreddek · Aug 20, 2018 · 58a9d61 · 58a9d61
1 parent c268553
commit 58a9d61
Show file tree

Hide file tree

Showing 7 changed files with 243 additions and 132 deletions.
diff --git a/examples/src/Example.elm b/examples/src/Example.elm
@@ -30,7 +30,7 @@ steppingSettings =
         defaultSettings =
             TimePicker.defaultSettings
     in
-        { defaultSettings | showSeconds = False, minuteStep = 15, use24Hours = True }
+    { defaultSettings | showSeconds = False, minuteStep = 15, use24Hours = True }
 
 
 partiallyDisabledSettings : TimePicker.Settings
@@ -39,12 +39,12 @@ partiallyDisabledSettings =
         defaultSettings =
             TimePicker.defaultSettings
     in
-        { defaultSettings
-            | isHourDisabled = \value -> modBy 2 value == 0
-            , isMinuteDisabled = \value -> modBy 2 value == 0
-            , isSecondDisabled = \value -> modBy 2 value == 0
-            , isPeriodDisabled = (==) TimePicker.PM
-        }
+    { defaultSettings
+        | isHourDisabled = \value -> modBy 2 value == 0
+        , isMinuteDisabled = \value -> modBy 2 value == 0
+        , isSecondDisabled = \value -> modBy 2 value == 0
+        , isPeriodDisabled = (==) TimePicker.PM
+    }
 
 
 update : Msg -> Model -> Model
@@ -55,21 +55,21 @@ update msg model =
                 ( updatedPicker, timeEvent ) =
                     TimePicker.update TimePicker.defaultSettings m model.defaultTimePicker
             in
-                { model | defaultTimePicker = updatedPicker }
+            { model | defaultTimePicker = updatedPicker }
 
         SteppingTimePickerMsg m ->
             let
                 ( updatedPicker, timeEvent ) =
                     TimePicker.update steppingSettings m model.steppingTimePicker
             in
-                { model | steppingTimePicker = updatedPicker }
+            { model | steppingTimePicker = updatedPicker }
 
         PartiallyDisabledTimePickerMsg m ->
             let
                 ( updatedPicker, timeEvent ) =
                     TimePicker.update partiallyDisabledSettings m model.partiallyDisabledTimePicker
             in
-                { model | partiallyDisabledTimePicker = updatedPicker }
+            { model | partiallyDisabledTimePicker = updatedPicker }
 
 
 view : Model -> Html Msg

diff --git a/nightwatch-tests/SimpleNightWatch.elm b/nightwatch-tests/SimpleNightWatch.elm
@@ -1,8 +1,9 @@
 module SimpleNightwatch exposing (main)
 
+import Browser
 import Html exposing (..)
 import Html.Attributes exposing (..)
-import TimePicker exposing (TimePicker, TimeEvent(..))
+import TimePicker exposing (TimeEvent(..), TimePicker)
 
 
 type Msg
@@ -14,20 +15,20 @@ type alias Model =
     }
 
 
-init : ( Model, Cmd Msg )
+init : Model
 init =
-    ( Model (TimePicker.init Nothing), Cmd.none )
+    Model (TimePicker.init Nothing)
 
 
-update : Msg -> Model -> ( Model, Cmd Msg )
+update : Msg -> Model -> Model
 update msg model =
     case msg of
-        TimePickerMsg msg ->
+        TimePickerMsg m ->
             let
                 ( updatedPicker, timeEvent ) =
-                    TimePicker.update TimePicker.defaultSettings msg model.timePicker
+                    TimePicker.update TimePicker.defaultSettings m model.timePicker
             in
-                ( { model | timePicker = updatedPicker }, Cmd.none )
+            { model | timePicker = updatedPicker }
 
 
 view : Model -> Html Msg
@@ -38,19 +39,19 @@ view { timePicker } =
                 [ text "Time Picker with defaults" ]
             , h4 [ id "selected-hours" ]
                 [ TimePicker.selectedTime timePicker
-                    |> Maybe.map (toString << .hours)
+                    |> Maybe.map (.hours >> String.fromInt)
                     |> Maybe.withDefault ""
                     |> text
                 ]
             , h4 [ id "selected-minutes" ]
                 [ TimePicker.selectedTime timePicker
-                    |> Maybe.map (toString << .minutes)
+                    |> Maybe.map (.minutes >> String.fromInt)
                     |> Maybe.withDefault ""
                     |> text
                 ]
             , h4 [ id "selected-seconds" ]
                 [ TimePicker.selectedTime timePicker
-                    |> Maybe.map (toString << .seconds)
+                    |> Maybe.map (.seconds >> String.fromInt)
                     |> Maybe.withDefault ""
                     |> text
                 ]
@@ -60,11 +61,10 @@ view { timePicker } =
         ]
 
 
-main : Program Never Model Msg
+main : Program () Model Msg
 main =
-    Html.program
+    Browser.sandbox
         { init = init
         , update = update
         , view = view
-        , subscriptions = always Sub.none
         }
diff --git a/nightwatch-tests/elm.json b/nightwatch-tests/elm.json
@@ -0,0 +1,26 @@
+{
+    "type": "application",
+    "source-directories": [
+        ".",
+        "../src"
+    ],
+    "elm-version": "0.19.0",
+    "dependencies": {
+        "direct": {
+            "elm/browser": "1.0.0",
+            "elm/core": "1.0.0",
+            "elm/html": "1.0.0",
+            "elm/json": "1.0.0",
+            "elm/regex": "1.0.0"
+        },
+        "indirect": {
+            "elm/time": "1.0.0",
+            "elm/url": "1.0.0",
+            "elm/virtual-dom": "1.0.0"
+        }
+    },
+    "test-dependencies": {
+        "direct": {},
+        "indirect": {}
+    }
+}
diff --git a/nightwatch-tests/index.html b/nightwatch-tests/index.html
@@ -27,7 +27,7 @@
 
     <script src="simple-nightwatch.js"></script>
     <script>
-      Elm.SimpleNightwatch.embed(document.getElementById("simple-nightwatch"));
+      Elm.SimpleNightwatch.init({ node: document.getElementById("simple-nightwatch") });
     </script>
   </body>
 </html>