sqel-0.0.1.0: test/Sqel/Test/SqlCodeTest.hs

module Sqel.Test.SqlCodeTest where

import Hedgehog ((===), TestT)

import Sqel.Data.Sql (Sql, sql)

test_sqlCodeNoInterpolation :: TestT IO ()
test_sqlCodeNoInterpolation =
  "foo bar" === ([sql|foo bar|] :: Sql)