% $Id: NewEmailServerTest.oz,v 1.1 2011/11/22 21:49:26 leavens Exp $ \insert 'TestingNoStop.oz' \insert 'NewEmailServer.oz' declare {StartTesting 'NewEmailServerTest $Revision: 1.1 $'} Server = {NewEmailServer} {Send Server send(original(santa "1000 dogs"))} {Test {Send Server receive(santa $)} '==' [original(santa "1000 dogs")]} {Test {Send Server receive(turkey $)} '==' nil} {Send Server send(original(turkey "die!"))} local Ms in {Send Server receive(turkey Ms)} {Test Ms '==' [original(turkey "die!")]} {Send Server send(forwarded(santa Ms.1))} {Test {Send Server receive(santa $)} '==' [forwarded(santa Ms.1) original(santa "1000 dogs")]} end {Send Server send(original(sarah "run for VP, please"))} {Test {Send Server receive(sarah $)} '==' [original(sarah "run for VP, please")]} {Send Server send(original(john "you betcha!"))} {Test {Send Server receive(john $)} '==' [original(john "you betcha!")]} {DoneTesting}