tests: add license boilerplate

[functorrent.git] / test / BencodeTests.hs

diff --git a/test/BencodeTests.hs b/test/BencodeTests.hs
index d8896437f9c0efc4a051b6536f94077866d8e419..6949e7958db4649a0216f5a41cba05fffdd215bc 100644 (file)
--- a/test/BencodeTests.hs
+++ b/test/BencodeTests.hs
@@ -1,3 +1,22 @@
+{-
+ - Copyright (C) 2015-2016 Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
+ -
+ - This file is part of FuncTorrent.
+ -
+ - FuncTorrent is free software; you can redistribute it and/or modify
+ - it under the terms of the GNU General Public License as published by
+ - the Free Software Foundation; either version 3 of the License, or
+ - (at your option) any later version.
+ -
+ - FuncTorrent is distributed in the hope that it will be useful,
+ - but WITHOUT ANY WARRANTY; without even the implied warranty of
+ - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ - GNU General Public License for more details.
+ -
+ - You should have received a copy of the GNU General Public License
+ - along with FuncTorrent; if not,  see <http://www.gnu.org/licenses/>
+ -}
+
 module BencodeTests (tests) where
 
 import FuncTorrent.Bencode (encode, decode, BVal(..))
@@ -14,19 +33,8 @@ propEncodeDecode bval = let encoded = encode bval
 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)
+    it "encode/decode" $ do
+      property $ \bval ->
+        let encoded = encode bval
             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
+        in Right bval == decoded