refactor(test): Reduce some duplication

sgillespie · Mar 18, 2024 · 5890f8c · 5890f8c
1 parent 3df3473
commit 5890f8c
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/test/Data/Gibberish/Gen/PassSpec.hs b/test/Data/Gibberish/Gen/PassSpec.hs
@@ -196,8 +196,6 @@ spec = do
 
       listSize <- forAll $ Gen.int (Range.linear 1 50)
 
-      let shouldHaveLength (Word w) = (Text.length w ==)
-
       assert $
         not (null passes)
           && all (`shouldHaveLength` woptsLength opts') (take listSize passes)
@@ -214,8 +212,6 @@ spec = do
       (passes, _) <- liftIO $ usingPassT randomGen (genPasswords' opts' numberWords)
       annotateShow passes
 
-      let shouldHaveLength (Word w) = (Text.length w ==)
-
       assert $
         not (null passes)
           && all (`shouldHaveLength` woptsLength opts') passes
@@ -285,3 +281,6 @@ spec = do
 
       assert $
         not (null phrase) && all (isInRange . unWord) phrase
+
+shouldHaveLength :: Word -> Int -> Bool
+shouldHaveLength (Word w) = (Text.length w ==)