starting with a clean slate

[functorrent.git] / test / BencodeTests.hs

diff --git a/test/BencodeTests.hs b/test/BencodeTests.hs
deleted file mode 100644 (file)
index c83e9cc..0000000
--- a/test/BencodeTests.hs
+++ /dev/null
@@ -1,17 +0,0 @@
-module BencodeTests (tests) where
-
-import FuncTorrent.Bencode (encode, decode, BVal(..))
-
-import Test.Tasty (TestTree, testGroup)
-import Test.Tasty.QuickCheck (testProperty)
-
-propEncodeDecode :: BVal -> Bool
-propEncodeDecode bval = let encoded = encode bval
-                            decoded = decode encoded
-                        in Right bval == decoded
-
-qcTests :: TestTree
-qcTests = testGroup "QuickCheck tests" [ testProperty "encode/decode" propEncodeDecode ]
-
-tests :: TestTree
-tests = testGroup "Tests" [qcTests]