diff options
author | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-06-17 17:17:36 +0200 |
---|---|---|
committer | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-06-17 17:17:36 +0200 |
commit | dfcc13bda0f07f012e385d39ea86d7c6e9f9e05f (patch) | |
tree | 3bf3c0104c4051aa94b8cce5b667b0b19a6c6d5b /test/Crypto/Macaroon/Serializer/Base64/Tests.hs | |
parent | 8fad4fa9d1b592ece4806dcd9abb6c011d3948bf (diff) | |
parent | 62576139b8dbf2cd0d3c04e927b9df2d0805a199 (diff) | |
download | hmacaroons-dfcc13bda0f07f012e385d39ea86d7c6e9f9e05f.tar.gz hmacaroons-dfcc13bda0f07f012e385d39ea86d7c6e9f9e05f.tar.zst hmacaroons-dfcc13bda0f07f012e385d39ea86d7c6e9f9e05f.zip |
Add basic macaroon verification
Diffstat (limited to 'test/Crypto/Macaroon/Serializer/Base64/Tests.hs')
-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 |