Many updatesg

part7/test/Auth.elm

@@ -1,6 +1,7 @@
-module Auth (token) where
+module Auth exposing (token)
 
 
+token : String
 token =
-  -- Tests don't need a real token.
-  ""
+    -- Tests don't need a real token.
+    ""

part7/test/Tests.elm

@@ -1,49 +1,55 @@
-module Tests (..) where
+port module Main exposing (..)
 
-import ElmTest exposing (..)
+import Test exposing (..)
+import Expect exposing (Expectation)
 import ElmHub exposing (responseDecoder)
-import Json.Decode exposing (decodeString)
+import Json.Decode exposing (decodeString, Value)
+import Test.Runner.Node as Runner
 
 
-all : Test
-all =
-  suite
-    "Decoding responses from GitHub"
-    [ test "they can decode empty responses"
-        <| let
-            emptyResponse =
-              """{ "items": [] }"""
-           in
-            assertEqual
-              ({- TODO: what goes here? -})
-              (decodeString responseDecoder emptyResponse)
-    , test "they can decode responses with results in them"
-        <| let
-            response =
-              """{ "items": [
-                      /* TODO: dummy JSON goes here */
-              ] }"""
-           in
-            assertEqual
-              (Ok
-                [ { id = 5, name = "foo", stars = 42 }
-                , { id = 3, name = "bar", stars = 77 }
-                ]
-              )
-              (decodeString responseDecoder response)
-    , test "they result in an error for invalid JSON"
-        <| let
-            response =
-              """{ "pizza": [] }"""
+main : Program Never
+main =
+    describe "Decoding responses from GitHub"
+        [ test "they can decode empty responses"
+            <| \() ->
+                let
+                    emptyResponse =
+                        """{ "items": [] }"""
+                in
+                    Expect.equal (Ok [])
+                        (decodeString responseDecoder emptyResponse)
+        , test "they can decode responses with results in them"
+            <| \() ->
+                let
+                    response =
+                        """{ "items": [
+                                /* TODO: dummy JSON goes here */
+                             ] }"""
+                in
+                    Expect.equal
+                        (Ok
+                            [ { id = 5, name = "foo", stars = 42 }
+                            , { id = 3, name = "bar", stars = 77 }
+                            ]
+                        )
+                        (decodeString responseDecoder response)
+        , test "they result in an error for invalid JSON"
+            <| \() ->
+                let
+                    response =
+                        """{ "pizza": [] }"""
 
-            isErrorResult result =
-              -- TODO return True if the given Result is an Err of some sort,
-              -- and False if it is an Ok of some sort.
-              --
-              -- Result docs: http://package.elm-lang.org/packages/elm-lang/core/3.0.0/Result
-              False
-           in
-            assertEqual
-              True
-              (isErrorResult (decodeString responseDecoder response))
-    ]
+                    isErrorResult result =
+                        -- TODO return True if the given Result is an Err of some sort,
+                        -- and False if it is an Ok of some sort.
+                        --
+                        -- Result docs: http://package.elm-lang.org/packages/elm-lang/core/3.0.0/Result
+                        False
+                in
+                    Expect.true "Expected decoding an invalid response to return an Err."
+                        (isErrorResult (decodeString responseDecoder response))
+        ]
+        |> Runner.run emit
+
+
+port emit : ( String, Value ) -> Cmd msg

part7/test/elm-package.json

@@ -9,7 +9,9 @@
     ],
     "exposed-modules": [],
     "dependencies": {
-        "NoRedInk/elm-decode-pipeline": "1.0.0 <= v < 2.0.0",
+        "project-fuzzball/test": "2.0.1 <= v < 3.0.0",
+        "project-fuzzball/node": "1.0.2 <= v < 2.0.0",
+        "NoRedInk/elm-decode-pipeline": "1.1.2 <= v < 2.0.0",
         "elm-lang/core": "4.0.1 <= v < 5.0.0",
         "elm-lang/html": "1.0.0 <= v < 2.0.0",
         "evancz/elm-http": "3.0.1 <= v < 4.0.0"