chapter 6: Add unit-tests

tests/PhotoGrooveTest.elm

@@ -0,0 +1,19 @@
+module PhotoGrooveTest exposing (..)
+
+import Expect exposing (Expectation)
+import Fuzz exposing (Fuzzer, int, list, string)
+import Json.Decode as J
+import PhotoGroove as Testee
+import Test exposing (..)
+
+
+suite : Test
+suite =
+    describe "photoDecoder"
+        [ test "title defaults to '(untitled)'" <|
+            \_ ->
+                """{"url": "example.com", "size": 5}"""
+                    |> J.decodeString Testee.photoDecoder
+                    |> Result.map (\p -> p.title)
+                    |> Expect.equal (Ok "(untitled)")
+        ]