mirror of
https://github.com/kazu-yamamoto/crypton.git
synced 2024-10-06 00:37:20 +03:00
13 lines
313 B
Haskell
13 lines
313 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE ViewPatterns #-}
|
|
module KAT_TripleDES (tests) where
|
|
|
|
import Imports
|
|
import BlockCipher
|
|
import qualified Crypto.Cipher.TripleDES as TripleDES
|
|
|
|
kats = defaultKATs
|
|
|
|
tests = localOption (QuickCheckTests 5)
|
|
$ testBlockCipher kats (undefined :: TripleDES.DES_EEE3)
|