more quickcheck fun
and the code gets better..
This commit is contained in:
parent
295c2552ea
commit
8491917d04
3 changed files with 27 additions and 12 deletions
|
@ -309,7 +309,6 @@ readTransferInfo mpid s = TransferInfo
|
|||
{- for quickcheck -}
|
||||
prop_read_write_transferinfo :: TransferInfo -> Bool
|
||||
prop_read_write_transferinfo info
|
||||
| associatedFile info == Just "" = True -- file cannot be empty
|
||||
| transferRemote info /= Nothing = True -- remote not stored
|
||||
| transferTid info /= Nothing = True -- tid not stored
|
||||
| otherwise = Just (info { transferPaused = False }) == info'
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue