Add test.hs