module Main where import Acme.Dont (don't) import Test.Tasty (TestTree, defaultMain, testGroup) import Test.Tasty.HUnit ((@?=), testCase) main :: IO () main = defaultMain tests tests :: TestTree tests = testGroup "don't" [ testCase "don't run an error" $ don't (error "should not see this") @?= Just () ]