add Dlist-test.hs