tests: base: Add host name resolution tests.
* gnu/tests/base.scm (run-basic-test)["host name resolution", "host not found"]: New tests.
This commit is contained in:
parent
9009538d84
commit
858d372c98
|
@ -150,6 +150,27 @@ info --version")
|
||||||
get-string-all)
|
get-string-all)
|
||||||
marionette)))
|
marionette)))
|
||||||
|
|
||||||
|
(test-assert "host name resolution"
|
||||||
|
(match (marionette-eval
|
||||||
|
'(begin
|
||||||
|
;; Wait for nscd or our requests go through it.
|
||||||
|
(use-modules (gnu services herd))
|
||||||
|
(start-service 'nscd)
|
||||||
|
|
||||||
|
(list (getaddrinfo "localhost")
|
||||||
|
(getaddrinfo #$(operating-system-host-name os))))
|
||||||
|
marionette)
|
||||||
|
((((? vector?) ..1) ((? vector?) ..1))
|
||||||
|
#t)
|
||||||
|
(x
|
||||||
|
(pk 'failure x #f))))
|
||||||
|
|
||||||
|
(test-equal "host not found"
|
||||||
|
#f
|
||||||
|
(marionette-eval
|
||||||
|
'(false-if-exception (getaddrinfo "does-not-exist"))
|
||||||
|
marionette))
|
||||||
|
|
||||||
(test-assert "screendump"
|
(test-assert "screendump"
|
||||||
(begin
|
(begin
|
||||||
(marionette-control (string-append "screendump " #$output
|
(marionette-control (string-append "screendump " #$output
|
||||||
|
|
Loading…
Reference in New Issue