Retro68/gcc/libphobos/testsuite/libphobos.shared/libloaddep.d
Wolfgang Thaller 6fbf4226da gcc-9.1
2019-06-20 20:10:10 +02:00

14 lines
359 B
D

import core.runtime, core.sys.posix.dlfcn;
extern(C) alias RunTests = int function();
extern(C) int runDepTests(const char* name)
{
auto h = rt_loadLibrary(name);
if (h is null) return false;
auto runTests = cast(RunTests).dlsym(h, "runTests");
assert(runTests !is null);
if (!runTests()) return false;
return rt_unloadLibrary(h);
}