4.3BSD/usr/contrib/spms/src/lib/libspms/test/rm_dir.a

!<arch>
Orm_dir         418696434   968   27    100644  43        `
rmdir: T_OUTPUT: No such file or directory

Trm_dir.c       418696436   968   27    100644  158       `
/*
 * rm_dir()
 */

char *PGN = "rm_dir";

main(argc, argv)
int argc;
char **argv;
{
	int rm_dir();

	if (rm_dir(argv[1]) != 0)
		exit(1);
	else
		exit(0);
}
Trm_dir.sh      418870324   968   27    100755  176       `
#!/bin/csh -f
#
# Trm_dir
#
(mkdir T_OUTPUT; Trm_dir T_OUTPUT; Trm_dir T_OUTPUT) >& T_OUTPUT1
diff T_OUTPUT1 Orm_dir
set diffstatus = $status
rm -f T_OUTPUT1
exit($diffstatus)