fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix tests

Browse Source
This commit is contained in:
Gregor Kleen 2018-11-09 14:53:07 +01:00
parent a056690151
commit aa2d33922a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Handler/Utils/ZipSpec.hs
View File

@ -18,7 +18,7 @@ import Data.Time
instance Arbitrary File where instance Arbitrary File where
arbitrary = do arbitrary = do
fileTitle <- joinPath <$> arbitrary fileTitle <- (joinPath <$> arbitrary) `suchThat` (any $ not . isPathSeparator)
date <- addDays <$> arbitrary <*> pure (fromGregorian 2043 7 2) date <- addDays <$> arbitrary <*> pure (fromGregorian 2043 7 2)
fileModified <- addUTCTime <$> arbitrary <*> pure (UTCTime date 0) fileModified <- addUTCTime <$> arbitrary <*> pure (UTCTime date 0)
fileContent <- arbitrary fileContent <- arbitrary