test_failureStart = do
  result <- start $ do
    error "Bad params"
    return $ Counter 0
  assertBool $ isFail result
  where isFail Fail = True
        isFail _    = False
test_failureStart = do
  result <- start $ do
    error "Bad params"
    return $ Counter 0
  assertBool $ isFail result
  where isFail Fail = True
        isFail _    = False
test_failureStart = do
  result <- start $ do
    error "Bad params"
    return $ Counter 0
  assertBool $ isFail result
  where isFail Fail = True
        isFail _    = False