add new tests from libc-testsuit (fcntl, f[w]scanf, setjmp, socket, stat)

[libc-test] / src / functional / stat.c

diff --git a/src/functional/stat.c b/src/functional/stat.c
new file mode 100644 (file)
index 0000000..12abd7c
--- /dev/null
+++ b/src/functional/stat.c
@@ -0,0 +1,43 @@
+#include <sys/stat.h>
+#include <errno.h>
+#include <string.h>
+#include <stdio.h>
+#include <time.h>
+#include <stdint.h>
+#include <unistd.h>
+#include "test.h"
+
+#define TEST(c, ...) ((c) ? 1 : (error(#c" failed: " __VA_ARGS__),0))
+
+int main(void)
+{
+       struct stat st;
+       FILE *f;
+       time_t t;
+
+       if (TEST(stat(".",&st)==0, "errno = %s\n", strerror(errno))) {
+               TEST(S_ISDIR(st.st_mode), "\n");
+               TEST(st.st_nlink>0, "%ju\n", (uintmax_t)st.st_nlink);
+               t = time(0);
+               TEST(st.st_ctime<=t, "%jd > %jd\n", (intmax_t)st.st_ctime, (intmax_t)t);
+               TEST(st.st_mtime<=t, "%jd > %jd\n", (intmax_t)st.st_mtime, (intmax_t)t);
+               TEST(st.st_atime<=t, "%jd > %jd\n", (intmax_t)st.st_atime, (intmax_t)t);
+       }
+
+       if (TEST(stat("/dev/null",&st)==0, "errno = %s\n", strerror(errno))) {
+               TEST(S_ISCHR(st.st_mode), "\n");
+       }
+
+       if ((f = tmpfile())) {
+               fputs("hello", f);
+               fflush(f);
+               if (TEST(fstat(fileno(f),&st)==0, "errnp = %s\n", strerror(errno))) {
+                       TEST(st.st_uid==geteuid(), "%d vs %d\n", (int)st.st_uid, (int)geteuid());
+                       TEST(st.st_gid==getegid(), "%d vs %d\n", (int)st.st_uid, (int)geteuid());
+                       TEST(st.st_size==5, "%jd vs 5\n", (intmax_t)st.st_size);
+               }
+               fclose(f);
+       }
+
+       return test_status;
+}