Main.hs (426B)
1 {-# LANGUAGE BangPatterns #-} 2 {-# LANGUAGE MagicHash #-} 3 {-# LANGUAGE UnboxedTuples #-} 4 5 module Main where 6 7 import qualified Montgomery.Curve as Curve 8 import qualified Montgomery.Scalar as Scalar 9 import qualified Limb 10 import qualified Wide 11 import qualified Wider 12 import Test.Tasty 13 14 main :: IO () 15 main = defaultMain $ testGroup "ppad-fixed" [ 16 Limb.tests 17 , Wide.tests 18 , Wider.tests 19 , Curve.tests 20 , Scalar.tests 21 ] 22