% $Id: VideoTapeTimeTest.oz,v 1.1 2007/11/26 19:55:16 leavens Exp leavens $ \insert 'VideoTapeTime.oz' \insert 'TestingNoStop.oz' {Test {VideoTapeTime 2*Hours} '==' time(ep:0 sp:120)} {Test {VideoTapeTime 3*Hours} '==' time(ep:90 sp:90)} {Test {VideoTapeTime 4*Hours} '==' time(ep:180 sp:60)} {Test {VideoTapeTime 4*Hours+30} '==' time(ep:225 sp:45)} {Test {VideoTapeTime 5*Hours+30} '==' time(ep:315 sp:15)} {Test {VideoTapeTime 6*Hours} '==' time(ep:360 sp:0)}