1{-# LANGUAGE OverloadedStrings #-} 2{-# LANGUAGE ViewPatterns #-} 3module KAT_TripleDES (tests) where 4 5import Imports 6import BlockCipher 7import qualified Crypto.Cipher.TripleDES as TripleDES 8 9kats = defaultKATs 10 11tests = localOption (QuickCheckTests 5) 12 $ testBlockCipher kats (undefined :: TripleDES.DES_EEE3) 13