summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
e9a5b05)
Disable DTD validation so the new test passes.
Add a TODO item to re-enable validation.
--- /dev/null
+1. Re-enable DTD validation once
+ https://github.com/UweSchmidt/hxt/issues/15 is fixed.
"test/xml/Odds_XML-noninteger-team-id.xml",
check "pickle composed with unpickle is the identity (positive(+) line)"
"test/xml/Odds_XML-noninteger-team-id.xml",
check "pickle composed with unpickle is the identity (positive(+) line)"
- "test/xml/Odds_XML-positive-line.xml" ]
+ "test/xml/Odds_XML-positive-line.xml",
+
+ check "pickle composed with unpickle is the identity (large file)"
+ "test/xml/Odds_XML-largefile.xml" ]
where
check desc path = testCase desc $ do
(expected, actual) <- pickle_unpickle pickle_message path
where
check desc path = testCase desc $ do
(expected, actual) <- pickle_unpickle pickle_message path
"test/xml/Odds_XML-noninteger-team-id.xml",
check "unpickling succeeds (positive(+) line)"
"test/xml/Odds_XML-noninteger-team-id.xml",
check "unpickling succeeds (positive(+) line)"
- "test/xml/Odds_XML-positive-line.xml" ]
+ "test/xml/Odds_XML-positive-line.xml",
+
+ check "unpickling succeeds (large file)"
+ "test/xml/Odds_XML-largefile.xml" ]
where
check desc path = testCase desc $ do
actual <- unpickleable path pickle_message
where
check desc path = testCase desc $ do
actual <- unpickleable path pickle_message
PU,
SysConfigList,
isElem,
PU,
SysConfigList,
isElem,
readDocument,
runX,
withRemoveWS,
readDocument,
runX,
withRemoveWS,
xpickleVal,
xunpickleVal,
yes )
xpickleVal,
xunpickleVal,
yes )
-- would have to parse whitespace in each (un)pickler.
--
parse_opts :: SysConfigList
-- would have to parse whitespace in each (un)pickler.
--
parse_opts :: SysConfigList
-parse_opts = [ withRemoveWS yes ]
+parse_opts = [ withRemoveWS yes, withValidate no ]
-- | Given an @unpickler@ and a @filepath@, attempt to unpickle the
-- | Given an @unpickler@ and a @filepath@, attempt to unpickle the