% $Id: SumAgentMakerTest.oz,v 1.1 2007/11/13 22:38:09 leavens Exp leavens $ \insert 'SumAgentMaker.oz' \insert 'TestingNoStop.oz' % clients can do... declare SumPObj = {SumAgentMaker} {Send SumPObj add(3)} {Send SumPObj add(7)} local Z in {Send SumPObj get(Z)} {Test Z '==' 10} end {Send SumPObj add(27)} {Test {Send SumPObj get($)} '==' 37} {Test local Z in {Send SumPObj get(Z)} Z end '==' 37} SumPObj2 = {SumAgentMaker} {Send SumPObj2 add(27)} {Test {Send SumPObj2 get($)} '==' 27}