From 8c49a30faa431b8b56a4b4926e7dae56b1311fea Mon Sep 17 00:00:00 2001 From: Volpeon Date: Sun, 28 May 2023 08:13:08 +0200 Subject: Completed untested Flattening implementation --- test/Spec.hs | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) (limited to 'test/Spec.hs') 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" -- cgit v1.2.3-54-g00ecf