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

	testing("add a newline to each line of a filled stdscr");
	start

		for ( i = 0 ; i < iterations ; i++ )
		{
			move(0, 0);
			barber('a');
			move(i * 2, colnum);
			addch('\n');
  			colnum = colnum + 2;
			refresh();
			expect();
		}
	finis
finis
