croaring-ffi-1.0: test/Test/Version.hs

module Test.Version (tests) where

import Data.Bitmap.Roaring.FFI.Version qualified as Version
import Hedgehog (Property, (===))
import Test.Property qualified as Property
import Test.Tasty (TestTree, testGroup)
import Test.Tasty.Hedgehog (testProperty)

tests :: TestTree
tests =
  testGroup
    "Version"
    [ testProperty "matches the pinned CRoaring release" pinned
    ]

pinned :: Property
pinned =
  Property.example $ do
    Version.version === "5.5.5"
    (Version.major, Version.minor, Version.revision) === (5, 5, 5)