fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore: fix tests

Browse Source
This commit is contained in:
Gregor Kleen 2021-02-15 15:31:23 +01:00
parent e2eddc93c5
commit c76794f7c8
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
config/test-settings.yml
View File

@ -1,6 +1,7 @@
database: database:
database: "_env:PGDATABASE_TEST:uniworx_test" database: "_env:PGDATABASE_TEST:uniworx_test"
upload-cache-bucket: "uni2work-test-uploads" upload-cache-bucket: "uni2work-test-uploads"
upload-tmp-bucket: "uni2work-test-tmp"
log-settings: log-settings:
detailed: true detailed: true

2
src/Handler/Sheet/PersonalisedFiles.hs
View File

@ -50,6 +50,8 @@ import qualified Control.Monad.State as State
import Control.Monad.Memo (MemoStateT, MonadMemo(..), for2) import Control.Monad.Memo (MemoStateT, MonadMemo(..), for2)
import Utils.Memo import Utils.Memo
{-# ANN module ("HLint: ignore Use newtype instead of data" :: String) #-}
data PersonalisedSheetFileUnresolved a data PersonalisedSheetFileUnresolved a
= PSFUnresolvedDirectory a = PSFUnresolvedDirectory a

4
test/Handler/Sheet/PersonalisedFilesSpec.hs
View File

@ -25,6 +25,8 @@ import Database.Persist.Sql (transactionUndo)
import Data.Bitraversable import Data.Bitraversable
import qualified Data.Set as Set
instance Arbitrary (FileReferenceResidual PersonalisedSheetFile) where instance Arbitrary (FileReferenceResidual PersonalisedSheetFile) where
arbitrary = PersonalisedSheetFileResidual arbitrary = PersonalisedSheetFileResidual
@ -82,7 +84,7 @@ spec = withApp . describe "Personalised sheet file zip encoding" $ do
loadResolved (f, fRes) = (, fRes) <$> traverse toPureFile f loadResolved (f, fRes) = (, fRes) <$> traverse toPureFile f
recoveredFiles <- runConduit $ recoveredFiles <- runConduit $
sourcePersonalisedSheetFiles cid (Just shid) Nothing anonMode sourcePersonalisedSheetFiles cid (Just shid) Nothing anonMode Set.empty
.| resolvePersonalisedSheetFiles fpL isDirectory cid shid .| resolvePersonalisedSheetFiles fpL isDirectory cid shid
.| C.mapM loadFile .| C.mapM loadFile
.| C.foldMap pure .| C.foldMap pure