add persist test when has relation

```
User
    email Text
    UniqueUser email
    screenName Text
    deriving Show

Article
    author UserId Eq
    title   Text
    content Markdown
    slug Text
    createdAt  UTCTime default=CURRENT_TIMESTAMP
    UniqueSlug slug
    deriving Show
```

のようなモデルがあった時に、UserIdはDatabase.Persist.insert関数を実行した際に返ってくる型が必要。なので戦略的にはこの場合は：

Userを生成、userId <- insert $ ...
このuserIdをarticleAuthorに入れる、
という事が必要だったようだ。
それを行なっているのが
https://github.com/cosmo0920/Ahblog/pull/5/files#L2R79
から
https://github.com/cosmo0920/Ahblog/pull/5/files#L2R93

に掛けてのrunDBの処理。