diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs
index 2df4b3958..b4ad479c1 100644
--- a/test/ModelSpec.hs
+++ b/test/ModelSpec.hs
@@ -132,6 +132,7 @@ instance Arbitrary User where
     userTelephone             <- fmap pack . assertM' (not . null) <$> listOf (elements $ [' ', '+', '-', '/', '_'] ++ ['0'..'9'])
     userCompanyPersonalNumber <- fmap pack . assertM' (not . null) <$> listOf (elements ['0'..'9'])
     userCompanyDepartment <- arbitrary
+    userPinPassword <- arbitrary
     userPostAddress <- arbitrary -- TODO: not a good address
     userPrefersPostal <- arbitrary
     userExamOfficeGetSynced <- arbitrary