Update Tests.hs