% $Id: ForceListTest.oz,v 1.1 2007/10/29 20:15:43 leavens Exp leavens $ \insert 'ForceList.oz' \insert 'TestingNoStop.oz' {Test {ForceList nil} '==' nil} {Test {ForceList [7 8]} '==' [7 8]} local Xr in thread {Test {ForceList 3|Xr} '==' [3 4 5]} end thread Yr in Xr = 4|Yr Yr=5|nil end end