GNU bug report logs - #51391
Guile-SSH 0.13.1 test suite fails non-deterministically

Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.

Package: guix; Reported by: Maxim Cournoyer <maxim.cournoyer@HIDDEN>; dated Mon, 25 Oct 2021 18:15:01 UTC; Maintainer for guix is bug-guix@HIDDEN.

Message received at submit <at> debbugs.gnu.org:


Received: (at submit) by debbugs.gnu.org; 25 Oct 2021 18:14:56 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Mon Oct 25 14:14:56 2021
Received: from localhost ([127.0.0.1]:44237 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1mf4Up-0004SW-4K
	for submit <at> debbugs.gnu.org; Mon, 25 Oct 2021 14:14:56 -0400
Received: from lists.gnu.org ([209.51.188.17]:45474)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <maxim.cournoyer@HIDDEN>) id 1mf4Um-0004SO-Ti
 for submit <at> debbugs.gnu.org; Mon, 25 Oct 2021 14:14:53 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:56734)
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <maxim.cournoyer@HIDDEN>)
 id 1mf4Ul-0005NI-Hs
 for bug-guix@HIDDEN; Mon, 25 Oct 2021 14:14:52 -0400
Received: from mail-qk1-x730.google.com ([2607:f8b0:4864:20::730]:41959)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
 (Exim 4.90_1) (envelope-from <maxim.cournoyer@HIDDEN>)
 id 1mf4Uf-0003DG-JA
 for bug-guix@HIDDEN; Mon, 25 Oct 2021 14:14:49 -0400
Received: by mail-qk1-x730.google.com with SMTP id r15so12574278qkp.8
 for <bug-guix@HIDDEN>; Mon, 25 Oct 2021 11:14:44 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112;
 h=from:to:subject:date:message-id:mime-version
 :content-transfer-encoding;
 bh=6uafYS2NZbUe+cB2UcVYkVkP4g3NULDMXvS7rSi489o=;
 b=UaWRKFUt36S983Xc1h0j1QzNc5cawLfDXkPxEyZVoSbT3YivDKg0pAxf9j/Tp/HzhO
 amujQfdUJ2tEcPsv6dZeorF2UJjjD6O1MyF2Ho1c3yhXanM3CgOxunq3Hdw9ItPsl+6v
 2FW01tqalQQ6UlUEEsaRrfbxiPIIN+DXL6sY5qL3Af+8ocBdcxWfsYqZ0V+zdBtXPJMp
 yYMaAuC2m0U4yNGVAcXMQEqrkyOhIItmDQ3Aqf24eQHadGgmufN0QTf29akE3kHSnZtb
 SOAQ3+Db8p61QeLZoAcQQi+rhwzzgCUvpYGdleYUDIUZ9xQbkGp9Rf8KVP9JM1F7+CCg
 vF2A==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20210112;
 h=x-gm-message-state:from:to:subject:date:message-id:mime-version
 :content-transfer-encoding;
 bh=6uafYS2NZbUe+cB2UcVYkVkP4g3NULDMXvS7rSi489o=;
 b=i/A9TCFmnoB/o2Ic7qTHyg3/LgF+PFjtzOybxOSQKlis2lnv4+3tUo+B3apx68LK2g
 aGYtWsF4pegXFGqEgjqFKNLiB0CXvVLK3Vd3EMzQBFX0GoJsgx+vsTdyrowLPwGegSCT
 s4PJzgt+ypSRg3VXJJMtON0ADFF/51v+7ysgCaKNlcTrhbLaUzxT+fw2FHXK0I/s5X4T
 roHvxbk/mSJyFn3xS+3VzOWr9a8Hl3Nkd1MLsWjHwRTCgYzZxf6zckjm+93Wc01DZOzb
 yj3zOyAnLrnRLo+En488MWdECwSc/xgUVzgxIAVLL1n6gsKkDT3eVCjyNKbPoN8r4weh
 hHlA==
X-Gm-Message-State: AOAM531IHDZnt0odNZZZZ1mUbt//iS+JMaDO/WtTpfa0iJ38XBf2h+aE
 P+ZXhmoDWBRjrt9tD4deJ1+IOVXmUkgkUg==
X-Google-Smtp-Source: ABdhPJxpIdtTzbW7h3m5GbZi73JuWZDpgEMO4SFNO6lwz8MbEZNq2oI8KQR8MRqazJA9uf+PTrSeBg==
X-Received: by 2002:a05:620a:404f:: with SMTP id
 i15mr14694301qko.460.1635185682937; 
 Mon, 25 Oct 2021 11:14:42 -0700 (PDT)
