tests for scaffold.Document

[jnievelt]

Also closing some HTML elements in main.html to make it XML parseable for testing.

[mergeconflict]

Rather than explicitly doing flatMap and map, you can do this a bit more idiomatically using for-expressions:

for {
  head <- xml.child find { _.label == "head" }
  title <- head.child find { _.label == "title" }
} yield title.text

And probably shouldn't do the getOrElse "", to avoid masking errors in the tests.

[CLAassistant]

Thank you for your submission! We really appreciate it. Like many open source projects, we ask that you sign our Contributor License Agreement before we can accept your contribution.

---

Joe Nievelt seems not to be a GitHub user. You need a GitHub account to be able to sign the CLA. If you have already a GitHub account, please add the email address used for this commit to your account.
_{You have signed the CLA already but the status is still pending? Let us recheck it.}