------------------------------------------------------------------------------
deserializeDefaultRoles :: Assertion
deserializeDefaultRoles =
  either
  (\e -> assertFailure $ "Failed user deserialization: " ++ e)
  (\u -> assertEqual "Roles wasn't initialized to empty" [] (A.userRoles u))
  (eitherDecode . BSL.fromChunks . (:[]) . encodeUtf8 $
   sampleUserJson "\"activated_at\":null" "\"extra\":null")
deserializeDefaultRoles :: Assertion
deserializeDefaultRoles =
  either
  (\e -> assertFailure $ "Failed user deserialization: " ++ e)
  (\u -> assertEqual "Roles wasn't initialized to empty" [] (A.userRoles u))
  (eitherDecode . BSL.fromChunks . (:[]) . encodeUtf8 $
   sampleUserJson "\"activated_at\":null" "\"extra\":null")
deserializeDefaultRoles =
  either
  (\e -> assertFailure $ "Failed user deserialization: " ++ e)
  (\u -> assertEqual "Roles wasn't initialized to empty" [] (A.userRoles u))
  (eitherDecode . BSL.fromChunks . (:[]) . encodeUtf8 $
   sampleUserJson "\"activated_at\":null" "\"extra\":null")