From bf31e29028a4402ea0d2deefdb3b86efd526acd0 Mon Sep 17 00:00:00 2001 From: Julien Tanguy Date: Mon, 17 Aug 2015 17:36:35 +0200 Subject: Typos and stylish-haskell --- test/Crypto/Macaroon/Instances.hs | 4 ++-- test/Crypto/Macaroon/Tests.hs | 2 +- test/Sanity.hs | 26 +++++++++++++------------- 3 files changed, 16 insertions(+), 16 deletions(-) (limited to 'test') diff --git a/test/Crypto/Macaroon/Instances.hs b/test/Crypto/Macaroon/Instances.hs index 6955637..9c89857 100644 --- a/test/Crypto/Macaroon/Instances.hs +++ b/test/Crypto/Macaroon/Instances.hs @@ -11,9 +11,9 @@ This test suite is based on the pymacaroons test suite: -} module Crypto.Macaroon.Instances where -import Control.Monad +import Control.Monad import Data.Byteable -import qualified Data.ByteString as BS +import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as B8 import Data.Hex import Data.List diff --git a/test/Crypto/Macaroon/Tests.hs b/test/Crypto/Macaroon/Tests.hs index 25d77c8..c934cc1 100644 --- a/test/Crypto/Macaroon/Tests.hs +++ b/test/Crypto/Macaroon/Tests.hs @@ -12,7 +12,7 @@ This test suite is based on the pymacaroons test suite: module Crypto.Macaroon.Tests where import Data.Byteable -import qualified Data.ByteString.Char8 as B8 +import qualified Data.ByteString.Char8 as B8 import Data.Hex import Test.Tasty import Test.Tasty.HUnit diff --git a/test/Sanity.hs b/test/Sanity.hs index 8def3ca..635e627 100644 --- a/test/Sanity.hs +++ b/test/Sanity.hs @@ -1,17 +1,17 @@ -{-#LANGUAGE OverloadedStrings#-} +{-# LANGUAGE OverloadedStrings #-} module Sanity where import Crypto.Hash -import Data.ByteString (ByteString) -import qualified Data.ByteString as B -import Data.Hex -import Data.Byteable +import Data.Byteable +import Data.ByteString (ByteString) +import qualified Data.ByteString as B +import Data.Hex -import Test.Tasty -import Test.Tasty.HUnit +import Test.Tasty +import Test.Tasty.HUnit -import qualified Crypto.Macaroon.Tests import qualified Crypto.Macaroon.Serializer.Base64.Tests +import qualified Crypto.Macaroon.Tests tests :: TestTree tests = testGroup "Python HMAC Sanity check" [ checkKey @@ -44,18 +44,18 @@ mac4 :: ByteString mac4 = toBytes (hmac mac3 "email = alice@example.org" :: HMAC SHA256) -checkKey = testCase "Truncated key" $ +checkKey = testCase "Truncated key" $ key @?= "this is our super secret key; on" -checkMac1 = testCase "HMAC key" $ +checkMac1 = testCase "HMAC key" $ "C60B4B3540BB1B2F2EF28D1C895691CC4A5E07A38A9D3B1C3379FB485293372F" @=? hex mac1 -checkMac2 = testCase "HMAC key account" $ +checkMac2 = testCase "HMAC key account" $ "5C933DC9A7D036DFCD1740B4F26D737397A1FF635EAC900F3226973503CAAAA5" @=? hex mac2 -checkMac3 = testCase "HMAC key account time" $ +checkMac3 = testCase "HMAC key account time" $ "7A559B20C8B607009EBCE138C200585E9D0DECA6D23B3EAD6C5E0BA6861D3858" @=? hex mac3 -checkMac4 = testCase "HMAC key account time email" $ +checkMac4 = testCase "HMAC key account time email" $ "E42BBB02A9A5A303483CB6295C497AE51AD1D5CB10003CBE548D907E7E62F5E4" @=? hex mac4 -- cgit v1.2.3