diff options
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Transfer.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Types/Transfer.hs b/Types/Transfer.hs index 528d1d5cb..905b29ea2 100644 --- a/Types/Transfer.hs +++ b/Types/Transfer.hs @@ -9,6 +9,7 @@ module Types.Transfer where import Types import Utility.PID +import Utility.QuickCheck import Data.Time.Clock.POSIX import Control.Concurrent @@ -45,3 +46,13 @@ stubTransferInfo = TransferInfo Nothing Nothing Nothing Nothing Nothing Nothing data Direction = Upload | Download deriving (Eq, Ord, Read, Show) +instance Arbitrary TransferInfo where + arbitrary = TransferInfo + <$> arbitrary + <*> arbitrary + <*> pure Nothing -- cannot generate a ThreadID + <*> pure Nothing -- remote not needed + <*> arbitrary + -- associated file cannot be empty (but can be Nothing) + <*> arbitrary `suchThat` (/= Just "") + <*> arbitrary |