1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
#ifndef HALIDE_TEST_DIRS_H
#define HALIDE_TEST_DIRS_H
// This file may be used by AOT tests, so it deliberately does not
// include Halide.h
#include <cassert>
#include <stdlib.h>
#include <string>
#ifdef _WIN32
#ifndef NOMINMAX
#define NOMINMAX
#endif
#include <windows.h>
#else
#include <stdio.h>
#include <sys/stat.h>
#include <unistd.h>
#endif
namespace Halide {
namespace Internal {
namespace Test {
inline std::string get_env_variable(const char *name) {
#ifdef _MSC_VER
char buf[MAX_PATH];
size_t read = 0;
if (getenv_s(&read, buf, name) != 0) read = 0;
if (read) {
return std::string(buf);
}
#else
char *buf = getenv(name);
if (buf) {
return std::string(buf);
}
#endif
return "";
}
// Return absolute path to the current directory. Return empty string if
// an error occurs. (Does not assert.)
inline std::string get_current_directory() {
#ifdef _WIN32
std::string dir;
char p[MAX_PATH];
DWORD ret = GetCurrentDirectoryA(MAX_PATH, p);
if (ret != 0) {
dir = p;
}
return dir;
#else
std::string dir;
char *p = getcwd(nullptr, 0);
if (p) {
dir = p;
free(p);
}
return dir;
#endif
}
} // namespace Test
/** Return the path to a directory that can be safely written to
* when running tests; the contents directory may or may not outlast
* the lifetime of test itself (ie, the files may be cleaned up after test
* execution). The path is guaranteed to be an absolute path and end in
* a directory separator, so a leaf filename can simply be appended. It
* is not guaranteed that this directory will be empty. If the path cannot
* be created, the function will assert-fail and return an invalid path.
*/
inline std::string get_test_tmp_dir() {
// If TEST_TMPDIR is specified, we assume it is a valid absolute path
std::string dir = Test::get_env_variable("TEST_TMPDIR");
if (dir.empty()) {
// If not specified, use current dir.
dir = Test::get_current_directory();
}
bool is_absolute = dir.size() >= 1 && dir[0] == '/';
char sep = '/';
#ifdef _WIN32
// Allow for C:\whatever or c:/whatever on Windows
if (dir.size() >= 3 && dir[1] == ':' && (dir[2] == '\\' || dir[2] == '/')) {
is_absolute = true;
sep = dir[2];
}
#endif
if (!is_absolute) {
assert(false && "get_test_tmp_dir() is not an absolute path");
return "/unlikely_path/";
}
if (dir[dir.size() - 1] != sep) {
dir += sep;
}
return dir;
}
} // namespace Internal
} // namespace Halide
#endif // HALIDE_TEST_DIRS_H
|
