mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-12-01 13:52:12 +03:00
20 lines
422 B
Haskell
20 lines
422 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE FlexibleInstances #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
|
|
module SQLServerTest where
|
|
|
|
import Data.ByteString (ByteString)
|
|
import Data.Text (Text)
|
|
import Distribution.TestSuite (Test)
|
|
import SQLServerTestDataSource (defineTable)
|
|
|
|
tests :: IO [Test]
|
|
tests = return []
|
|
|
|
$(defineTable
|
|
[("varchar", [t| ByteString |]),
|
|
("text", [t| Text |])
|
|
]
|
|
"TEST" "test_table0" [])
|