opentok-0.0.5: test/Test.hs

import Test.Tasty
import Test.Tasty.Hspec
import Test.Tasty.QuickCheck

import Archive
import Session
import Token

main :: IO ()
main = do
  unitTests <- unitTestsIO
  defaultMain $ testGroup "Tests" [unitTests]

unitTestsIO :: IO TestTree
unitTestsIO = do
  session <- testSpec "Session" Session.spec
  token <- testSpec "Token" Token.spec
  archive <- testSpec "Archive" Archive.spec
  return $ testGroup "Unit tests" [session, token, archive]