1 files changed, 14 insertions, 0 deletions

diff --git a/tests/Network/BitTorrent/DHT/TokenSpec.hs b/tests/Network/BitTorrent/DHT/TokenSpec.hs
new file mode 100644
index 00000000..90ff0f03
--- /dev/null
+++ b/tests/Network/BitTorrent/DHT/TokenSpec.hs
@@ -0,0 +1,14 @@
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+module Network.BitTorrent.DHT.TokenSpec (spec) where
+import Control.Applicative
+import Data.String
+import Test.Hspec
+import Test.QuickCheck
+import Network.BitTorrent.DHT.Token
+
+
+instance Arbitrary Token where
+  arbitrary = fromString <$> arbitrary
+
+spec :: Spec
+spec = return ()
\ No newline at end of file