haskell/minio-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add support to run tests against a locally running minio server (#4)

Browse Source
This commit is contained in:
Aditya Manthramurthy 2017-02-18 17:36:52 +05:30 committed by GitHub
parent fa527afa96
commit d7b46aa115
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
README.md
View File

@ -26,7 +26,12 @@ stack test
``` ```
A section of the tests use `https://play.minio.io:9000`. A section of the tests use the remote Minio Play server at
`https://play.minio.io:9000` by default. For library development,
using this remote server maybe slow. To run the tests against a
locally running Minio live server at `http://localhost:9000`, just set
the environment `MINIO_LOCAL` to any value (and unset it to switch
back to Play).
Documentation can be locally built with: Documentation can be locally built with:

4
test/LiveServer.hs
View File

@ -16,6 +16,7 @@ import qualified Data.Conduit.Binary as CB
import Data.Conduit.Combinators (sinkList) import Data.Conduit.Combinators (sinkList)
import Data.Default (Default(..)) import Data.Default (Default(..))
import qualified Data.Text as T import qualified Data.Text as T
import System.Environment (lookupEnv)
import Network.Minio import Network.Minio
import Network.Minio.Data import Network.Minio.Data
@ -62,7 +63,8 @@ funTestWithBucket t minioTest = testCaseSteps t $ \step -> do
bktSuffix <- liftIO $ generate $ Q.vectorOf 10 (Q.choose ('a', 'z')) bktSuffix <- liftIO $ generate $ Q.vectorOf 10 (Q.choose ('a', 'z'))
let b = T.concat [funTestBucketPrefix, T.pack bktSuffix] let b = T.concat [funTestBucketPrefix, T.pack bktSuffix]
liftStep = liftIO . step liftStep = liftIO . step
ret <- runResourceT $ runMinio minioPlayCI $ do connInfo <- maybe minioPlayCI (const def) <$> lookupEnv "MINIO_LOCAL"
ret <- runResourceT $ runMinio connInfo $ do
liftStep $ "Creating bucket for test - " ++ t liftStep $ "Creating bucket for test - " ++ t
makeBucket b def makeBucket b def
minioTest liftStep b minioTest liftStep b