From 9b8f8eacbd00a165ca617f9498230bf05f0778d6 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Mon, 18 May 2015 16:03:09 -0300
Subject: [PATCH] Add test from #100.

---
 test/Test.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/test/Test.hs b/test/Test.hs
index bc65d07..1fccd1a 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -65,6 +65,10 @@ share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistUpperCase|
     follower PersonId
     followed PersonId
     deriving Eq Show
+
+  CcList
+    names [String]
+
   Frontcover
     number Int
     title String
@@ -1095,6 +1099,16 @@ main = do
                  return p
           liftIO $ ret `shouldBe` [ Entity p2k p2 ]
 
+
+    describe "list fields" $ do
+      -- <https://github.com/prowdsponsor/esqueleto/issues/100>
+      it "can update list fields" $
+        run $ do
+          cclist <- insert $ CcList []
+          update $ \p -> do
+            set p [ CcListNames =. val ["fred"]]
+            where_ (p ^. CcListId ==. val cclist)
+
     describe "inserts by select" $ do
       it "IN works for insertSelect" $
         run $ do