%%% $Id: TestTest.oz,v 1.2 2006/09/26 00:48:32 leavens Exp $ \insert 'Test.oz' {StartTesting 'Test'} declare X = 3 {Test X '==>' 3} {Test X '==' 3} {Test X '=' 3} local B EX in try {Test X '==>' 4} B = false catch EXC then B = true EX=EXC end if B then {System.showInfo 'correctly caught ' # {Value.toVirtualString EX 5 10}} {System.showInfo 'ok'} else {System.showInfo 'failed'} raise testDidntWork end end end local Foo = fun {$ Y} Y + 4 end in {Test {Foo X} '=' 7} end