diff options
Diffstat (limited to 'tests/suite.hs')
-rw-r--r-- | tests/suite.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/tests/suite.hs b/tests/suite.hs index 9b5e22e..ede60bb 100644 --- a/tests/suite.hs +++ b/tests/suite.hs | |||
@@ -2,10 +2,10 @@ | |||
2 | import Test.Framework (defaultMain, testGroup, Test) | 2 | import Test.Framework (defaultMain, testGroup, Test) |
3 | import Test.Framework.Providers.HUnit | 3 | import Test.Framework.Providers.HUnit |
4 | import Test.Framework.Providers.QuickCheck2 | 4 | import Test.Framework.Providers.QuickCheck2 |
5 | import Test.QuickCheck | ||
6 | import Test.HUnit hiding (Test) | 5 | import Test.HUnit hiding (Test) |
7 | 6 | ||
8 | import Data.Word | 7 | import Data.Word |
8 | import Data.OpenPGP.Arbitrary () | ||
9 | import qualified Data.OpenPGP as OpenPGP | 9 | import qualified Data.OpenPGP as OpenPGP |
10 | import qualified Data.OpenPGP.Internal as OpenPGP | 10 | import qualified Data.OpenPGP.Internal as OpenPGP |
11 | 11 | ||
@@ -23,9 +23,6 @@ decode' :: (Binary a) => B.ByteString -> a | |||
23 | decode' = decode | 23 | decode' = decode |
24 | #endif | 24 | #endif |
25 | 25 | ||
26 | instance Arbitrary OpenPGP.HashAlgorithm where | ||
27 | arbitrary = elements [OpenPGP.MD5, OpenPGP.SHA1, OpenPGP.SHA256, OpenPGP.SHA384, OpenPGP.SHA512] | ||
28 | |||
29 | testSerialization :: FilePath -> Assertion | 26 | testSerialization :: FilePath -> Assertion |
30 | testSerialization fp = do | 27 | testSerialization fp = do |
31 | bs <- B.readFile $ "tests/data/" ++ fp | 28 | bs <- B.readFile $ "tests/data/" ++ fp |