#
# @(#)clear	3.1 (SVVS) 12/1/86
#
# insert/delete line, clear and wclear
#
abstract("delline: clear");
start
	# fill the screen with a barber pole and 
	# clear the screen 5 times.
	testing("fill and clear the screen five times");
	start
		for (i = 1; i <= 5; i++)
		{
			move(0, 0);
			barber('p');
			refresh();
			expect();
			clear();
			refresh();
			expect();
 		}
	finis

	# create a new window.  fill and clear the window
	# five times.

	smwin = newwin(LINES / 2, COLS / 8, 0, 0);
	testing("fill and clear a window five times");
	start
		for (i = 1; i <= 5; i++)
		{
			wmove(smwin, 0, 0);
			wbarber(smwin, LINES / 2, COLS / 8, 'l');
			wrefresh(smwin);
			expect();
			wclear(smwin);
			wrefresh(smwin);
			expect();
		}
	finis
finis
