combine interop tests

bytes-zone · Apr 5, 2021 · d19f759 · d19f759
1 parent 4ea9a07
commit d19f759
Showing 1 changed file with 20 additions and 22 deletions.
diff --git a/tests/PlayerTest.elm b/tests/PlayerTest.elm
@@ -9,28 +9,26 @@ import Player exposing (Player)
 import Test exposing (..)
 
 
-roundTripDecoderTest : Test
-roundTripDecoderTest =
-    fuzz playerFuzzer "encode and decode are symmetrical" <|
-        \player ->
-            Player.encode player
-                |> Decode.decodeValue Player.decoder
-                |> Expect.equal (Ok player)
-
-
-decoderTest : Test
-decoderTest =
-    describe "decoder"
-        [ describe "id"
-            [ test "is OK with a missing ID" <|
-                \_ ->
-                    Encode.object
-                        [ ( "name", Encode.string "Test" )
-                        , ( "rating", Encode.int 1200 )
-                        , ( "matches", Encode.int 0 )
-                        ]
-                        |> Decode.decodeValue Player.decoder
-                        |> Expect.ok
+interopTest : Test
+interopTest =
+    describe "interop"
+        [ fuzz playerFuzzer "encode and decode are symmetrical" <|
+            \player ->
+                Player.encode player
+                    |> Decode.decodeValue Player.decoder
+                    |> Expect.equal (Ok player)
+        , describe "decoder"
+            [ describe "id"
+                [ test "is OK with a missing ID" <|
+                    \_ ->
+                        Encode.object
+                            [ ( "name", Encode.string "Test" )
+                            , ( "rating", Encode.int 1200 )
+                            , ( "matches", Encode.int 0 )
+                            ]
+                            |> Decode.decodeValue Player.decoder
+                            |> Expect.ok
+                ]
             ]
         ]