xref: /netbsd-src/external/gpl3/gcc.old/dist/libphobos/testsuite/libphobos.shared/load_linkdep.d (revision 9fb66d812c00ebfb445c0b47dea128f32aa6fe96)
1 import core.runtime;
2 import core.stdc.string;
3 import core.sys.posix.dlfcn;
4 
5 extern(C) alias RunDepTests = int function();
6 
7 void main(string[] args)
8 {
9     auto name = args[0] ~ '\0';
10     const pathlen = strrchr(name.ptr, '/') - name.ptr + 1;
11     name = name[0 .. pathlen] ~ "liblinkdep.so";
12 
13     auto h = Runtime.loadLibrary(name);
14     assert(h);
15     auto runDepTests = cast(RunDepTests)dlsym(h, "runDepTests");
16     assert(runDepTests());
17     assert(Runtime.unloadLibrary(h));
18 }
19