#
# Area clear test, test clrtoeol.
#
# @(#)clrtoeol	3.1 (SVVS) 12/1/86
#
abstract("areaclear: clrtoeol");
start
	iterations = LINES / 2;
	colnum = 0;

	#
	# Clear to EOL on a diagonal down the screen. Replace
	# the characters each time.
	#
	testing("doing successive clrtoeols on stdscr, refilling each time");
	start
	for ( i = 0 ; i < iterations ; i++ )
	{
		move(0,0);
	
		barber('a');
	
		move(i * 2, colnum);
	
		clrtoeol();
	
		colnum = colnum + 2;
		refresh();
		expect();
	}
	finis

	#
	# Clear to EOL on a diagonal down the screen.
	#
	move(0,0);
	barber('a');
	testing("fill stdscr, then do successive clrtoeol's.");
	start
	for ( i = 0 ; i < iterations ; i++ )
	{
		move(i * 2, colnum);
		clrtoeol();
		colnum = colnum + 2;
		refresh();
		expect();
	}
	finis
finis
