diff options
Diffstat (limited to 'test/Crypto/Macaroon/Tests.hs')
-rw-r--r-- | test/Crypto/Macaroon/Tests.hs | 49 |
1 files changed, 10 insertions, 39 deletions
diff --git a/test/Crypto/Macaroon/Tests.hs b/test/Crypto/Macaroon/Tests.hs index 244ec50..25d77c8 100644 --- a/test/Crypto/Macaroon/Tests.hs +++ b/test/Crypto/Macaroon/Tests.hs | |||
@@ -23,8 +23,6 @@ import Crypto.Macaroon.Serializer.Base64 | |||
23 | tests :: TestTree | 23 | tests :: TestTree |
24 | tests = testGroup "Crypto.Macaroon" [ basic | 24 | tests = testGroup "Crypto.Macaroon" [ basic |
25 | , minted | 25 | , minted |
26 | , minted2 | ||
27 | -- , minted3 | ||
28 | ] | 26 | ] |
29 | 27 | ||
30 | 28 | ||
@@ -36,29 +34,24 @@ m = create secret key loc | |||
36 | loc = B8.pack "http://mybank/" | 34 | loc = B8.pack "http://mybank/" |
37 | 35 | ||
38 | basic :: TestTree | 36 | basic :: TestTree |
39 | basic = testGroup "Basic macaroon" [ basicSignature | 37 | basic = testGroup "Basic macaroon" [ basicInspect |
40 | , basicSerialize | 38 | , basicSignature |
41 | , basicDeserialize | ||
42 | ] | 39 | ] |
43 | 40 | ||
41 | basicInspect = testCase "Inspect" $ | ||
42 | "location http://mybank/\nidentifier we used\ | ||
43 | \ our secret key\n\nsignature E3D9E02908526C4C\ | ||
44 | \0039AE15114115D97FDD68BF2BA379B342AAF0F617D0552F" @=? inspect m | ||
45 | |||
44 | basicSignature = testCase "Signature" $ | 46 | basicSignature = testCase "Signature" $ |
45 | "E3D9E02908526C4C0039AE15114115D97FDD68BF2BA379B342AAF0F617D0552F" @=? (hex . signature) m | 47 | "E3D9E02908526C4C0039AE15114115D97FDD68BF2BA379B342AAF0F617D0552F" @=? (hex . signature) m |
46 | 48 | ||
47 | basicSerialize = testCase "Serialization" $ | ||
48 | "MDAxY2xvY2F0aW9uIGh0dHA6Ly9teWJhbmsvCjAwMjZpZGVudG\ | ||
49 | \lmaWVyIHdlIHVzZWQgb3VyIHNlY3JldCBrZXkKMDAyZnNpZ25h\ | ||
50 | \dHVyZSDj2eApCFJsTAA5rhURQRXZf91ovyujebNCqvD2F9BVLwo" @=? serialize m | ||
51 | |||
52 | basicDeserialize = testCase "Deserialization" $ | ||
53 | Right m @=? (deserialize . serialize) m | ||
54 | |||
55 | m2 :: Macaroon | 49 | m2 :: Macaroon |
56 | m2 = addFirstPartyCaveat "test = caveat" m | 50 | m2 = addFirstPartyCaveat "test = caveat" m |
57 | 51 | ||
58 | minted :: TestTree | 52 | minted :: TestTree |
59 | minted = testGroup "Macaroon with first party caveat" [ mintInspect | 53 | minted = testGroup "Macaroon with first party caveat" [ mintInspect |
60 | , mintSerialize | 54 | , mintSignature |
61 | , mintDeserialize | ||
62 | ] | 55 | ] |
63 | 56 | ||
64 | mintInspect = testCase "Inspect" $ | 57 | mintInspect = testCase "Inspect" $ |
@@ -68,30 +61,8 @@ mintInspect = testCase "Inspect" $ | |||
68 | \3BDD668A660E44D88CE1A998C23DBD67" @=? inspect m2 | 61 | \3BDD668A660E44D88CE1A998C23DBD67" @=? inspect m2 |
69 | 62 | ||
70 | 63 | ||
71 | mintSerialize = testCase "Serialization" $ | 64 | mintSignature = testCase "Signature" $ |
72 | "MDAxY2xvY2F0aW9uIGh0dHA6Ly9teWJhbmsvCjAwMjZpZGVudGlmaWVyIHdlIHVzZ\ | 65 | "197BAC7A044AF33332865B9266E26D493BDD668A660E44D88CE1A998C23DBD67" @=? (hex . signature) m2 |
73 | \WQgb3VyIHNlY3JldCBrZXkKMDAxNmNpZCB0ZXN0ID0gY2F2ZWF0CjAwMmZzaWduYXR1cmUgGXusegR\ | ||
74 | \K8zMyhluSZuJtSTvdZopmDkTYjOGpmMI9vWcK" @=? serialize m2 | ||
75 | |||
76 | mintDeserialize = testCase "Deserialization" $ | ||
77 | Right m2 @=? (deserialize . serialize) m2 | ||
78 | |||
79 | |||
80 | m3 :: Macaroon | ||
81 | m3 = addFirstPartyCaveat "test = acaveat" m | ||
82 | |||
83 | minted2 :: TestTree | ||
84 | minted2 = testGroup "Macaroon with first party caveats" [ mint2Trimmed | ||
85 | , mint2Des | ||
86 | ] | ||
87 | |||
88 | mint2Trimmed = testCase "Serialization" $ | ||
89 | "MDAxY2xvY2F0aW9uIGh0dHA6Ly9teWJhbmsvCjAwMjZpZGVudGlmaWVyIHdlIHVz\ | ||
90 | \ZWQgb3VyIHNlY3JldCBrZXkKMDAxN2NpZCB0ZXN0ID0gYWNhdmVhdAowMDJmc2ln\ | ||
91 | \bmF0dXJlIJRJ_V3WNJQnqlVq5eez7spnltwU_AXs8NIRY739sHooCg" @=? serialize m3 | ||
92 | |||
93 | mint2Des = testCase "Deserialization" $ | ||
94 | Right m3 @=? (deserialize . serialize) m3 | ||
95 | 66 | ||
96 | -- m4 :: Macaroon | 67 | -- m4 :: Macaroon |
97 | -- m4 = addThirdPartyCaveat caveat_key caveat_id caveat_loc n | 68 | -- m4 = addThirdPartyCaveat caveat_key caveat_id caveat_loc n |