nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-12-29 13:33:03 +03:00
Code Issues Projects Releases Wiki Activity

Test UTF-8 templates

Browse Source
This commit is contained in:
Nikita Volkov 2014-12-27 06:30:38 +03:00
parent 95c6996599
commit 784c8ee7e1
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hspec-postgres/Main.hs
View File

@ -12,6 +12,12 @@ import qualified SlaveThread
main = main =
hspec $ do 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 "Bug" $ do
context "Unhandled transaction conflict" $ do context "Unhandled transaction conflict" $ do