|
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 |
}
|