hegel-0.1.0: conformance/TestBooleans.hs

{-# LANGUAGE OverloadedStrings #-}

-- | Conformance binary: generates boolean values and writes metrics.
module Main (main) where

import Hegel

main :: IO ()
main = do
  testCases <- getTestCases
  runHegelTest (\settings -> settings { settingsTestCases = testCases }) $ \tc -> do
    b <- draw tc booleans
    writeMetrics [("value", if b then "true" else "false")]