add test.hs