% $Id: ToggleTest.oz,v 1.1 2007/10/14 17:56:08 leavens Exp leavens $ \insert 'Test.oz' \insert 'Toggle.oz' declare T1 = {NewToggle} T2 = {NewToggle} {Test {T1.value} '==' true} {Test {T2.value} '==' true} _ = if {T1.value} then {T2.flip} else {T1.flip} end {Test {T2.value} '==' false} {Test {T1.value} '==' true}