more quickcheck fun

and the code gets better..
This commit is contained in:
Joey Hess 2012-12-19 22:14:12 -04:00
parent 295c2552ea
commit 8491917d04
3 changed files with 27 additions and 12 deletions

View file

@ -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'