scuttlebutt-types-0.1.0: test/KeySpec.hs

{-# LANGUAGE OverloadedStrings #-}

module KeySpec where

import Ssb.Types.Key
import Test.Hspec
import Data.ByteString

base64PublicKey :: ByteString
base64PublicKey = "@opBinLmYiID9SMEoZJPH60LmduSYAR7J00P7/Gj9vHw=.ed25519"

spec :: Spec
spec = describe "public key" $ do
	it "can be deserialized and serialized from base64 bytestrings" $ do
		let (Just publicKey) = parsePublicKey base64PublicKey
		(formatPublicKey publicKey) `shouldBe` base64PublicKey