tidy up and comment one of the tests in Tests.hs