overloaded-0.1: test/Overloaded/Test/Naturals.hs

{-# OPTIONS -fplugin=Overloaded -fplugin-opt=Overloaded:Naturals #-}
module Overloaded.Test.Naturals where

import Test.Tasty       (TestTree, testGroup)
import Test.Tasty.HUnit (testCase, (@?=))
import Numeric.Natural (Natural)

tests :: TestTree
tests = testGroup "Naturals"
    [ testCase "Natural" $
        2 @?= (2 :: Natural)
    , testCase "Integer" $
        3 @?= (3 :: Integer)
    ]