%%% $Id: TestingNoStopTest.oz,v 1.2 2007/10/17 17:31:05 leavens Exp leavens $ \insert 'TestingNoStop.oz' declare {StartTesting 'Test'} X = 3 {Test X '==>' 3} {Test X '==' 3} {Test X '=' 3} {Test X '==>' 4} % should show FAILED output local Foo = fun {$ Y} Y + 4 end in {Test {Foo X} '==' 7} end {StartTesting 'Assert'} Z = 3 {Assert Z == 3} {AssertTrue "Z == 4" Z == 4} % should show output local Foo = fun {$ Y} Y + 3 end in {AssertTrue "{Foo Z} == 6" {Foo Z} == 6} end {System.showInfo 'ok'}