Completed untested Flattening implementation

1 files changed, 15 insertions, 8 deletions

diff --git a/test/Spec.hs b/test/Spec.hs
index c58bbfa..c85ac53 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -1,24 +1,31 @@
 import Data.JLD.Prelude
 
-import Data.JLD.Mime (mimeType)
-import Test.Expansion (W3CExpansionTestList, expansionTests)
-
 import Test.Tasty
 
+import Data.JLD.Mime (mimeType)
+import Test.Common (W3CTestList)
+import Test.Expansion (expansionTests)
+import Test.Flattening (flatteningTests)
+
 import Network.HTTP.Req (GET (..), NoReqBody (..), defaultHttpConfig, header, https, jsonResponse, req, responseBody, runReq, (/:))
 
-tests :: W3CExpansionTestList -> TestTree
-tests jldExpansionTestList =
+tests :: W3CTestList -> W3CTestList -> TestTree
+tests expansionTestList flatteningTestList =
     testGroup
         "Tests"
-        [ expansionTests jldExpansionTestList
+        [ expansionTests expansionTestList
+        , flatteningTests flatteningTestList
         ]
 
 main :: IO ()
 main = do
-    jldExpansionTestList <- runReq defaultHttpConfig do
+    expansionTestList <- runReq defaultHttpConfig do
         responseBody <$> req GET w3cExpansionTestListUrl NoReqBody jsonResponse (header "Accept" mimeType)
 
-    defaultMain <| tests jldExpansionTestList
+    flatteningTestList <- runReq defaultHttpConfig do
+        responseBody <$> req GET w3cFlatteningTestListUrl NoReqBody jsonResponse (header "Accept" mimeType)
+
+    defaultMain <| tests expansionTestList flatteningTestList
   where
     w3cExpansionTestListUrl = https "w3c.github.io" /: "json-ld-api" /: "tests" /: "expand-manifest.jsonld"
+    w3cFlatteningTestListUrl = https "w3c.github.io" /: "json-ld-api" /: "tests" /: "flatten-manifest.jsonld"