Test.hs : Reduce chance of 'orderBy [rand]' randomly failing.