% $Id: NewPortObjectTest.oz,v 1.2 2012/04/17 21:28:48 leavens Exp leavens $
\insert 'NewPortObject.oz'
\insert 'TestingNoStop.oz'

declare
fun {SumAgentMaker}
   {NewPortObject 0
    fun {$ N Msg}
      case Msg of
         add(X) then N+X
      [] get(Z) then Z=N
                     N
      end
   end}
end

% clients can do...
{StartTesting 'NewPortObjectTest $Revision: 1.2 $'}
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}
{DoneTesting}