% $Id: DiffListTest.oz,v 1.1 2007/10/22 07:02:45 leavens Exp leavens $ \insert 'TestingNoStop.oz' \insert 'DiffList.oz' {StartTesting 'DiffList'} {Show {ListToDiffList nil}} {Show {ListToDiffList [5 4 1]}} {Test {DiffListToList {ListToDiffList nil}} '==' nil} {Test {DiffListToList {ListToDiffList [5 4 1]}} '==' [5 4 1]} {Test {DiffListToList {AppendD {ListToDiffList [5 4 1]} {ListToDiffList [a b c]}}} '==' [5 4 1 a b c]}