% $Id: AddToEndTest.oz,v 1.2 2007/11/28 18:25:36 leavens Exp leavens $ \insert 'AddToEnd.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]} {StartTesting 'AddToEnd2'} {Test {SolveFirst fun {$} {AddToEnd2 [a b c] d $} end} '==' [a b c d]} {Test {SolveFirst fun {$} {AddToEnd2 [a b c] $ [a b c d]} end} '==' d} {Test {SolveFirst fun {$} {AddToEnd2 $ d [a b c d]} end} '==' [a b c]}