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