% $Id: DatingServiceTest.oz,v 1.1 2008/04/12 13:29:54 leavens Exp leavens $ \insert 'NewPortObject2.oz' \insert 'DatingService.oz' \insert 'TestingNoStop.oz' {Browse 'Testing DatingService ...'} declare DatingService = {NewDatingService} fun {NewClient Name MySex MyDesc OtherSex OtherDesc} RP = {NewPortObject2 proc {$ Msg} {Browse Name#' got '#Msg} end} in {Send DatingService seeking(MySex MyDesc OtherSex OtherDesc RP)} RP end Alice = {NewClient 'Alice' female blond male dark} Bob = {NewClient 'Bob' male dark female blond} Candice = {NewClient 'Candice' female blond male dark} Dale = {NewClient 'Dale' male dark female blond} Elise = {NewClient 'Elise' female brunette male blond} Fred = {NewClient 'Fred' male blond female brunette} {Browse done}