heyefi 2.0.0.0 → 2.0.0.1

raw patch · 2 files changed

+6/−6 lines, 2 files

Files

• heyefi.cabal +1/−1
• test/HEyefi/UploadPhotoSpec.hs +5/−5

@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:                heyefi-version:             2.0.0.0+version:             2.0.0.1 synopsis:            A server for Eye-Fi SD cards. description:         This server listens for Eye-Fi cards that want to upload files to a computer and stores them in an upload directory. It is meant to be run as a system daemon. category:            Network

@@ -39,14 +39,14 @@           bs <- BS.readFile "test_upload_file.tar"           removeUploadDir           createDirectory uploadDir-          ge <- getGroupEntryForName "wheel"-          ue <- getUserEntryForName "ryantm"-          setOwnerAndGroup uploadDir (userID ue) (groupID ge)+          gid <- getRealGroupID+          uid <- getRealUserID+          setOwnerAndGroup uploadDir uid gid           _ <- runWithConfig uploadConfig (writeTarFile bs)           contents <- getDirectoryContents uploadDir           length contents `shouldBe` 3           let f = "test_upload_dir/test_upload_file.txt"           fs <- getFileStatus f-          fileGroup fs `shouldBe` groupID ge-          fileOwner fs `shouldBe` userID ue+          fileGroup fs `shouldBe` gid+          fileOwner fs `shouldBe` uid           removeUploadDir))