module __VMTEST.repeat_loops

public handler TestRepeatForUpTo()
	-- This test ensures that repeat up to loops perform the correct number of
	-- iterations, motivated by a 'double' issue on emscripten. Rather than
	-- use numbers to test, we use a string which accumulates a new char for
	-- each iteration ensuring that the method of testing is entirely distinct
	-- from what is being tested.

	variable tLoopCount as String
	variable tCount as Number

	put the empty string into tLoopCount
	repeat with tCount from 1 up to 12
		put "X" after tLoopCount
	end repeat
	test "from 1 up to 12 gives 12 iterations" when tLoopCount is "XXXXXXXXXXXX"

	put the empty string into tLoopCount
	repeat with tCount from 1 up to 12 by 2
		put "X" after tLoopCount
	end repeat
	test "from 1 up to 12 by 2 gives 6 iterations" when tLoopCount is "XXXXXX"

	put the empty string into tLoopCount
	repeat with tCount from 1 up to 12 by 0.5
		put "X" after tLoopCount
	end repeat
	test "from 1 up to 12 by 0.5 gives 24 iterations" when tLoopCount is "XXXXXXXXXXXXXXXXXXXXXXX"
end handler

public handler TestRepeatForDownTo()
	-- This test ensures that repeat down to loops perform the correct number of
	-- iterations, motivated by a 'double' issue on emscripten. Rather than
	-- use numbers to test, we use a string which accumulates a new char for
	-- each iteration ensuring that the method of testing is entirely distinct
	-- from what is being tested.

	variable tLoopCount as String
	variable tCount as Number

	put the empty string into tLoopCount
	repeat with tCount from 12 down to 1
		put "X" after tLoopCount
	end repeat
	test "from 12 down to 1 gives 12 iterations" when tLoopCount is "XXXXXXXXXXXX"

	put the empty string into tLoopCount
	repeat with tCount from 12 down to 1 by -2
		put "X" after tLoopCount
	end repeat
	test "from 12 down to 1 by 2 gives 6 iterations" when tLoopCount is "XXXXXX"

	put the empty string into tLoopCount
	repeat with tCount from 12 down to 1 by -0.5
		put "X" after tLoopCount
	end repeat
	test "from 12 down to 1 by 0.5 gives 24 iterations" when tLoopCount is "XXXXXXXXXXXXXXXXXXXXXXX"
end handler

end module