Blame src/functional/stat.c

Szabolcs Nagy 0c5fb5
#include <sys/stat.h>
Szabolcs Nagy 0c5fb5
#include <errno.h>
Szabolcs Nagy 0c5fb5
#include <string.h>
Szabolcs Nagy 0c5fb5
#include <stdio.h>
Szabolcs Nagy 0c5fb5
#include <time.h>
Szabolcs Nagy 0c5fb5
#include <stdint.h>
Szabolcs Nagy 0c5fb5
#include <unistd.h>
Szabolcs Nagy 0c5fb5
#include "test.h"
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
#define TEST(c, ...) ((c) ? 1 : (error(#c" failed: " __VA_ARGS__),0))
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
int main(void)
Szabolcs Nagy 0c5fb5
{
Szabolcs Nagy 0c5fb5
	struct stat st;
Szabolcs Nagy 0c5fb5
	FILE *f;
Szabolcs Nagy 0c5fb5
	time_t t;
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
	if (TEST(stat(".",&st)==0, "errno = %s\n", strerror(errno))) {
Szabolcs Nagy 0c5fb5
		TEST(S_ISDIR(st.st_mode), "\n");
Szabolcs Nagy 0c5fb5
		TEST(st.st_nlink>0, "%ju\n", (uintmax_t)st.st_nlink);
Szabolcs Nagy 0c5fb5
		t = time(0);
Szabolcs Nagy 0c5fb5
		TEST(st.st_ctime<=t, "%jd > %jd\n", (intmax_t)st.st_ctime, (intmax_t)t);
Szabolcs Nagy 0c5fb5
		TEST(st.st_mtime<=t, "%jd > %jd\n", (intmax_t)st.st_mtime, (intmax_t)t);
Szabolcs Nagy 0c5fb5
		TEST(st.st_atime<=t, "%jd > %jd\n", (intmax_t)st.st_atime, (intmax_t)t);
Szabolcs Nagy 0c5fb5
	}
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
	if (TEST(stat("/dev/null",&st)==0, "errno = %s\n", strerror(errno))) {
Szabolcs Nagy 0c5fb5
		TEST(S_ISCHR(st.st_mode), "\n");
Szabolcs Nagy 0c5fb5
	}
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
	if ((f = tmpfile())) {
Szabolcs Nagy 0c5fb5
		fputs("hello", f);
Szabolcs Nagy 0c5fb5
		fflush(f);
Szabolcs Nagy 0c5fb5
		if (TEST(fstat(fileno(f),&st)==0, "errnp = %s\n", strerror(errno))) {
Szabolcs Nagy 0c5fb5
			TEST(st.st_uid==geteuid(), "%d vs %d\n", (int)st.st_uid, (int)geteuid());
Szabolcs Nagy 0c5fb5
			TEST(st.st_gid==getegid(), "%d vs %d\n", (int)st.st_uid, (int)geteuid());
Szabolcs Nagy 0c5fb5
			TEST(st.st_size==5, "%jd vs 5\n", (intmax_t)st.st_size);
Szabolcs Nagy 0c5fb5
		}
Szabolcs Nagy 0c5fb5
		fclose(f);
Szabolcs Nagy 0c5fb5
	}
Szabolcs Nagy 0c5fb5
Szabolcs Nagy 0c5fb5
	return test_status;
Szabolcs Nagy 0c5fb5
}