% $Id: MathAgentMakerTest.oz,v 1.1 2008/04/09 22:26:33 leavens Exp leavens $
\insert 'MathAgentMaker.oz'
\insert 'TestingNoStop.oz'

% clients can do...
declare
MathPObj = {MathAgentMaker}
{Send MathPObj add(3)}
{Send MathPObj sub(7)}
local Z in
   {Send MathPObj get(Z)}
   {Test Z '==' ~4}
end
{Send MathPObj add(27)}
{Test {Send MathPObj get($)} '==' 23}

MathPObj2 = {MathAgentMaker}
{Send MathPObj2 mult(27)}
{Test {Send MathPObj2 get($)} '==' 0}