simplify name fuzzer

bytes-zone · Apr 5, 2021 · 59ce847 · 59ce847
1 parent 85984d0
commit 59ce847
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/tests/PlayerTest.elm b/tests/PlayerTest.elm
@@ -32,13 +32,9 @@ playerFuzzer =
 
 nameFuzzer : Fuzzer String
 nameFuzzer =
-    let
-        chars =
-            Fuzz.intRange (Char.toCode 'a') (Char.toCode 'c')
-                |> Fuzz.map Char.fromCode
-    in
-    Fuzz.map2 (::) chars (Fuzz.list chars)
-        |> Fuzz.map String.fromList
+    Fuzz.intRange (Char.toCode 'a') (Char.toCode 'c')
+        |> Fuzz.map Char.fromCode
+        |> Fuzz.map String.fromChar
 
 
 decoderTest : Test