module Network.Api.Pin.Tests
  (
    main
  , test
  ) where

import Test.Framework
import Test.Framework.Providers.QuickCheck2 (testProperty)
import Network.Api.Pin

main ::
  IO ()
main =
  defaultMain [test]

test ::
  Test
test =
    testGroup "Pin"
      [
        testProperty "Identity" prop_identity
      ]

prop_identity ::
  Int
  -> Bool
prop_identity n =
  bletch n == n
