#
# @(#)putp2	3.1 (SVVS) 12/1/86
#
# ascii char sequences with padding using putp()
#
#NOFINALEXPECT

abstract("strings: putp()");
start
	# ascii strings with padding in the middle
	testing("putp of ascii strings with padding in the middle");
	start
		for (i = 20; i < 50; i++)
		{
			s = "";
			for (j = 40; j < 50; j++)
			{
				for (k = 1; k < 20; k += 2)
				{
					sprintf(tmp, "%s%c$<%d>%c", s, i, k, j);
					s = tmp;
				}
			}
			putp(s);
			expect_putp(s);
		}
	finis

	# ascii strings with padding at the end
	testing("putp of ascii strings with padding at the end");
	start
		for (i = 20; i < 30; i++)
		{
			s = "";
			for (j = 40; j < 50; j++)
			{
				for (k = 1; k < 10; k += 2)
				{
					sprintf(tmp, "%s%c%c$<%d>", s, i, j, k);
					s = tmp;
				}
			}
			putp(s);
			expect_putp(s);
		}
	finis

	# ascii strings with padding at the end
	testing("putp of ascii strings with padding at the beginning");
	start
		for (i = 80; i < 100; i++)
		{
			s = "";
			for (j = 110; j < 120; j++)
			{
				for (k = 1; k < 10; k += 2)
				{
					sprintf(tmp, "%s$<%d>%c%c", s, k, i, j);
					s = tmp;
				}
			}
			putp(s);
			expect_putp(s);
		}
	finis
finis
