← Back to branch summary

~ubuntu-branches/ubuntu/wily/haskell-sandi/wily-proposed

« back to all changes in this revision

Viewing changes to test-src/Codec/Binary/Base32Test.hs

  • Committer: Package Import Robot
  • Author(s): Clint Adams
  • Date: 2014-06-06 11:22:20 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20140606112220-s0c3ngtrz80v124g
Tags: 0.3.0-1
New upstream version.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test-src/Codec/Binary/Base32Test.hs
9
9
 
10
10
import qualified Data.ByteString as BS
11
11
import qualified Data.ByteString.Char8 as BSC
12
 
import Test.HUnit
13
 
import Test.Framework (Test)
14
 
import Test.Framework.TH
15
 
import Test.Framework.Providers.HUnit
16
 
import Test.Framework.Providers.QuickCheck2
17
12
import Data.Word (Word8)
18
13
 
 
14
import Test.Tasty
 
15
import Test.Tasty.TH
 
16
import Test.Tasty.HUnit
 
17
import Test.Tasty.QuickCheck
 
18
 
19
19
case_enc_foobar :: IO ()
20
20
case_enc_foobar = do
21
21
    BSC.empty                   @=? B32.encode BSC.empty
48
48
prop_encdec :: [Word8] -> Bool
49
49
prop_encdec ws = (BS.pack ws) == (fromRight $ B32.decode $ B32.encode $ BS.pack ws)
50
50
 
51
 
tests :: Test.Framework.Test
 
51
tests :: TestTree
52
52
tests = $(testGroupGenerator)