wide-word-0.1.8.0: test/test256.hs

import           Control.Monad (unless)

import           System.Exit (exitFailure)

import qualified Test.Data.WideWord.Word256

main :: IO ()
main = runTests
  [ Test.Data.WideWord.Word256.tests
  ]

runTests :: [IO Bool] -> IO ()
runTests tests = do
  result <- and <$> sequence tests
  unless result
    exitFailure