#
# @(#)deleteln	3.1 (SVVS) 12/1/86
#
# insert/delete line, deleteln and wdeleteln
#
abstract("delline: deleteln");
start
	prep("fill stdscr");
	start
	move(0, 0);
	barber('A');
	touchwin(stdscr);
	refresh();
	expect();
	finis

	# start at the bottom of stdscr and delete each line

	testing("delete each line in stdscr, using");
	testing("deleteln from the bottom up");
	start
	for (i = LINES - 1; i >= 0; i--)
	{
		move(i, 0);
		deleteln();
		refresh();
		expect();
	}
	finis

	prep("create a small window");
	start
	smwin = newwin(LINES / 3, COLS / 3, 0, 0);
	finis

	# fill the window with a barber pole and delete the
	# last line.  do this repeatedly.

	testing("fill and delete the last line of the window repeatedly");
	start
	for (i = LINES / 3; i >= 0; i--)
	{
		wmove(smwin, 0, 0);
		wbarber(smwin, LINES / 3, COLS / 3, 'A');
		wrefresh(smwin);
		expect();
		wmove(smwin, LINES / 3 - 1, 0);
		wdeleteln(smwin);
		wrefresh(smwin);
		expect();
	}
	finis
finis