Received: from kwak ([70.50.251.9])
 by smtp.gmail.com with ESMTPSA id t11sm8927526qkm.92.2021.10.25.11.14.42
 for <bug-guix@HIDDEN>
 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256);
 Mon, 25 Oct 2021 11:14:42 -0700 (PDT)
From: Maxim Cournoyer <maxim.cournoyer@HIDDEN>
To: bug-guix <bug-guix@HIDDEN>
Subject: Guile-SSH 0.13.1 test suite fails non-deterministically
Date: Mon, 25 Oct 2021 14:14:40 -0400
Message-ID: <87pmrtdl9r.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
Received-SPF: pass client-ip=2607:f8b0:4864:20::730;
 envelope-from=maxim.cournoyer@HIDDEN; helo=mail-qk1-x730.google.com
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001,
 RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001,
 SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -1.3 (-)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.3 (--)

Hello Guix!

I encountered the following Guile-SSH test failure while testing the
core-updates-frozen-batched-changes branch:

--8<---------------cut here---------------start------------->8---
Test suite failed, dumping logs.

--- ./tests/test-suite.log ------------------------------------------------=
--

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
   Guile-SSH 0.13.1: tests/test-suite.log
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

# TOTAL: 11
# PASS:  10
# SKIP:  0
# XFAIL: 0
# FAIL:  1
# XPASS: 0
# ERROR: 0

.. contents:: :depth: 2

FAIL: session
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

%%%% Starting test session
Group begin: session
Test begin:
  test-name: "%make-session"
  source-file: "tests/session.scm"
  source-line: 38
  source-form: (test-assert "%make-session" (%make-session))
Test end:
  result-kind: pass
  actual-value: #<session #<undefined>@#<undefined>:22 (disconnected) 7fffe=
