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

Should help with #60.