Update test.hs