freckle-app-1.27.0.1: library/Freckle/App/Test/Properties/PersistValue.hs

module Freckle.App.Test.Properties.PersistValue
  ( prop_roundTripPersistValue
  ) where

import Freckle.App.Prelude

import Database.Persist (PersistField (..))

-- | Check that @'fromPersistValue' ('toPersistValue' value)@ is @value@
prop_roundTripPersistValue :: (Eq a, PersistField a) => a -> Bool
prop_roundTripPersistValue a = fromPersistValue (toPersistValue a) == Right a