firstErrorOf: couldn't parse failure report

[ryan-haskell]

Hey Aaron! Got this while hanging with you on Twitch:

Expected one of the following to exist:
    - <button> with text
        > PLEASE REPORT THIS AT <https://github.com/avh4/elm-program-test/issues>: firstErrorOf: couldn't parse failure report: Expecting Keyword tag  at row 77, col 17
    Expecting Keyword text  at row 77, col 17
    Expecting Keyword attribute  at row 77, col 17
    Expecting Keyword containing  at row 77, col 17
    Expecting  ] at row 77, col 17
    Expecting Keyword attribute  at row 77, col 17
    Expecting Keyword containing  at row 77, col 17    Expecting  ] at row 77, col 17
    - <form> with submit <input> with value
        > PLEASE REPORT THIS AT <https://github.com/avh4/elm-program-test/issues>: firstErrorOf: couldn't parse failure report: Expecting Keyword tag  at row 77, col 17
    Expecting Keyword text  at row 77, col 17
    Expecting Keyword attribute  at row 77, col 17
    Expecting Keyword containing  at row 77, col 17    Expecting  ] at row 77, col 17

Here is the project at the commit producing the error:
https://github.com/ryannhg/elm-uno/tree/ca8c3719285df279998d47245dab5132ed68b077

You can run npm run test to reproduce this ( or elm-test )

[avh4]

Note to self: it looks like ProgramTest.clickButton is using some selector whose error output is not handled yet by TestHtmlParser

elm-program-test/src/ProgramTest/TestHtmlParser.elm

Lines 136 to 160 in 18abbbe

	singleSelectorParser : Parser Selector
	singleSelectorParser =
	Parser.oneOf
	[ Parser.succeed Tag
	|. Parser.keyword "tag "
	|= Parser.Extra.String.string
	, Parser.succeed Text
	|. Parser.keyword "text "
	|= Parser.Extra.String.string
	, Parser.succeed Attribute
	|. Parser.keyword "attribute "
	|= Parser.Extra.String.string
	|. Parser.symbol " "
	|= Parser.oneOf
	[ Parser.Extra.String.string
	, Parser.succeed "true"
	|. Parser.keyword "True"
	, Parser.succeed "false"
	|. Parser.keyword "False"
	]
	, Parser.succeed Containing
	|. Parser.keyword "containing "
	|= Parser.lazy (\() -> selectorsParser)
	|. Parser.symbol " "
	]