diff options
| author | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-05-15 16:03:30 +0200 |
|---|---|---|
| committer | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-05-15 23:10:16 +0200 |
| commit | 5d1b7d51854d355bf5b6438c1a96ce9e743fd810 (patch) | |
| tree | 9790591988ee639d50bc873e5f757a4c0e6b7ffb /test/Crypto/Macaroon/Serializer/Base64 | |
| parent | 8fad4fa9d1b592ece4806dcd9abb6c011d3948bf (diff) | |
| download | hmacaroons-5d1b7d51854d355bf5b6438c1a96ce9e743fd810.tar.gz hmacaroons-5d1b7d51854d355bf5b6438c1a96ce9e743fd810.tar.zst hmacaroons-5d1b7d51854d355bf5b6438c1a96ce9e743fd810.zip | |
Add quickcheck properties
Diffstat (limited to 'test/Crypto/Macaroon/Serializer/Base64')
| -rw-r--r-- | test/Crypto/Macaroon/Serializer/Base64/Tests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Crypto/Macaroon/Serializer/Base64/Tests.hs b/test/Crypto/Macaroon/Serializer/Base64/Tests.hs index 19084af..ea3bed9 100644 --- a/test/Crypto/Macaroon/Serializer/Base64/Tests.hs +++ b/test/Crypto/Macaroon/Serializer/Base64/Tests.hs | |||
| @@ -30,7 +30,7 @@ tests = testGroup "Crypto.Macaroon.Serializer.Base64" [ basic | |||
| 30 | ] | 30 | ] |
| 31 | 31 | ||
| 32 | basicQC = testProperty "Reversibility" $ | 32 | basicQC = testProperty "Reversibility" $ |
| 33 | forAll (macaroon <$> arbitrary) (\m -> deserialize (serialize m) == Right m) | 33 | \sm -> deserialize (serialize (macaroon sm)) == Right (macaroon sm) |
| 34 | 34 | ||
| 35 | m :: Macaroon | 35 | m :: Macaroon |
| 36 | m = create secret key loc | 36 | m = create secret key loc |