Blame tests/KAT_TripleDES.hs
|
Packit |
141393 |
{-# LANGUAGE OverloadedStrings #-}
|
|
Packit |
141393 |
{-# LANGUAGE ViewPatterns #-}
|
|
Packit |
141393 |
module KAT_TripleDES (tests) where
|
|
Packit |
141393 |
|
|
Packit |
141393 |
import Imports
|
|
Packit |
141393 |
import BlockCipher
|
|
Packit |
141393 |
import qualified Crypto.Cipher.TripleDES as TripleDES
|
|
Packit |
141393 |
|
|
Packit |
141393 |
kats = defaultKATs
|
|
Packit |
141393 |
|
|
Packit |
141393 |
tests = localOption (QuickCheckTests 5)
|
|
Packit |
141393 |
$ testBlockCipher kats (undefined :: TripleDES.DES_EEE3)
|