fd6dfe0>
Test begin:
  test-name: "%make-session, gc test"
  source-file: "tests/session.scm"
  source-line: 41
  source-form: (test-assert "%make-session, gc test" (begin (set-log-userda=
ta! "%make-session, gc test") (let ((max-sessions 1000)) (do ((idx 1 (+ idx=
 1))) ((> idx max-sessions)) (when (zero? (euclidean-remainder idx 100)) (f=
ormat-log/scm (quote nolog) "" (format #f "~d / ~d sessions created ..." id=
x max-sessions))) (%make-session)) #t)))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "session?"
  source-file: "tests/session.scm"
  source-line: 51
  source-form: (test-assert "session?" (let ((session (%make-session)) (x "=
string")) (and (session? session) (not (session? x)))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "comparison of sessions"
  source-file: "tests/session.scm"
  source-line: 57
  source-form: (test-assert "comparison of sessions" (let ((s1 (%make-sessi=
on)) (s2 (%make-session))) (and (equal? s1 s1) (not (equal? s1 s2)))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "session-set!, valid values"
  source-file: "tests/session.scm"
  source-line: 63
  source-form: (test-assert "session-set!, valid values" (let ((session (%m=
ake-session)) (options (quasiquote ((host "localhost") (port 22) (bindaddr =
"127.0.0.1") (user "Random J. User") (timeout 15) (timeout-usec 15000) (ssh=
1 #f #t) (ssh2 #f #t) (log-verbosity nolog rare protocol packet functions n=
olog) (compression-level 1 2 3 4 5 6 7 8 9) (compression "yes" "no") (callb=
acks ((user-data . "hello") (global-request-callback unquote (const #f)))))=
)) (res #t)) (if (>=3D %libssh-minor-version 8) (set! options (cons (quote =
(nodelay #f #t)) options))) (for-each (lambda (opt) (for-each (lambda (val)=
 (session-set! session (car opt) val)) (cdr opt))) options) res))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "session-set!, invalid values"
  source-file: "tests/session.scm"
  source-line: 93
  source-form: (test-assert "session-set!, invalid values" (let ((session (=
%make-session)) (options (quote ((host 12345 #t) (port "string" -22) (binda=
ddr 12345 -12345) (user 12345 -12345) (timeout "string" -15) (timeout-usec =
"string" -15000) (ssh1 12345 "string") (ssh2 12345 "string") (log-verbosity=
 "string" -1 0 1 2 3 4 5) (compression 12345) (compression-level -1 0 10) (=
callbacks "not a list" ((global-request-callback . #f)))))) (res #t)) (if (=
>=3D %libssh-minor-version 8) (set! options (cons (quote (nodelay 12345 "st=
ring")) options))) (for-each (lambda (opt) (for-each (lambda (val) (catch #=
t (lambda () (session-set! session (car opt) val) (let* ((r (test-runner-cu=
rrent)) (l (test-runner-aux-value r))) (format l "  opt: ~a, val: ~a -- pas=
sed mistakenly~%" (car opt) val) (set! res #f))) (const #t))) (cdr opt))) o=
ptions) res))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "session-set!, invalid option type"
  source-file: "tests/session.scm"
  source-line: 130
  source-form: (test-error "session-set!, invalid option type" (quote wrong=
-type-arg) (let ((session (%make-session))) (session-set! session "non-vali=
d type" "value")))
Test end:
  result-kind: pass
  actual-error: (wrong-type-arg "session-set!" "Wrong type argument in posi=
tion ~A: ~S" (2 "non-valid type") ("non-valid type"))
  expected-error: wrong-type-arg
Test begin:
  test-name: "session-get"
  source-file: "tests/session.scm"
  source-line: 135
  source-form: (test-assert "session-get" (let* ((host "example.com") (port=
 12345) (user "alice") (proxycommand "test") (callbacks (quote ((user-data =
. "test")))) (session (make-session #:host host #:port port #:user user #:i=
dentity %rsakey #:proxycommand proxycommand #:callbacks callbacks))) (and (=
string=3D? (session-get session (FAIL session.scm (exit status: 139)


error: in phase 'check': uncaught exception:
%exception #<&invoke-error program: "make" arguments: ("check" "-j" "24") e=
xit-status: 2 term-signal: #f stop-signal: #f>=20
phase `check' failed after 4.8 seconds
command "make" "check" "-j" "24" failed with status 2
builder for `/gnu/store/4winz6sffwfw5xkvkig1n8chzfxg51an-guile-ssh-0.13.1.d=
rv' failed with exit code 1
@ build-failed /gnu/store/4winz6sffwfw5xkvkig1n8chzfxg51an-guile-ssh-0.13.1=
.drv - 1 builder for `/gnu/store/4winz6sffwfw5xkvkig1n8chzfxg51an-guile-ssh=
-0.13.1.drv' failed with exit code 1
--8<---------------cut here---------------end--------------->8---

It seems easy to trigger it by building tens of times in a row (say,
with --rounds=3D100).

Here's anothe, different failure:

--8<---------------cut here---------------start------------->8---
Test suite failed, dumping logs.

--- ./tests/test-suite.log ------------------------------------------------=
--

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
   Guile-SSH 0.13.1: tests/test-suite.log
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

# TOTAL: 11
# PASS:  10
# SKIP:  0
# XFAIL: 0
# FAIL:  1
# XPASS: 0
# ERROR: 0

.. contents:: :depth: 2

FAIL: dist
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

%%%% Starting test dist
Group begin: dist
Test begin:
  test-name: "make-node"
  source-file: "tests/dist.scm"
  source-line: 44
  source-form: (test-assert "make-node" (begin (set-log-userdata! "make-nod=
e") (run-client-test (lambda (server) (start-server/exec server (const #t))=
) (lambda () (call-with-connected-session/shell (lambda (session) (let ((n =
(make-node session))) (and n (eq? (node-session n) session)))))))))
Test end:
  result-kind: fail
  actual-value: #f
  actual-error: (quit 1)
Test begin:
  test-name: "split, 1"
  source-file: "tests/dist.scm"
  source-line: 57
  source-form: (test-equal "split, 1" (quote ((a b) (c d) (e f g))) (split =
(quote (a b c d%%%% Starting test dist  (Writing full log to "dist.log")
tests/dist.scm:44: FAIL make-node
# of expected passes      18
# of unexpected failures  1
lit, 2"
  source-file: "tests/dist.scm"
  source-line: 61
  source-form: (test-equal "split, 2" (quote ((a))) (split (quote (a)) 2))
Test end:
  result-kind: pass
  actual-value: ((a))
  expected-value: ((a))
Test begin:
  test-name: "make-job"
  source-file: "tests/dist.scm"
  source-line: 66
  source-form: (test-assert "make-job" (begin (set-log-userdata! "make-job"=
) (run-client-test (lambda (server) (start-server/exec server (const #f))) =
(lambda () (call-with-connected-session/shell (lambda (session) (let* ((nod=
e (make-node session)) (data (quote (1 2 3))) (proc (quote (lambda (n) (#{1=
+}# n)))) (j (make-job (quote map) node data proc))) (and (eq? (job-type j)=
 (quote map)) (eq? (job-node j) node) (eq? (job-data j) data) (eq? (job-pro=
c j) proc)))))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "set-job-node"
  source-file: "tests/dist.scm"
  source-line: 85
  source-form: (test-assert "set-job-node" (begin (set-log-userdata! "set-j=
ob-node") (run-client-test (lambda (server) (start-server/exec server (cons=
t #t))) (lambda () (call-with-connected-session/shell (lambda (session) (le=
t* ((n1 (make-node session)) (n2 (make-node session)) (data (quote ())) (pr=
oc (quote (lambda (n) (#{1+}# n)))) (j1 (make-job (quote map) n1 data proc)=
) (j2 (set-job-node j1 n2))) (and (not (eq? j1 j2)) (eq? (job-type j1) (job=
-type j2)) (eq? (job-node j1) n1) (eq? (job-node j2) n2) (eq? (job-data j1)=
 (job-data j2)) (eq? (job-proc j1) (job-proc j2))))))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "hand-out-job, invalid type"
  source-file: "tests/dist.scm"
  source-line: 107
  source-form: (test-assert "hand-out-job, invalid type" (begin (set-log-us=
erdata! "hand-out-job, invalid type") (catch #t (lambda () (run-client-test=
 (lambda (server) (start-server/exec server (const #t))) (lambda () (call-w=
ith-connected-session/shell (lambda (session) (let ((n (make-node session))=
) (hand-out-job (make-job (quote invalid-job) n (quote ()) (const #t)))))))=
) #f) (const #t))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "assign-eval"
  source-file: "tests/dist.scm"
  source-line: 120
  source-form: (test-assert "assign-eval" (begin (set-log-userdata! "assign=
-eval") (run-client-test (lambda (server) (start-server/exec server (const =
#t))) (lambda () (call-with-connected-session/shell (lambda (session) (let*=
 ((nodes (make-list 2 (make-node session))) (exprs (make-list 10 (quote (la=
mbda (x) (#{1+}# x))))) (jobs (assign-eval nodes exprs))) (and (eq? (length=
 jobs) 2) (eq? (job-type (car jobs)) (quote eval)) (eq? (length (job-proc (=
car jobs))) 5)))))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-get-result"
  source-file: "tests/dist.scm"
  source-line: 141
  source-form: (test-assert "rrepl-get-result" (receive (result eval-num mo=
dule-name lang) (call-with-input-string "scheme@(guile-user)> $0 =3D test" =
rrepl-get-result) (and (eq? result (quote test)) (=3D eval-num 0) (string=
=3D? module-name "(guile-user)") (string=3D? lang "scheme"))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-get-result, unspecified"
  source-file: "tests/dist.scm"
  source-line: 150
  source-form: (test-assert "rrepl-get-result, unspecified" (receive (resul=
t eval-num module-name lang) (call-with-input-string "scheme@(guile-user)> =
" rrepl-get-result) (and (eq? result *unspecified*) (eq? eval-num *unspecif=
ied*) (string=3D? module-name "(guile-user)") (string=3D? lang "scheme"))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-get-result, error"
  source-file: "tests/dist.scm"
  source-line: 159
  source-form: (test-assert "rrepl-get-result, error" (begin (set-log-userd=
ata! "rrepl-get-result, error") (catch #t (lambda () (call-with-input-strin=
g "scheme@(guile-user)> ERROR: error." rrepl-get-result) #f) (lambda (key .=
 args) (if (equal? key (quote node-repl-error)) (let* ((message (cadr args)=
) (result (string=3D? message "scheme@(guile-user)> ERROR: error."))) (unle=
ss result (format-log/scm (quote nolog) "rrepl-get-result, error" (string-a=
ppend "Messages do not match: " "expected \"~a\", got \"~a\"") result "sche=
me@(guile-user)> ERROR: error.")) result) (begin (format-log/scm (quote nol=
og) "rrepl-get-result, error" (string-append "Errors do not match: " "expec=
ted '~a', got '~a' (args: ~a)") (quote node-repl-error) key args) #f))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-get-result, compilation error"
  source-file: "tests/dist.scm"
  source-line: 165
  source-form: (test-assert "rrepl-get-result, compilation error" (begin (s=
et-log-userdata! "rrepl-get-result, compilation error") (catch #t (lambda (=
) (call-with-input-string (string-append "scheme@(guile-user)> While compil=
ing expression:\n" "ERROR: no code for module (module-that-doesnt-exist)") =
rrepl-get-result) #f) (lambda (key . args) (if (equal? key (quote node-repl=
-error)) (let* ((message (cadr args)) (result (string=3D? message "scheme@(=
guile-user)> While compiling expression:\nERROR: no code for module (module=
-that-doesnt-exist)"))) (unless result (format-log/scm (quote nolog) "rrepl=
-get-result, compilation error" (string-append "Messages do not match: " "e=
xpected \"~a\", got \"~a\"") result "scheme@(guile-user)> While compiling e=
xpression:\nERROR: no code for module (module-that-doesnt-exist)")) result)=
 (begin (format-log/scm (quote nolog) "rrepl-get-result, compilation error"=
 (string-append "Errors do not match: " "expected '~a', got '~a' (args: ~a)=
") (quote node-repl-error) key args) #f))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-get-result, unbound variable error"
  source-file: "tests/dist.scm"
  source-line: 172
  source-form: (test-assert "rrepl-get-result, unbound variable error" (beg=
in (set-log-userdata! "rrepl-get-result, unbound variable error") (catch #t=
 (lambda () (call-with-input-string (string-append (string-append "scheme@(=
guile-user)> ;;; socket:9:7: warning: " "possibly unbound variable `e'\nsoc=
ket:9:7: " "In procedure #<procedure 1a44920 at socket:9:7 ()>:\n" "socket:=
9:7: In procedure module-lookup: Unbound variable: e")) rrepl-get-result) #=
f) (lambda (key . args) (if (equal? key (quote node-repl-error)) (let* ((me=
ssage (cadr args)) (result (string=3D? message "scheme@(guile-user)> ;;; so=
cket:9:7: warning: possibly unbound variable `e'\nsocket:9:7: In procedure =
#<procedure 1a44920 at socket:9:7 ()>:\nsocket:9:7: In procedure module-loo=
kup: Unbound variable: e"))) (unless result (format-log/scm (quote nolog) "=
rrepl-get-result, unbound variable error" (string-append "Messages do not m=
atch: " "expected \"~a\", got \"~a\"") result "scheme@(guile-user)> ;;; soc=
ket:9:7: warning: possibly unbound variable `e'\nsocket:9:7: In procedure #=
<procedure 1a44920 at socket:9:7 ()>:\nsocket:9:7: In procedure module-look=
up: Unbound variable: e")) result) (begin (format-log/scm (quote nolog) "rr=
epl-get-result, unbound variable error" (string-append "Errors do not match=
: " "expected '~a', got '~a' (args: ~a)") (quote node-repl-error) key args)=
 #f))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-get-result, unknown # object error"
  source-file: "tests/dist.scm"
  source-line: 185
  source-form: (test-assert "rrepl-get-result, unknown # object error" (beg=
in (set-log-userdata! "rrepl-get-result, unknown # object error") (catch #t=
 (lambda () (call-with-input-string (string-append "scheme@(guile-user)> $4=
 =3D " "#<session #<undefined>@#<undefined>:22 (disconnected) 453fff>") rre=
pl-get-result) #f) (lambda (key . args) (if (equal? key (quote node-repl-er=
ror)) (let* ((message (cadr args)) (result (string=3D? message "Reader erro=
r: #f: #<unknown port>:1:3: Unknown # object: (\"#<\"): scheme@(guile-user)=
> $4 =3D #<session #<undefined>@#<undefined>:22 (disconnected) 453fff>"))) =
(unless result (format-log/scm (quote nolog) "rrepl-get-result, unknown # o=
bject error" (string-append "Messages do not match: " "expected \"~a\", got=
 \"~a\"") result "Reader error: #f: #<unknown port>:1:3: Unknown # object: =
(\"#<\"): scheme@(guile-user)> $4 =3D #<session #<undefined>@#<undefined>:2=
2 (disconnected) 453fff>")) result) (begin (format-log/scm (quote nolog) "r=
repl-get-result, unknown # object error" (string-append "Errors do not matc=
h: " "expected '~a', got '~a' (args: ~a)") (quote node-repl-error) key args=
) #f))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-get-result, elisp"
  source-file: "tests/dist.scm"
  source-line: 194
  source-form: (test-assert "rrepl-get-result, elisp" (receive (result eval=
-num module-name lang) (call-with-input-string "elisp@(guile-user)> $0 =3D =
#nil" rrepl-get-result) (and (eq? result (quote #nil)) (=3D eval-num 0) (st=
ring=3D? module-name "(guile-user)") (string=3D? lang "elisp"))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-get-result, multiple values"
  source-file: "tests/dist.scm"
  source-line: 203
  source-form: (test-assert "rrepl-get-result, multiple values" (receive (r=
esult eval-num module-name lang) (call-with-input-string "scheme@(guile-use=
r)> $0 =3D v1\n$1 =3D v2" rrepl-get-result) (and (vector? eval-num) (vector=
? result) (eq? (vector-ref result 0) (quote v1)) (eq? (vector-ref result 1)=
 (quote v2)) (=3D (vector-ref eval-num 0) 0) (=3D (vector-ref eval-num 1) 1=
) (string=3D? module-name "(guile-user)") (string=3D? lang "scheme"))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-skip-to-prompt, valid input"
  source-file: "tests/dist.scm"
  source-line: 217
  source-form: (test-assert "rrepl-skip-to-prompt, valid input" (begin (cal=
l-with-input-string "Enter `,help' for help." (lambda (port) (rrepl-skip-to=
-prompt port))) #t))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "rrepl-skip-to-prompt, invalid input"
  source-file: "tests/dist.scm"
  source-line: 224
  source-form: (test-assert "rrepl-skip-to-prompt, invalid input" (begin (s=
et-log-userdata! "rrepl-skip-to-prompt, invalid input") (catch #t (lambda (=
) (call-with-input-string "invalid input" (lambda (port) (rrepl-skip-to-pro=
mpt port))) #f) (lambda (key . args) (let ((result (equal? key (quote node-=
error)))) (unless result (format-log/scm (quote nolog) "rrepl-skip-to-promp=
t, invalid input" (string-append "Errors do not match: " "expected ~a, got =
~a (args: ~a)") (quote node-error) key args)) result)))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "node-guile-version, valid response"
  source-file: "tests/dist.scm"
  source-line: 229
  source-form: (test-assert "node-guile-version, valid response" (begin (se=
t-log-userdata! "node-guile-version, valid response") (run-client-test (lam=
bda (server) (start-server/exec server (const #t))) (lambda () (call-with-c=
onnected-session/shell (lambda (session) (format-log/scm (quote nolog) "cli=
ent" "session: ~a" session) (let ((n (make-node session))) (string=3D? (nod=
e-guile-version n) "GNU Guile 2.2.3"))))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "with-ssh"
  source-file: "tests/dist.scm"
  source-line: 249
  source-form: (test-assert "with-ssh" (begin (set-log-userdata! "with-ssh"=
) (run-client-test (lambda (server) (start-server/exec server (lambda (sess=
ion message channel) (let ((line (read-line channel))) (format-log/scm (quo=
te nolog) "with-ssh" "client request: ~A" line) (write-line "$1 =3D 42\n" c=
hannel))))) (lambda () (call-with-connected-session/shell (lambda (session)=
 (format-log/scm (quote nolog) "client" "session: ~a" session) (let ((n (ma=
ke-node session))) (=3D (with-ssh n (+ 21 21)) 42))))))))
Test end:
  result-kind: pass
  actual-value: #t
Group end: dist
# of expected passes      18
# of unexpected failures  1
FAIL dist.scm (exit status: 1)


error: in phase 'check': uncaught exception:
%exception #<&invoke-error program: "make" arguments: ("check" "-j" "24") e=
xit-status: 2 term-signal: #f stop-signal: #f>=20
phase `check' failed after 4.8 seconds
command "make" "check" "-j" "24" failed with status 2
builder for `/gnu/store/4winz6sffwfw5xkvkig1n8chzfxg51an-guile-ssh-0.13.1.d=
rv' failed with exit code 1
--8<---------------cut here---------------end--------------->8---

Thanks,

Maxim




Acknowledgement sent to Maxim Cournoyer <maxim.cournoyer@HIDDEN>:
New bug report received and forwarded. Copy sent to bug-guix@HIDDEN. Full text available.
Report forwarded to bug-guix@HIDDEN:
bug#51391; Package guix. Full text available.
Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.
Last modified: Mon, 25 Oct 2021 18:30:02 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.