#
# Area clear test, test waddch.
#
# @(#)waddch	3.1 (SVVS) 12/1/86
#
abstract("areaclear: waddch");
start
	prep("create a full size window");
	start
	iterations = LINES / 2;
	colnum = 0;
	mainw = newwin(LINES, COLS, 0, 0);
	finis

	testing("waddch newline in diagonal pattern to filled window");
	start
	for ( i = 0 ; i < iterations ; i++ )
	{
		wmove(mainw, 0, 0);
		wbarber(mainw, LINES, COLS, 'a');
		wmove(mainw,i * 2, colnum);
		waddch(mainw,'\n');
		colnum = colnum + 2;
		wrefresh(mainw);
		expect();
	}
	finis
finis
