\insert 'TestingNoStop.oz' \insert 'MemberInClass.oz' {StartTesting 'Member'} {Test {Member a [a b c a b c d f a]} '==' true} {Test {Member a [b c a b c d f a]} '==' true} {Test {Member e [c a b c d f a]} '==' false} {Test {Member 7 [1 2 3 4 6 8 9]} '==' false} {Test {Member b nil} '==' false} {StartTesting 'done'}