blob: acbfd84c8232e7bb4da3ad0f4a950a344a887795 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# OPTIONS -fno-warn-orphans #-}
module Network.BitTorrent.Internal.ProgressSpec (spec) where
import Control.Applicative
import Test.Hspec
import Test.QuickCheck
import Network.BitTorrent.Internal.Progress
instance Arbitrary Progress where
arbitrary = Progress <$> arbitrary <*> arbitrary <*> arbitrary
spec :: Spec
spec = return ()
|