tweak Test.hs