acme-dont-1.2: test/Main.hs

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 ()
  ]