diff --git a/tests/ErrorMessages.hs b/tests/ErrorMessages.hs
index 3f843f1f6..2bdb3ad7b 100644
--- a/tests/ErrorMessages.hs
+++ b/tests/ErrorMessages.hs
@@ -11,7 +11,7 @@ module ErrorMessages
 import Prelude.Compat
 
 import Data.Aeson (FromJSON(..), Value, eitherDecode)
-import Data.Aeson.Types (Parser, parseEither)
+import Data.Aeson.Types (Parser, listParser, parseEither)
 import Data.Algorithm.Diff (PolyDiff (..), getGroupedDiff)
 import Data.Proxy (Proxy(..))
 
@@ -76,6 +76,10 @@ output = concat
   , testFor "Seq" (Proxy :: Proxy (Seq Int))
       [ "[0,1,true]"
       ]
+
+  , testWith "listParser" (listParser parseJSON :: Value -> Parser [Int])
+      [ "[true]"
+      ]
   ]
 
 data Choice = TH | G
diff --git a/tests/golden/simple.expected b/tests/golden/simple.expected
index d036458af..4c6460ab0 100644
--- a/tests/golden/simple.expected
+++ b/tests/golden/simple.expected
@@ -20,3 +20,5 @@ Either
 Error in $[1].Left[1]: expected Bool, but encountered Number
 Seq
 Error in $[2]: parsing Int failed, expected Number, but encountered Boolean
+listParser
+Error in $[0]: parsing Int failed, expected Number, but encountered Boolean