1751 	FILE *sfp;	/* generated control test file */  in test_driver()  local
1844 	sfp = create_test_file(name);  in test_driver()
1876 		if (sfp) {  in test_driver()
1877 			(void) fprintf(sfp, "#!/bin/ksh -p\n\n");  in test_driver()
1878 			(void) fprintf(sfp,  in test_driver()
1881 				(void) fprintf(sfp, " %s", pargv[i]);  in test_driver()
1882 			(void) fprintf(sfp, "\n\n");  in test_driver()
1883 			(void) fprintf(sfp, "\nrun_tests()\n{\n");  in test_driver()
1886 					(void) fprintf(sfp,  in test_driver()
1889 					(void) fprintf(sfp,  in test_driver()
1893 					(void) fprintf(sfp, "\t\t./%s.%d\n",  in test_driver()
1895 					(void) fprintf(sfp, "\t\techo \""  in test_driver()
1898 					(void) fprintf(sfp, "\tfi\n");  in test_driver()
1900 			(void) fprintf(sfp, "}\n\nrun_tests\n");  in test_driver()
1901 			if (fchmod(fileno(sfp), S_IRWXU|S_IRGRP|S_IROTH))  in test_driver()
1904 			if (fclose(sfp) != 0)  in test_driver()