% $Id: AddToEndTest.oz,v 1.2 2007/11/28 18:25:36 leavens Exp leavens $ \insert 'AddToEndInClass.oz' \insert 'SolveFirst.oz' \insert 'TestingNoStop.oz' {StartTesting 'AddToEnd'} {Test {SolveFirst fun {$} {AddToEnd [a b c] d $} end} '==' [a b c d]} {Test {SolveFirst fun {$} {AddToEnd [a b c] $ [a b c d]} end} '==' d} {Test {SolveFirst fun {$} {AddToEnd $ d [a b c d]} end} '==' [a b c]} {Browse {List.take {Solve proc {$ V} L#E#R=V in E=4 {AddToEnd L E R} end} 5}}