]> git.rkrishnan.org Git - functorrent.git/blob - test/BencodeTests.hs
quickcheck: size limit randomly generated Benc structures
[functorrent.git] / test / BencodeTests.hs
1 {-
2  - Copyright (C) 2015-2016 Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
3  -
4  - This file is part of FuncTorrent.
5  -
6  - FuncTorrent is free software; you can redistribute it and/or modify
7  - it under the terms of the GNU General Public License as published by
8  - the Free Software Foundation; either version 3 of the License, or
9  - (at your option) any later version.
10  -
11  - FuncTorrent is distributed in the hope that it will be useful,
12  - but WITHOUT ANY WARRANTY; without even the implied warranty of
13  - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  - GNU General Public License for more details.
15  -
16  - You should have received a copy of the GNU General Public License
17  - along with FuncTorrent; if not,  see <http://www.gnu.org/licenses/>
18  -}
19
20 module BencodeTests (tests) where
21
22 import FuncTorrent.Bencode (encode, decode, BVal(..))
23
24 import Test.Hspec
25 import Test.QuickCheck
26 import Data.ByteString.Char8 (unpack, pack)
27
28 propEncodeDecode :: BVal -> Bool
29 propEncodeDecode bval = let encoded = encode bval
30                             decoded = decode encoded
31                         in Right bval == decoded
32
33 tests :: IO ()
34 tests = hspec $ do
35   describe "BVal tests" $ do
36     it "encode/decode" $ do
37       property $ \bval ->
38         let encoded = encode bval
39             decoded = decode encoded
40         in Right bval == decoded