% $Id: NewGaugeTest.oz,v 1.2 2012/04/17 21:28:48 leavens Exp leavens $
\insert 'NewGauge.oz'
\insert 'TestingNoStop.oz'
{StartTesting 'NewGaugeTest $Revision: 1.2 $'}
declare
Gauge1 = {NewGauge}
{Test {GaugeValue Gauge1} '==' 0}
{GaugeUp Gauge1}
{Test {GaugeValue Gauge1} '==' 1}
for I in 1..10
do {GaugeUp Gauge1}
   {Test {GaugeValue Gauge1} '==' 1+I}
end
{GaugeDown Gauge1}
{Test {GaugeValue Gauge1} '==' 10}
{DoneTesting}