From 784c8ee7e131e3fc181d51a386054773b28414da Mon Sep 17 00:00:00 2001
From: Nikita Volkov <nikita.y.volkov@mail.ru>
Date: Sat, 27 Dec 2014 06:30:38 +0300
Subject: [PATCH] Test UTF-8 templates

---
 hspec-postgres/Main.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/hspec-postgres/Main.hs b/hspec-postgres/Main.hs
index 09058b2..b10371c 100644
--- a/hspec-postgres/Main.hs
+++ b/hspec-postgres/Main.hs
@@ -12,6 +12,12 @@ import qualified SlaveThread
 main = 
   hspec $ do
 
+    context "UTF-8 templates" $ do
+
+      it "encode properly" $ do
+        flip shouldBe (Right (Just (Identity ("Ёжик" :: Text)))) =<< do
+          session $ H.tx Nothing $ H.maybeTx $ [H.stmt| SELECT 'Ёжик' |]
+
     context "Bug" $ do
 
       context "Unhandled transaction conflict" $ do