module Air.HUnitDSL where
  
import Prelude ()
import Air.Env
import Test.HUnit
import Control.Monad.Writer.Lazy


spec desc x = tell [TestLabel desc - TestCase x]

run_specs x = runTestTT - TestList - execWriter x