@@ -1314,7 +1314,7 @@ tests withDebugging wdConfig caps _selenium = do
13141314 fetchElement e = do
13151315 val <- WD.attr e "value"
13161316 sel <- WD.attr e "selected"
1317− return (fromMaybe "" val, sel /= Nothing)
1317+ return (fromMaybe "" val, isJust sel)
13181318 -- The "aa" test case is important, but a good test implementation probably needs to avoid selenium, because HTML parsers will insert a "selected" attribute on the first "option" tag if no selected attributes are present; thus as written, this erroneously succeeds on the old implementation (but properly implemented, should fail)
13191319 -- Thus, it would appear that we do actually need a HTML5 or maybe XML parser for this test suite.
13201320 xit "statically renders initial values (on aa)" $ runWD $ do