% $Id: QueueTest.oz,v 1.1 2007/11/14 01:54:39 leavens Exp leavens $ % Testing for Queues, from CTM page 380 declare Q in thread Q={NewQueue} end {Q.put 1} {Browse {Q.get}} {Browse {Q.get $}} {Browse {Q.get $}} {Delay 2000} {Q.put 2} {Q.put 3}