openssh-protocol-0.0.1: test/test.hs

{-# LANGUAGE NoImplicitPrelude #-}

import           Control.Monad ((>>=), (>>), when, mapM)

import           Prelude (($), (.), not, all, id)

import qualified System.Exit as Exit
import           System.IO (IO)
import qualified System.IO as IO

import qualified Test.Crypto.OpenSSH.Protocol

main :: IO ()
main =
  IO.hSetBuffering IO.stdout IO.LineBuffering >> mapM id [
      Test.Crypto.OpenSSH.Protocol.tests
    ] >>= \rs -> when (not . all id $ rs) Exit.exitFailure