module Main (main) where

import           Control.Concurrent (threadDelay)
import           Control.Exception (bracket)
import           System.IO (hGetLine)
import           System.Process (runInteractiveProcess, terminateProcess, waitForProcess)
import           Test.Hspec

import qualified Spec
import           SpecHelper (port)


main :: IO ()
main =
  bracket (do (_, out, _, h) <- runInteractiveProcess "./test/ldap.js" [] Nothing (Just [("PORT", show port)])
              hGetLine out
              return h)
          (\h -> do terminateProcess h
                    waitForProcess h)
          (\_ -> hspec Spec.spec)