% $Id: AssocTest.oz,v 1.2 2007/10/22 03:38:35 leavens Exp $ \insert 'TestingNoStop.oz' \insert 'Assoc.oz' {Test {Assoc nil a} '==' nil} {Test {Assoc [a#1 b#2 c#3] a} '==' [1]} {Test {Assoc [a#1 b#2 c#3] b} '==' [2]} {Test {Assoc [b#5 a#1 b#2 c#3] b} '==' [5 2]}