From 9aacd28f4387891c3ddcf33fc50e41f9e45fcb0f Mon Sep 17 00:00:00 2001
From: Krishnan Parthasarathi <krishnan.parthasarathi@gmail.com>
Date: Fri, 13 Jan 2017 08:01:30 +0530
Subject: [PATCH] Move xml tests to a separate module

---
 minio-hs.cabal   |  1 +
 test/Spec.hs     | 11 +----------
 test/XmlTests.hs | 16 ++++++++++++++++
 3 files changed, 18 insertions(+), 10 deletions(-)
 create mode 100644 test/XmlTests.hs

diff --git a/minio-hs.cabal b/minio-hs.cabal
index ce6b23b..36179e5 100644
--- a/minio-hs.cabal
+++ b/minio-hs.cabal
@@ -119,6 +119,7 @@ test-suite minio-hs-test
                      , Network.Minio.Sign.V4
                      , Network.Minio.XmlGenerator
                      , Network.Minio.XmlParser
+                     , XmlTests
 
 
 source-repository head
diff --git a/test/Spec.hs b/test/Spec.hs
index 7f43899..e76ea73 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -6,7 +6,7 @@ import Test.Tasty.HUnit
 import Control.Monad.Trans.Resource (runResourceT)
 
 import Network.Minio
-import Network.Minio.XmlGenerator
+import XmlTests
 
 main :: IO ()
 main = defaultMain tests
@@ -53,12 +53,3 @@ unitTests = testGroup "Unit tests"
 
   , testCase "Test mkCreateBucketConfig." testMkCreateBucketConfig
   ]
-
-usEastBucketConfig :: ByteString
-usEastBucketConfig = "<?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: " usEastBucketConfig $ mkCreateBucketConfig "EU"
diff --git a/test/XmlTests.hs b/test/XmlTests.hs
new file mode 100644
index 0000000..053f55b
--- /dev/null
+++ b/test/XmlTests.hs
@@ -0,0 +1,16 @@
+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"