hunit :: Reifies v Version => Proxy v -> TestTree
hunit _v = testGroup "FFC"
- [ testGroup "inv"
+ [ testGroup "inverse"
[ hunitInv weakFFC
, hunitInv beleniosFFC
]
testGroup (Text.unpack $ cryptoName crypto)
[ testCase "groupGen" $
reifyCrypto crypto $ \(_c::Proxy c) ->
- inv (groupGen :: G crypto c) @?=
+ inverse (groupGen :: G crypto c) @?=
groupGen ^ E (fromJust $ groupOrder (Proxy @c) `minusNaturalMaybe` one)
]