-qcTests :: TestTree
-qcTests = testGroup "QuickCheck tests" [ testProperty "encode/decode" propEncodeDecode ]
-
-tests :: TestTree
-tests = testGroup "Tests" [qcTests]
+tests :: IO ()
+tests = hspec $ do
+ describe "BVal tests" $ do
+ it "encode/decode bstr tests" $ do
+ property $ \s ->
+ let encoded = encode (Bstr s)
+ decoded = decode encoded
+ in Right (Bstr s) == decoded
+ it "encode/decode bint tests" $ do
+ property $ \i ->
+ let encoded = encode (Bint i)
+ decoded = decode encoded
+ in Right (Bint i) == decoded
+ -- describe "Bencode property tests" $ do
+ -- it "encode/decode" $ do
+ -- property $ \bval ->
+ -- let encoded = encode bval
+ -- decoded = decode encoded
+ -- in Right bval == decoded