#
# @(#)overwrite	3.1 (SVVS) 12/1/86
#
# insert/delete line, overwrite
#
abstract("overwrite");
start
	prep("create two windows, and erase the second");
	start
	win1 = newwin(LINES - 2, COLS, 0, 0);
	win2 = newwin(1, COLS, LINES - 1, 0);
	werase(win2);
	wrefresh(win2);
	expect();
	finis

	# win2 contains a blank line.  fill win1 and overwrite
	# (overwrite will copy blanks) its top line with win2

	testing("overwrite top line of first window with the blank window.");
	start
	for (i = 0; i < 10; i++)
	{
		wmove(win1, 0, 0);
		wbarber(win1, LINES - 2, COLS, 'a' + i);
		wrefresh(win1);
		overwrite(win2, win1);
		wrefresh(win1);
		expect();
	}
	finis
finis
