update Test.hs