Fix integration test

sgillespie · Nov 27, 2017 · 4224bc5 · 4224bc5
1 parent 8ffe4ab
commit 4224bc5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/test/IntegTest/Elocrypt/PassphraseTest.hs b/test/IntegTest/Elocrypt/PassphraseTest.hs
@@ -115,5 +115,7 @@ prop_printsCapitals (PhraseCliOptions opts)
     (_, out, _, _) <- run opts'
     response <- readHandle out
 
+    let phrases = lines response
+
     return $
-      all (isUpper . head) . lines $ response
+      cover (any (any isUpper) phrases) 80 "has caps" True