1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
{-# OPTIONS_GHC -XTemplateHaskell #-}
-- Copyright: (c) Magnus Therning, 2013
-- License: BSD3, found in the LICENSE file
module Codec.Binary.Base85Test where
import Codec.TestUtils
import qualified Codec.Binary.Base85 as B85
import qualified Data.ByteString as BS
import qualified Data.ByteString.Char8 as BSC
import Data.Word (Word8)
import Test.Tasty
import Test.Tasty.TH
import Test.Tasty.HUnit
import Test.Tasty.QuickCheck
case_enc_foobar :: IO ()
case_enc_foobar = do
BS.empty @=? B85.encode BS.empty
BSC.pack "Ac" @=? B85.encode (BSC.pack "f")
BSC.pack "Ao@" @=? B85.encode (BSC.pack "fo")
BSC.pack "AoDS" @=? B85.encode (BSC.pack "foo")
BSC.pack "AoDTs" @=? B85.encode (BSC.pack "foob")
BSC.pack "AoDTs@/" @=? B85.encode (BSC.pack "fooba")
BSC.pack "AoDTs@<)" @=? B85.encode (BSC.pack "foobar")
case_enc_specials :: IO ()
case_enc_specials = do
-- all zero
BSC.pack "z" @=? B85.encode (BS.pack [0,0,0,0])
-- all space
BSC.pack "y" @=? B85.encode (BS.pack [32,32,32,32])
-- double special
BSC.pack "yz" @=? B85.encode (BS.pack [32,32,32,32,0,0,0,0])
case_dec_foobar :: IO ()
case_dec_foobar = do
-- foobar
Right BS.empty @=? B85.decode BS.empty
Right (BSC.pack "f") @=? B85.decode (BSC.pack "Ac")
Right (BSC.pack "fo") @=? B85.decode (BSC.pack "Ao@")
Right (BSC.pack "foo") @=? B85.decode (BSC.pack "AoDS")
Right (BSC.pack "foob") @=? B85.decode (BSC.pack "AoDTs")
Right (BSC.pack "fooba") @=? B85.decode (BSC.pack "AoDTs@/")
Right (BSC.pack "foobar") @=? B85.decode (BSC.pack "AoDTs@<)")
case_dec_specials :: IO ()
case_dec_specials = do
-- all zero
Right (BS.pack [0,0,0,0]) @=? B85.decode (BSC.pack "z")
-- all space
Right (BS.pack [32,32,32,32]) @=? B85.decode (BSC.pack "y")
-- double special
Right (BS.pack [32,32,32,32,0,0,0,0]) @=? B85.decode (BSC.pack "yz")
prop_encdec :: [Word8] -> Bool
prop_encdec ws = (BS.pack ws) == (fromRight $ B85.decode $ B85.encode $ BS.pack ws)
tests :: TestTree
tests = $(testGroupGenerator)
|
