#
# @(#)slk_touch	3.1 (SVVS) 12/1/86
#
# cursor motion: slk_touch
#NOINITSCR
#
abstract("cursor motion - slk_touch");
start
	prep("setup labels in 3-2-3 format.");
	start
	slk_init(0);
	initscr();
	label = "penguin";
	finis

	testing("set each label to a string, do slk_noutrefresh");
	testing("and doupdate.  then do slk_set for two of the labels");
	testing("and do slk_touch and slk_refresh.");
	start 
		for (i = 8; i > 0; i--)
		{
			slk_set(i, label, 1);
		}
		slk_noutrefresh();
		doupdate();
		expect();

		label = "seal";
		slk_set(4, label, 1);
		slk_set(5, label, 1);
		slk_touch();
		slk_refresh();
		expect();
	finis
finis
