mysql-haskell-1.2.3: test/Main.hs

module Main (main) where

import qualified QC.ByteString as ByteString
import qualified QC.Combinator as Combinator
import Test.Tasty (defaultMain, testGroup)
import qualified JSON
import qualified Sha1Scramble
import qualified Sha256Scramble
import qualified Word24
import qualified TCPStreams
import qualified BoundsCheck

main :: IO ()
main = do
    jsonTests <- JSON.tests
    defaultMain $ testGroup "tests" [
      testGroup "binary-parser" [
        testGroup "bs" ByteString.tests
      , testGroup "combinator" Combinator.tests
      , testGroup "JSON" jsonTests
      ],
      testGroup "word24"
         Word24.tests
      , testGroup "tcp-streams"
         [
           TCPStreams.tests
         ]
      , Sha1Scramble.tests
      , Sha256Scramble.tests
      , BoundsCheck.tests
      ]