diff options
Diffstat (limited to 'lambda-calcul/haskell/test/Minilang/ServerSpec.hs')
| -rw-r--r-- | lambda-calcul/haskell/test/Minilang/ServerSpec.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lambda-calcul/haskell/test/Minilang/ServerSpec.hs b/lambda-calcul/haskell/test/Minilang/ServerSpec.hs index c7c45b3..fdf1389 100644 --- a/lambda-calcul/haskell/test/Minilang/ServerSpec.hs +++ b/lambda-calcul/haskell/test/Minilang/ServerSpec.hs @@ -8,7 +8,7 @@ import Data.Aeson (FromJSON, eitherDecode, encode) import Data.Bifunctor (first) import Data.ByteString (isInfixOf, toStrict) import qualified Data.ByteString as BS -import qualified Data.ByteString.Base64.Lazy as Base64 +import qualified Data.ByteString.Base16.Lazy as Hex import Data.ByteString.Lazy (ByteString) import qualified Data.ByteString.Lazy as LBS import Data.Data (Proxy (..)) @@ -27,7 +27,7 @@ import Test.Hspec.Wai.Matcher (MatchBody (..)) spec :: Spec spec = with (app testSeed) $ do - let (token, gen) = first Base64.encode (newToken testSeed) + let (token, gen) = first Hex.encode (newToken testSeed) alice = encode $ User "alice" it "GET / returns 'index.html'" $ do @@ -98,7 +98,7 @@ spec = with (app testSeed) $ do it "POST /api/challenge returns 400 given wrong token" $ do let response = "\"x\"" - otherToken = Base64.encode $ fst $ newToken gen + otherToken = Hex.encode $ fst $ newToken gen postJSON ("/api/challenge?token=" <> LBS.toStrict otherToken) response `shouldRespondWith` 400 |