17 lines
521 B
Haskell
17 lines
521 B
Haskell
module XmlTests where
|
|
|
|
import Protolude
|
|
|
|
import Test.Tasty.HUnit
|
|
|
|
import Network.Minio.XmlGenerator
|
|
|
|
euBucketConfig :: ByteString
|
|
euBucketConfig = "<?xml version=\"1.0\" encoding=\"UTF-8\"?><CreateBucketConfiguration xmlns=\"http://s3.amazonaws.com/doc/2006-03-01/\">\
|
|
\<LocationConstraint>EU</LocationConstraint>\
|
|
\</CreateBucketConfiguration>"
|
|
|
|
testMkCreateBucketConfig :: Assertion
|
|
testMkCreateBucketConfig = do
|
|
assertEqual "CreateBucketConfiguration xml should match: " euBucketConfig $ mkCreateBucketConfig "EU"
|