15 lines
638 B
Haskell
15 lines
638 B
Haskell
module Spec where
|
|
|
|
import Test.Hspec
|
|
import Test.QuickCheck
|
|
import ZGoBackend
|
|
|
|
main :: IO ()
|
|
main =
|
|
hspec $ do
|
|
describe "Decode Memo" $ do
|
|
it "converts to readable text" $ do
|
|
decodeHexText
|
|
"5a474f3a3a35643364343439342d353163302d343332642d383439352d3035303431393935376165610a5265706c792d546f3a0a7a733177366e6b616d65617a633567756a6d363933353073796c35773874677679617068756d73337077386579747a7935796d303878376476736b6d796b6b61746d777275636d67763365723865" `shouldBe`
|
|
"ZGO::5d3d4494-51c0-432d-8495-050419957aea\nReply-To:\nzs1w6nkameazc5gujm69350syl5w8tgvyaphums3pw8eytzy5ym08x7dvskmykkatmwrucmgv3er8e"
|