crypto-pubkey-openssh-0.2.7: tests/Crypto/PubKey/OpenSsh/Encode/Tests.hs

module Crypto.PubKey.OpenSsh.Encode.Tests
    ( tests
    ) where

import Control.DeepSeq (deepseq)
import Data.Word (Word8)

import Test.Tasty (TestTree, testGroup)
import Test.Tasty.QuickCheck (testProperty)

import Crypto.PubKey.OpenSsh.Encode (fixZeroByte)

-- | In version 0.2.0 `fixZeroByte` function fails with empty input
testFixZeroByte :: [Word8] -> Bool
testFixZeroByte i = fixZeroByte i `deepseq` True

tests :: TestTree
tests = testGroup "Crypto.PubKey.OpenSsh.Encode.Tests"
    [ testProperty "regression test testFixZeroByte" testFixZeroByte
    ]