diff options
| -rw-r--r-- | gnu/packages/virtualization.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index d451b8529ec..005421aaec6 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm | |||
| @@ -1311,9 +1311,16 @@ pretty simple, REST API.") | |||
| 1311 | (substitute* "scripts/meson-install-dirs.py" | 1311 | (substitute* "scripts/meson-install-dirs.py" |
| 1312 | (("destdir = .*") | 1312 | (("destdir = .*") |
| 1313 | "destdir = '/tmp'")))) | 1313 | "destdir = '/tmp'")))) |
| 1314 | (add-after 'unpack 'use-absolute-dnsmasq | ||
| 1315 | (lambda* (#:key inputs #:allow-other-keys) | ||
| 1316 | (let ((dnsmasq (search-input-file inputs "sbin/dnsmasq"))) | ||
| 1317 | (substitute* "src/util/virdnsmasq.c" | ||
| 1318 | (("#define DNSMASQ \"dnsmasq\"") | ||
| 1319 | (string-append "#define DNSMASQ \"" dnsmasq "\"")))))) | ||
| 1314 | (add-before 'configure 'disable-broken-tests | 1320 | (add-before 'configure 'disable-broken-tests |
| 1315 | (lambda _ | 1321 | (lambda _ |
| 1316 | (let ((tests (list "commandtest" ; hangs idly | 1322 | (let ((tests (list "commandtest" ; hangs idly |
| 1323 | "networkxml2conftest" ; fails with absolute dnsmasq | ||
| 1317 | "qemuxml2argvtest" ; fails | 1324 | "qemuxml2argvtest" ; fails |
| 1318 | "virnetsockettest"))) ; tries to network | 1325 | "virnetsockettest"))) ; tries to network |
| 1319 | (substitute* "tests/meson.build" | 1326 | (substitute* "tests/meson.build" |
