CAST5Spec.hs

{-# LANGUAGE OverloadedStrings #-}

module BlockCipher.CAST5Spec (spec) where

import BlockCipher
import qualified Crypto.Cipher.CAST5 as CAST5
import Test.Hspec (Spec)

vectors_ecb =
    -- key plaintext ciphertext
    [ KAT_ECB
        "\x01\x23\x45\x67\x12\x34\x56\x78\x23\x45\x67\x89\x34\x56\x78\x9A"
        "\x01\x23\x45\x67\x89\xAB\xCD\xEF"
        "\x23\x8B\x4F\xE5\x84\x7E\x44\xB2"
    , KAT_ECB
        "\x01\x23\x45\x67\x12\x34\x56\x78\x23\x45"
        "\x01\x23\x45\x67\x89\xAB\xCD\xEF"
        "\xEB\x6A\x71\x1A\x2C\x02\x27\x1B"
    , KAT_ECB
        "\x01\x23\x45\x67\x12"
        "\x01\x23\x45\x67\x89\xAB\xCD\xEF"
        "\x7A\xC8\x16\xD1\x6E\x9B\x30\x2E"
    ]

kats = defaultKATs{kat_ECB = vectors_ecb}

spec :: Spec
spec = testBlockCipher kats (undefined :: CAST5.CAST5)