module Test.Helpers where

import Prelude hiding (fail)

import Test.HUnit

import Data.SyntaxIR


assertTrue  description expression = assertEqual description True  expression

assertFalse description expression = assertEqual description False expression

fail description = assertEqual description False True

assertIsErr (Err _) = return () 
assertIsErr other   = fail $ (show other) ++ " is not an error"
