diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Test/Flattening.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Test/Flattening.hs b/test/Test/Flattening.hs index 76f5434..d452eee 100644 --- a/test/Test/Flattening.hs +++ b/test/Test/Flattening.hs | |||
| @@ -55,8 +55,8 @@ flatteningTest W3CTest{..} (show .> (<> ". " <> toString w3cTestName) -> testNam | |||
| 55 | inputJld <- fetchTest inputUrl | 55 | inputJld <- fetchTest inputUrl |
| 56 | expectJld <- fetchTest expectUrl | 56 | expectJld <- fetchTest expectUrl |
| 57 | 57 | ||
| 58 | (expandBaseUrl, params) <- parseFlatteningOptions baseUrl inputUrl w3cTestOption | 58 | (flatteningBaseUrl, params) <- parseFlatteningOptions baseUrl inputUrl w3cTestOption |
| 59 | (result, _) <- flatten inputJld expandBaseUrl params | 59 | (result, _) <- flatten inputJld flatteningBaseUrl params |
| 60 | 60 | ||
| 61 | result @?= Right expectJld | 61 | result @?= Right expectJld |
| 62 | -- | 62 | -- |