1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}
{-# OPTIONS_GHC -haddock #-}
module Database.Persist.TH.CommentSpec
( CommentModel (..)
, spec
) where
import TemplateTestImports
import Database.Persist.EntityDef.Internal (EntityDef(..))
import Database.Persist.FieldDef.Internal (FieldDef(..))
mkPersist (sqlSettings {mpsEntityHaddocks = True}) [persistLowerCase|
-- | Doc comments work.
-- | Has multiple lines.
CommentModel
-- | First line of comment on column.
-- | Second line of comment on column.
name String
deriving Eq Show
|]
pass :: IO ()
pass = pure ()
asIO :: IO a -> IO a
asIO = id
spec :: Spec
spec = describe "CommentSpec" $ do
let
ed =
entityDef (Proxy @CommentModel)
it "has entity comments" $ do
entityComments ed
`shouldBe` do
Just $ mconcat
[ "Doc comments work.\n"
, "Has multiple lines.\n"
]
describe "fieldComments" $ do
let
[nameComments] =
map fieldComments $ entityFields ed
it "has the right name comments" $ do
nameComments
`shouldBe` do
Just $ mconcat
[ "First line of comment on column.\n"
, "Second line of comment on column.\n"
]
|
