aboutsummaryrefslogtreecommitdiffhomepage
path: root/test/Crypto/Macaroon/Verifier/Tests.hs
diff options
context:
space:
mode:
authorJulien Tanguy <julien.tanguy@jhome.fr>2015-05-14 19:00:50 +0200
committerJulien Tanguy <julien.tanguy@jhome.fr>2015-05-14 19:00:50 +0200
commitb92e3c159fad49b86fe4bd115f487057c04e3c18 (patch)
treef8a01bd7345d09b01fa6282adb310ffdfa9b1882 /test/Crypto/Macaroon/Verifier/Tests.hs
parente0ceb8d38cf44ea2a9e0d6564fe64a25fd3039b4 (diff)
downloadhmacaroons-b92e3c159fad49b86fe4bd115f487057c04e3c18.tar.gz
hmacaroons-b92e3c159fad49b86fe4bd115f487057c04e3c18.tar.zst
hmacaroons-b92e3c159fad49b86fe4bd115f487057c04e3c18.zip
Basic verification of macaroons
- Only signatures are checked
Diffstat (limited to 'test/Crypto/Macaroon/Verifier/Tests.hs')
-rw-r--r--test/Crypto/Macaroon/Verifier/Tests.hs59
1 files changed, 59 insertions, 0 deletions
diff --git a/test/Crypto/Macaroon/Verifier/Tests.hs b/test/Crypto/Macaroon/Verifier/Tests.hs
new file mode 100644
index 0000000..92a8a21
--- /dev/null
+++ b/test/Crypto/Macaroon/Verifier/Tests.hs
@@ -0,0 +1,59 @@
1{-# LANGUAGE OverloadedStrings #-}
2{-|
3Copyright : (c) 2015 Julien Tanguy
4License : BSD3
5
6Maintainer : julien.tanguy@jhome.fr
7
8
9This test suite is based on the pymacaroons test suite:
10<https://github.com/ecordell/pymacaroons>
11-}
12module Crypto.Macaroon.Verifier.Tests where
13
14
15import qualified Data.ByteString.Char8 as B8
16import Test.Tasty
17import Test.Tasty.HUnit
18
19import Crypto.Macaroon
20import Crypto.Macaroon.Verifier
21
22import Crypto.Macaroon.Instances
23
24tests :: TestTree
25tests = testGroup "Crypto.Macaroon.Verifier" [ sigs
26 ]
27
28sec = B8.pack "this is our super secret key; only we should know it"
29
30m :: Macaroon
31m = create sec key loc
32 where
33 key = B8.pack "we used our sec key"
34 loc = B8.pack "http://mybank/"
35
36m2 :: Macaroon
37m2 = addFirstPartyCaveat "test = caveat" m
38
39m3 :: Macaroon
40m3 = addFirstPartyCaveat "test = acaveat" m
41
42sigs = testGroup "Signatures" [ basic
43 , minted
44 ]
45
46basic = testCase "Basic Macaroon Signature" $
47 Success @=? verifySig sec m
48
49
50minted :: TestTree
51minted = testGroup "Macaroon with first party caveats" [ one
52 , two
53 ]
54one = testCase "One caveat" $
55 Success @=? verifySig sec m2
56
57two = testCase "Two caveats" $
58 Success @=? verifySig sec m3
59