HTF-0.12.0.0: tests/TestHTFHunitBackwardsCompatible.hs

{-# OPTIONS_GHC -F -pgmF ./dist/build/htfpp/htfpp -optF --hunit #-}
module TestHTFHunitBackwardsCompatible where

import Test.Framework

test_1_FAIL = do assertEqual "1 == 2" 1 2
                 assertEqualHTF 1 1

test_2_OK = do assertJust "foo" (Just 1)
               assertJustHTF (Just 1)