module CustomPersistFieldTest (
specs
#ifndef WITH_NOSQL
, customFieldMigrate
#endif
) where
import Init
import CustomPersistField
#ifdef WITH_NOSQL
db :: Action IO () -> Assertion
db = db' (return ())
mkPersist persistSettings [persistUpperCase|
#else
share [mkPersist sqlSettings, mkMigrate "customFieldMigrate"] [persistLowerCase|
#endif
BlogPost
article Markdown
deriving Show Eq
|]
specs :: Spec
specs = describe "Custom persist field" $ do
it "should read what it wrote" $ db $ do
let originalBlogPost = BlogPost "article"
blogPostId <- insert originalBlogPost
Just newBlogPost <- get blogPostId
liftIO $ originalBlogPost @?= newBlogPost