oauth2-jwt-bearer-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.Network.OAuth2.JWT.Client.AuthorizationGrant

main :: IO ()
main =
  IO.hSetBuffering IO.stdout IO.LineBuffering >> mapM id [
      Test.Network.OAuth2.JWT.Client.AuthorizationGrant.tests
    ] >>= \rs -> when (not . all id $ rs) Exit.exitFailure