* Test.hs: Adding tests