network_reachable() {
    if [ -n "$GUIX_DISABLE_NETWORK_TESTS" ]; then
		exit 77
    fi
    if ! guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null; then
        exit 77
    fi
}