update test.hs