diff --git a/test/IntegTest/Elocrypt/PassphraseTest.hs b/test/IntegTest/Elocrypt/PassphraseTest.hs
index b4d2e7b..56fcbb6 100644
--- 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