diff --git a/test/Test.hs b/test/Test.hs
index a0c2e93..b4e7386 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -1142,22 +1142,22 @@ main = do
                                   , (Entity p1k p1, Value 3)
                                   , (Entity p3k p3, Value 7) ]
 
-      -- it "GROUP BY works with COUNT and InnerJoin" $
-      --   run $ do
-      --     l1k <- insert l1
-      --     l2k <- insert l2
-      --     l3k <- insert l3
-      --     mapM_ (\k -> insert $ Deed k l1k) (map show [1..3])
-      --
-      --     mapM_ (\k -> insert $ Deed k l3k) (map show [4..10])
-      --
-      --     (ret :: [(Value (Key Lord), Value Int)]) <- select $ from $
-      --       \ ( lord `InnerJoin` deed ) -> do
-      --       on $ lord ^. LordId ==. deed ^. DeedOwnerId
-      --       groupBy (lord ^. LordId)
-      --       return (lord ^. LordId, count $ deed ^. DeedId)
-      --     liftIO $ ret `shouldBe` [ (Value l3k, Value 7)
-      --                             , (Value l1k, Value 3) ]
+      it "GROUP BY works with COUNT and InnerJoin" $
+        run $ do
+          l1k <- insert l1
+          l2k <- insert l2
+          l3k <- insert l3
+          mapM_ (\k -> insert $ Deed k l1k) (map show [1..3])
+
+          mapM_ (\k -> insert $ Deed k l3k) (map show [4..10])
+
+          (ret :: [(Value (Key Lord), Value Int)]) <- select $ from $
+            \ ( lord `InnerJoin` deed ) -> do
+            on $ lord ^. LordId ==. deed ^. DeedOwnerId
+            groupBy (lord ^. LordId)
+            return (lord ^. LordId, count $ deed ^. DeedId)
+          liftIO $ ret `shouldBe` [ (Value l3k, Value 7)
+                                  , (Value l1k, Value 3) ]
 
       it "GROUP BY works with HAVING" $
         run $ do