source: tests/meta/dumpable.cfa @ adf03a6

pthread-emulationqualifiedEnum
Last change on this file since adf03a6 was 0521a1a, checked in by Thierry Delisle <tdelisle@…>, 8 months ago

Fixed meta dumpable

  • Property mode set to 100644
File size: 3.6 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// dumpable.cfa -- Check if everything looks correctly set to dump core
8//
9// Author           : Thierry Delisle
10// Created On       : Wed Jan 05 13:53:22 2022
11// Last Modified By :
12// Last Modified On :
13// Update Count     :
14//
15
16#include <errno.h>
17#include <limits.h>
18#include <string.h>
19
20#include <fstream.hfa>
21
22extern "C" {
23        #include <fcntl.h>
24        #include <unistd.h>
25        #include <sys/prctl.h>
26        #include <sys/resource.h>
27        #include <sys/statvfs.h>
28        #include <sys/stat.h>
29        #include <sys/types.h>
30}
31
32void check_ulimit() {
33        struct rlimit rlp;
34        getrlimit(RLIMIT_CORE, &rlp);
35        if(rlp.rlim_cur < 536870912) {
36                serr | "Soft core limit is less than ~500Mb: " | rlp.rlim_cur;
37        }
38
39        if(rlp.rlim_max < 536870912) {
40                serr | "Hard core limit is less than ~500Mb: " | rlp.rlim_max;
41        }
42}
43
44void check_permission() {
45        {
46                char myExe[PATH_MAX];
47                ssize_t n = readlink("/proc/self/exe", myExe, sizeof(myExe));
48                if (n < 0) {
49                        perror("readlink(/proc/self/exe) error");
50                        return 1;
51                }
52                myExe[n] = '\0';
53
54                if(int r = access(myExe, F_OK); r != 0) serr | "Expected current executable does not exist!" | r | errno;
55                if(int r = access(myExe, R_OK); r != 0) serr | "No read access for current executable" | r | errno;
56        }
57
58        {
59                char myCwd[PATH_MAX];
60                if (getcwd(myCwd, sizeof(myCwd)) == 0p) {
61                        perror("getcwd() error");
62                        return;
63                }
64
65                if(access(myCwd, F_OK) != 0) serr | "Expected current working directory does not exist!";
66                if(access(myCwd, R_OK) != 0) serr | "No read access for current working directory";
67                if(access(myCwd, W_OK) != 0) serr | "No write access for current working directory";
68        }
69}
70
71void check_free_space() {
72        struct statvfs buf;
73        if(statvfs(".", &buf) != 0) {
74                perror("statvfs() error");
75                return;
76        }
77
78        uint64_t avail = buf.f_bavail;
79        avail *= buf.f_bsize;
80        if(avail < 536870912_l64u) {
81                serr | "Available diskspace is less than ~500Mb: " | avail;
82        }
83
84        if(buf.f_favail < 10) {
85                serr | "Available inodes is less than 10: " | buf.f_favail;
86        }
87
88        if(buf.f_flag & ST_RDONLY) {
89                serr | "Filesystem is read only";
90        }
91}
92
93void check_noconflict() {
94        char * name = "./core";
95        if(access("./core", F_OK) == 0) serr | "A file of the core name ('" | name | "') already exists";
96}
97
98void check_dumpflag() {
99        int r = prctl(PR_GET_DUMPABLE, 0, 0, 0, 0);
100        if(r < 0) {
101                perror("prctl(PR_GET_DUMPABLE) error");
102                return;
103        }
104
105        if(r != 1) serr | "dumpable attribute not set to 1 \"(SUID_DUMP_USER, process is dumpable)\", was" | r;
106}
107
108void check_core_pattern() {
109        int ret;
110        int cp = open("/proc/sys/kernel/core_pattern", 0, O_RDONLY);
111        if(cp < 0) {
112                perror("open(/proc/sys/kernel/core_pattern, O_RDONLY) error");
113                return;
114        }
115
116        try {
117                const char * expected = "core\n";
118                const int sz = sizeof("core\n");
119                char buf[512];
120                ret = read(cp, buf, 512);
121                if(ret < 0) {
122                        perror("first core pattern read error");
123                        return;
124                }
125                ret = strncmp(expected, buf, sz - 1);
126                if(ret != 0) {
127                        serr | "/proc/sys/kernel/core_pattern does not contain 'core', was:" | nl | nl | buf | nl
128                             | "Test script expect cores files to be dumped with name 'core' in current working directory." | nl
129                             | "Apport is not supported, it should be deactivated in /etc/default/apport for the test suite to work with core dumps.";
130
131                        return;
132                }
133        }
134        finally {
135                ret = close(cp);
136                if(ret < 0) perror("close(/proc/sys/kernel/core_pattern) error");
137        }
138
139}
140
141int main() {
142        check_ulimit();
143
144        check_permission();
145
146        check_free_space();
147
148        check_noconflict();
149
150        check_dumpflag();
151
152        check_core_pattern();
153
154        sout | "Done";
155}
Note: See TracBrowser for help on using the repository browser.