refactor: clean test code.

MTES-MCT · Sep 26, 2024 · 4a084ce · 4a084ce
1 parent 694de1a
commit 4a084ce
Showing 1 changed file with 7 additions and 9 deletions.
diff --git a/tests/Server/ServerTest.elm b/tests/Server/ServerTest.elm
@@ -68,19 +68,17 @@ suite =
 
 request : StaticDb.Db -> String -> Encode.Value -> String -> Request
 request dbs method body url =
+    let
+        encode encoder =
+            Encode.list encoder >> Encode.encode 0
+    in
     { method = method
     , url = url
     , body = body
     , processes =
-        { foodProcesses =
-            Encode.list FoodProcess.encode dbs.food.processes
-                |> Encode.encode 0
-        , objectProcesses =
-            Encode.list ObjectProcess.encode dbs.object.processes
-                |> Encode.encode 0
-        , textileProcesses =
-            Encode.list TextileProcess.encode dbs.textile.processes
-                |> Encode.encode 0
+        { foodProcesses = dbs.food.processes |> encode FoodProcess.encode
+        , objectProcesses = dbs.object.processes |> encode ObjectProcess.encode
+        , textileProcesses = dbs.textile.processes |> encode TextileProcess.encode
         }
     , jsResponseHandler = Encode.null
     }