Source: guile-ssh
Version: 0.13.1-6
Severity: serious
Justification: FTBFS
Tags: bookworm sid ftbfs
User: lu...@debian.org
Usertags: ftbfs-20220917 ftbfs-bookworm
Hi,
During a rebuild of all packages in sid, your package failed to build
on amd64.
Relevant part (hopefully):
> make[5]: Entering directory '/<<PKGBUILDDIR>>/debian/build/guile-3.0/tests'
> PASS: log.scm
> FAIL: server.scm
> PASS: session.scm
> FAIL: client-server.scm
> PASS: popen.scm
> PASS: shell.scm
> PASS: server-client.scm
> PASS: sssh-ssshd.scm
> FAIL: key.scm
> PASS: tunnel.scm
> PASS: dist.scm
> ============================================
> Guile-SSH 0.13.1: tests/test-suite.log
> ============================================
>
> # TOTAL: 11
> # PASS: 8
> # SKIP: 0
> # XFAIL: 0
> # FAIL: 3
> # XPASS: 0
> # ERROR: 0
>
> .. contents:: :depth: 2
>
> FAIL: server
> ============
>
> %%%% Starting test server
> Group begin: server
> Test begin:
> test-name: "%make-server"
> source-file: "tests/server.scm"
> source-line: 35
> source-form: (test-assert "%make-server" (%make-server))
> Test end:
> result-kind: pass
> actual-value: #<server 7f7e47934fe0>
> Test begin:
> test-name: "server?"
> source-file: "tests/server.scm"
> source-line: 38
> source-form: (test-assert "server?" (begin (set-log-userdata! "server?")
> (let ((server (%make-server)) (x "I'm not a server")) (and (server? server)
> (not (server? x))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "comparison of servers"
> source-file: "tests/server.scm"
> source-line: 44
> source-form: (test-assert "comparison of servers" (begin (set-log-userdata!
> "comparison of servers") (let ((s1 (%make-server)) (s2 (%make-server))) (and
> (equal? s1 s1) (not (equal? s1 s2))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "server-set!, valid values"
> source-file: "tests/server.scm"
> source-line: 50
> source-form: (test-assert "server-set!, valid values" (begin
> (set-log-userdata! "server-set!, valid values") (let* ((server
> (%make-server)) (topdir (getenv "abs_top_srcdir")) (options (quasiquote
> ((bindaddr "127.0.0.1") (bindport 22) (unquote (if (>= %libssh-minor-version
> 7) (list (quote hostkey) %rsakey %dsakey) (quote (hostkey "ssh-rsa"
> "ssh-dss")))) (rsakey (unquote %rsakey)) (dsakey (unquote %dsakey)) (banner
> "string") (log-verbosity nolog rare protocol packet functions) (blocking-mode
> #f #t)))) (log (test-runner-aux-value (test-runner-current))) (res #t))
> (for-each (lambda (opt) (for-each (lambda (val) (catch #t (lambda ()
> (server-set! server (car opt) val)) (lambda (key . args) (set! res #f)
> (format log " opt: ~a, val: ~a, error: ~a~%" (car opt) val args)))) (cdr
> opt))) options) res)))
> opt: hostkey, val:
> /<<PKGBUILDDIR>>/debian/build/guile-3.0/../../../tests/keys/dsakey, error:
> (server-set! Unable to set the option (#<server 127.0.0.1:22 7f7e47934f60>
> hostkey /<<PKGBUILDDIR>>/debian/build/guile-3.0/../../../tests/keys/dsakey)
> #f)
> Test end:
> result-kind: fail
> actual-value: #f
> Test begin:
> test-name: "server-set!, invalid values"
> source-file: "tests/server.scm"
> source-line: 83
> source-form: (test-assert "server-set!, invalid values" (begin
> (set-log-userdata! "server-set!, invalid values") (let ((server
> (%make-server)) (options (quote ((bindaddr #f 42) (rsakey #f 42) (dsakey #f
> 42) (bindport "I'm not a port" -42) (hostkey "invalid value" 1 (quote
> invalid-value)) (banner 12345) (log-verbosity -1 0 1 2 3 4 5) (blocking-mode
> 42 "string")))) (log (test-runner-aux-value (test-runner-current))) (res #t))
> (for-each (lambda (opt) (for-each (lambda (val) (catch #t (lambda ()
> (server-set! server (car opt) val) (format log " opt: ~a, val: ~a -- passed
> mistakenly~%" (car opt) val) (set! res #f)) (lambda (key . args) #t))) (cdr
> opt))) options) res)))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "make-server"
> source-file: "tests/server.scm"
> source-line: 119
> source-form: (test-assert "make-server" (begin (set-log-userdata!
> "make-server") (let ((topdir (getenv "abs_top_srcdir"))) (make-server
> #:bindaddr "127.0.0.1" #:bindport 123456 #:rsakey %rsakey #:dsakey %dsakey
> #:banner "banner" #:log-verbosity (quote nolog) #:blocking-mode #f))))
> Test end:
> result-kind: pass
> actual-value: #<server 127.0.0.1:123456 7f7e47934f20>
> Test begin:
> test-name: "server-get"
> source-file: "tests/server.scm"
> source-line: 129
> source-form: (test-assert "server-get" (begin (set-log-userdata!
> "server-get") (let* ((topdir (getenv "abs_top_srcdir")) (bindaddr
> "127.0.0.1") (bindport 123456) (banner "banner") (log-verbosity (quote
> nolog)) (blocking-mode #f) (server (make-server #:bindaddr bindaddr
> #:bindport bindport #:rsakey %rsakey #:dsakey %dsakey #:banner banner
> #:log-verbosity log-verbosity #:blocking-mode blocking-mode))) (and (eq?
> (server-get server (quote bindaddr)) bindaddr) (eq? (server-get server (quote
> bindport)) bindport) (eq? (server-get server (quote rsakey)) %rsakey) (eq?
> (server-get server (quote dsakey)) %dsakey) (eq? (server-get server (quote
> banner)) banner) (eq? (server-get server (quote log-verbosity))
> log-verbosity) (eq? (server-get server (quote blocking-mode))
> blocking-mode)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "server-listen"
> source-file: "tests/server.scm"
> source-line: 151
> source-form: (test-assert "server-listen" (begin (set-log-userdata!
> "server-listen") (let* ((topdir (getenv "abs_top_srcdir")) (server
> (make-server #:bindaddr "127.0.0.1" #:bindport 123456 #:rsakey %rsakey
> #:log-verbosity (quote nolog)))) (server-listen server) #t)))
> Test end:
> result-kind: pass
> actual-value: #t
> Group end: server
> # of expected passes 7
> # of unexpected failures 1
> %%%% Starting test server (Writing full log to "server.log")
> tests/server.scm:50: FAIL server-set!, valid values
> # of expected passes 7
> # of unexpected failures 1
> FAIL server.scm (exit status: 1)
>
> FAIL: client-server
> ===================
>
> %%%% Starting test client-server
> Group begin: client-server
> Test begin:
> test-name: "connect!, disconnect!"
> source-file: "tests/client-server.scm"
> source-line: 70
> source-form: (test-assert "connect!, disconnect!" (begin (set-log-userdata!
> "connect!, disconnect!") (run-client-test (lambda (server) (let ((s
> (server-accept server))) (server-handle-key-exchange s))) (lambda ()
> (call-with-connected-session (lambda (session) (connected? session)))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "get-protocol-version"
> source-file: "tests/client-server.scm"
> source-line: 82
> source-form: (test-assert "get-protocol-version" (begin (set-log-userdata!
> "get-protocol-version") (equal? (run-client-test (lambda (server) (let ((s
> (server-accept server))) (server-handle-key-exchange s))) (lambda ()
> (call-with-connected-session (lambda (session) (get-protocol-version
> session))))) 2)))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "authenticate-server, not-known"
> source-file: "tests/client-server.scm"
> source-line: 95
> source-form: (test-assert "authenticate-server, not-known" (begin
> (set-log-userdata! "authenticate-server, not-known") (quote not-known)
> (run-client-test (lambda (server) (let ((s (server-accept server)))
> (server-handle-key-exchange s))) (lambda () (call-with-connected-session
> (lambda (session) (authenticate-server session)))))))
> Test end:
> result-kind: pass
> actual-value: not-known
> Test begin:
> test-name: "authenticate-server, ok"
> source-file: "tests/client-server.scm"
> source-line: 108
> source-form: (test-assert "authenticate-server, ok" (begin
> (set-log-userdata! "authenticate-server, ok") (equal? (run-client-test
> (lambda (server) (let ((s (server-accept server)))
> (server-handle-key-exchange s))) (lambda () (let ((res
> (call-with-connected-session (lambda (session) (write-known-host! session)
> (authenticate-server session))))) (delete-file %knownhosts) res))) (quote
> ok))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "get-public-key-hash"
> source-file: "tests/client-server.scm"
> source-line: 124
> source-form: (test-assert "get-public-key-hash" (begin (set-log-userdata!
> "get-public-key-hash") (run-client-test (lambda (server) (let ((s
> (server-accept server))) (server-handle-key-exchange s))) (lambda () (let
> ((hash-md5-bv #vu8(15 142 110 203 162 228 250 211 20 212 26 217 118 57 217
> 66)) (hash-md5-str "0f:8e:6e:cb:a2:e4:fa:d3:14:d4:1a:d9:76:39:d9:42")
> (hash-sha1-bv #vu8(20 65 56 155 119 45 84 163 50 26 59 92 215 159 139 5 229
> 174 84 80)) (hash-sha1-str
> "14:41:38:9b:77:2d:54:a3:32:1a:3b:5c:d7:9f:8b:05:e5:ae:54:50") (session
> (make-session-for-test))) (sleep 1) (connect! session) (authenticate-server
> session) (let* ((pubkey (get-server-public-key session)) (md5-res
> (get-public-key-hash pubkey (quote md5))) (sha1-res (get-public-key-hash
> pubkey (quote sha1)))) (disconnect! session) (and (bytevector=? md5-res
> hash-md5-bv) (string=? (bytevector->hex-string md5-res) hash-md5-str)
> (bytevector=? sha1-res hash-sha1-bv) (string=? (bytevector->hex-string
> sha1-res) hash-sha1-str))))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-none!, session: non-session object"
> source-file: "tests/client-server.scm"
> source-line: 161
> source-form: (test-assert "userauth-none!, session: non-session object"
> (begin (set-log-userdata! "userauth-none!, session: non-session object")
> (catch #t (lambda () (userauth-none! "Not a session.") #f) (lambda (key .
> args) (let ((result (equal? key (quote wrong-type-arg)))) (unless result
> (format-log/scm (quote nolog) "userauth-none!, session: non-session object"
> (string-append "Errors do not match: " "expected ~a, got ~a (args: ~a)")
> (quote wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-none!, session: non-connected session"
> source-file: "tests/client-server.scm"
> source-line: 166
> source-form: (test-assert "userauth-none!, session: non-connected session"
> (begin (set-log-userdata! "userauth-none!, session: non-connected session")
> (catch #t (lambda () (userauth-none! (make-session-for-test)) #f) (lambda
> (key . args) (let ((result (equal? key (quote wrong-type-arg)))) (unless
> result (format-log/scm (quote nolog) "userauth-none!, session: non-connected
> session" (string-append "Errors do not match: " "expected ~a, got ~a (args:
> ~a)") (quote wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-none!, session: connected session"
> source-file: "tests/client-server.scm"
> source-line: 171
> source-form: (test-assert "userauth-none!, session: connected session"
> (begin (set-log-userdata! "userauth-none!, session: connected session")
> (equal? (run-client-test (lambda (server) (server-listen server) (let
> ((session (server-accept server))) (server-handle-key-exchange session)
> (start-session-loop session (lambda (msg) (message-auth-set-methods! msg
> (quote (none))) (message-reply-success msg))))) (lambda ()
> (call-with-connected-session (lambda (session) (authenticate-server session)
> (userauth-none! session))))) (quote success))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-none!, denied"
> source-file: "tests/client-server.scm"
> source-line: 194
> source-form: (test-assert "userauth-none!, denied" (begin
> (set-log-userdata! "userauth-none!, denied") (equal? (run-client-test (lambda
> (server) (server-listen server) (let ((session (server-accept server)))
> (server-handle-key-exchange session) (start-session-loop session (lambda
> (msg) (message-auth-set-methods! msg (quote (public-key)))
> (message-reply-default msg))))) (lambda () (call-with-connected-session
> (lambda (session) (authenticate-server session) (userauth-none! session)))))
> (quote denied))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-none!, partial"
> source-file: "tests/client-server.scm"
> source-line: 217
> source-form: (test-assert "userauth-none!, partial" (begin
> (set-log-userdata! "userauth-none!, partial") (equal? (run-client-test
> (lambda (server) (server-listen server) (let ((session (server-accept
> server))) (server-handle-key-exchange session) (start-session-loop session
> (lambda (msg) (message-auth-set-methods! msg (quote (none)))
> (message-reply-success msg (quote partial)))))) (lambda ()
> (call-with-connected-session (lambda (session) (authenticate-server session)
> (userauth-none! session))))) (quote partial))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-password!, session: non-session object"
> source-file: "tests/client-server.scm"
> source-line: 243
> source-form: (test-assert "userauth-password!, session: non-session object"
> (begin (set-log-userdata! "userauth-password!, session: non-session object")
> (catch #t (lambda () (userauth-password! "Not a session." "Password") #f)
> (lambda (key . args) (let ((result (equal? key (quote wrong-type-arg))))
> (unless result (format-log/scm (quote nolog) "userauth-password!, session:
> non-session object" (string-append "Errors do not match: " "expected ~a, got
> ~a (args: ~a)") (quote wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-password!, session: non-connected session"
> source-file: "tests/client-server.scm"
> source-line: 249
> source-form: (test-assert "userauth-password!, session: non-connected
> session" (begin (set-log-userdata! "userauth-password!, session:
> non-connected session") (catch #t (lambda () (userauth-password!
> (make-session-for-test) "Password") #f) (lambda (key . args) (let ((result
> (equal? key (quote wrong-type-arg)))) (unless result (format-log/scm (quote
> nolog) "userauth-password!, session: non-connected session" (string-append
> "Errors do not match: " "expected ~a, got ~a (args: ~a)") (quote
> wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-password!, password: non-string object"
> source-file: "tests/client-server.scm"
> source-line: 255
> source-form: (test-assert "userauth-password!, password: non-string object"
> (begin (set-log-userdata! "userauth-password!, password: non-string object")
> (catch #t (lambda () (run-client-test (lambda (server) (server-listen server)
> (let ((session (server-accept server))) (server-handle-key-exchange session)
> (start-session-loop session (lambda (msg) (message-auth-set-methods! msg
> (quote (password))) (message-reply-success msg))))) (lambda ()
> (call-with-connected-session (lambda (session) (userauth-password! session
> 123))))) #f) (lambda (key . args) (let ((result (equal? key (quote
> wrong-type-arg)))) (unless result (format-log/scm (quote nolog)
> "userauth-password!, password: non-string object" (string-append "Errors do
> not match: " "expected ~a, got ~a (args: ~a)") (quote wrong-type-arg) key
> args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-password!, success"
> source-file: "tests/client-server.scm"
> source-line: 276
> source-form: (test-assert "userauth-password!, success" (begin
> (set-log-userdata! "userauth-password!, success") (equal? (run-client-test
> (lambda (server) (server-listen server) (let ((session (server-accept
> server))) (server-handle-key-exchange session) (start-session-loop session
> (lambda (msg) (message-auth-set-methods! msg (quote (password)))
> (message-reply-success msg))))) (lambda () (call-with-connected-session
> (lambda (session) (authenticate-server session) (userauth-password! session
> "password"))))) (quote success))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-password!, denied"
> source-file: "tests/client-server.scm"
> source-line: 298
> source-form: (test-assert "userauth-password!, denied" (begin
> (set-log-userdata! "userauth-password!, denied") (equal? (run-client-test
> (lambda (server) (server-listen server) (let ((session (server-accept
> server))) (server-handle-key-exchange session) (start-session-loop session
> (lambda (msg) (message-auth-set-methods! msg (quote (password)))
> (message-reply-default msg))))) (lambda () (call-with-connected-session
> (lambda (session) (authenticate-server session) (userauth-password! session
> "password"))))) (quote denied))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-password!, partial"
> source-file: "tests/client-server.scm"
> source-line: 320
> source-form: (test-assert "userauth-password!, partial" (begin
> (set-log-userdata! "userauth-password!, partial") (equal? (run-client-test
> (lambda (server) (server-listen server) (let ((session (server-accept
> server))) (server-handle-key-exchange session) (start-session-loop session
> (lambda (msg) (message-auth-set-methods! msg (quote (password)))
> (message-reply-success msg (quote partial)))))) (lambda ()
> (call-with-connected-session (lambda (session) (authenticate-server session)
> (userauth-password! session "password"))))) (quote partial))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-public-key!, wrong parameter"
> source-file: "tests/client-server.scm"
> source-line: 346
> source-form: (test-assert "userauth-public-key!, wrong parameter" (begin
> (set-log-userdata! "userauth-public-key!, wrong parameter") (catch #t (lambda
> () (userauth-public-key! "Not a session." (private-key-from-file %rsakey))
> #f) (lambda (key . args) (let ((result (equal? key (quote wrong-type-arg))))
> (unless result (format-log/scm (quote nolog) "userauth-public-key!, wrong
> parameter" (string-append "Errors do not match: " "expected ~a, got ~a (args:
> ~a)") (quote wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-public-key!, non-connected session"
> source-file: "tests/client-server.scm"
> source-line: 351
> source-form: (test-assert "userauth-public-key!, non-connected session"
> (begin (set-log-userdata! "userauth-public-key!, non-connected session")
> (catch #t (lambda () (userauth-public-key! (make-session-for-test)
> (private-key-from-file %rsakey)) #f) (lambda (key . args) (let ((result
> (equal? key (quote wrong-type-arg)))) (unless result (format-log/scm (quote
> nolog) "userauth-public-key!, non-connected session" (string-append "Errors
> do not match: " "expected ~a, got ~a (args: ~a)") (quote wrong-type-arg) key
> args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-public-key!, private-key: non-key object"
> source-file: "tests/client-server.scm"
> source-line: 358
> source-form: (test-assert "userauth-public-key!, private-key: non-key
> object" (begin (set-log-userdata! "userauth-public-key!, private-key: non-key
> object") (catch #t (lambda () (run-client-test (lambda (server)
> (server-listen server) (let ((session (server-accept server)))
> (server-handle-key-exchange session) (start-session-loop session (lambda
> (msg) (message-reply-success msg))))) (lambda () (call-with-connected-session
> (lambda (session) (userauth-public-key! session "Non-key object."))))) #f)
> (lambda (key . args) (let ((result (equal? key (quote wrong-type-arg))))
> (unless result (format-log/scm (quote nolog) "userauth-public-key!,
> private-key: non-key object" (string-append "Errors do not match: " "expected
> ~a, got ~a (args: ~a)") (quote wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-public-key!, private-key: public key"
> source-file: "tests/client-server.scm"
> source-line: 377
> source-form: (test-assert "userauth-public-key!, private-key: public key"
> (begin (set-log-userdata! "userauth-public-key!, private-key: public key")
> (catch #t (lambda () (run-client-test (lambda (server) (server-listen server)
> (let ((session (server-accept server))) (server-handle-key-exchange session)
> (start-session-loop session (lambda (msg) (message-reply-success msg)))))
> (lambda () (call-with-connected-session (lambda (session)
> (userauth-public-key! session (public-key-from-file %rsakey-pub)))))) #f)
> (lambda (key . args) (let ((result (equal? key (quote wrong-type-arg))))
> (unless result (format-log/scm (quote nolog) "userauth-public-key!,
> private-key: public key" (string-append "Errors do not match: " "expected ~a,
> got ~a (args: ~a)") (quote wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-public-key!, success"
> source-file: "tests/client-server.scm"
> source-line: 395
> source-form: (test-assert "userauth-public-key!, success" (begin
> (set-log-userdata! "userauth-public-key!, success") (equal? (run-client-test
> (lambda (server) (server-listen server) (let ((session (server-accept
> server))) (server-handle-key-exchange session) (start-session-loop session
> (lambda (msg) (message-reply-success msg))))) (lambda ()
> (call-with-connected-session (lambda (session) (authenticate-server session)
> (let ((prvkey (private-key-from-file %rsakey))) (userauth-public-key! session
> prvkey)))))) (quote success))))
> Test end:
> result-kind: fail
> actual-value: #f
> Test begin:
> test-name: "userauth-public-key/auto!, session: non-session object"
> source-file: "tests/client-server.scm"
> source-line: 421
> source-form: (test-assert "userauth-public-key/auto!, session: non-session
> object" (begin (set-log-userdata! "userauth-public-key/auto!, session:
> non-session object") (catch #t (lambda () (userauth-public-key/auto! "Not a
> session.") #f) (lambda (key . args) (let ((result (equal? key (quote
> wrong-type-arg)))) (unless result (format-log/scm (quote nolog)
> "userauth-public-key/auto!, session: non-session object" (string-append
> "Errors do not match: " "expected ~a, got ~a (args: ~a)") (quote
> wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-public-key/auto!, session: non-connected session"
> source-file: "tests/client-server.scm"
> source-line: 427
> source-form: (test-assert "userauth-public-key/auto!, session:
> non-connected session" (begin (set-log-userdata! "userauth-public-key/auto!,
> session: non-connected session") (catch #t (lambda ()
> (userauth-public-key/auto! (make-session-for-test)) #f) (lambda (key . args)
> (let ((result (equal? key (quote wrong-type-arg)))) (unless result
> (format-log/scm (quote nolog) "userauth-public-key/auto!, session:
> non-connected session" (string-append "Errors do not match: " "expected ~a,
> got ~a (args: ~a)") (quote wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-gssapi!, wrong parameter"
> source-file: "tests/client-server.scm"
> source-line: 436
> source-form: (test-assert "userauth-gssapi!, wrong parameter" (begin
> (set-log-userdata! "userauth-gssapi!, wrong parameter") (catch #t (lambda ()
> (userauth-gssapi! "Not a session.") #f) (lambda (key . args) (let ((result
> (equal? key (quote wrong-type-arg)))) (unless result (format-log/scm (quote
> nolog) "userauth-gssapi!, wrong parameter" (string-append "Errors do not
> match: " "expected ~a, got ~a (args: ~a)") (quote wrong-type-arg) key args))
> result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-gssapi!, not connected"
> source-file: "tests/client-server.scm"
> source-line: 441
> source-form: (test-assert "userauth-gssapi!, not connected" (begin
> (set-log-userdata! "userauth-gssapi!, not connected") (catch #t (lambda ()
> (userauth-gssapi! (make-session-for-test)) #f) (lambda (key . args) (let
> ((result (equal? key (quote wrong-type-arg)))) (unless result (format-log/scm
> (quote nolog) "userauth-gssapi!, not connected" (string-append "Errors do not
> match: " "expected ~a, got ~a (args: ~a)") (quote wrong-type-arg) key args))
> result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-get-list, wrong parameter"
> source-file: "tests/client-server.scm"
> source-line: 450
> source-form: (test-assert "userauth-get-list, wrong parameter" (begin
> (set-log-userdata! "userauth-get-list, wrong parameter") (catch #t (lambda ()
> (userauth-get-list "Not a session.") #f) (lambda (key . args) (let ((result
> (equal? key (quote wrong-type-arg)))) (unless result (format-log/scm (quote
> nolog) "userauth-get-list, wrong parameter" (string-append "Errors do not
> match: " "expected ~a, got ~a (args: ~a)") (quote wrong-type-arg) key args))
> result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-get-list, non-connected"
> source-file: "tests/client-server.scm"
> source-line: 453
> source-form: (test-assert "userauth-get-list, non-connected" (begin
> (set-log-userdata! "userauth-get-list, non-connected") (catch #t (lambda ()
> (userauth-get-list (make-session-for-test)) #f) (lambda (key . args) (let
> ((result (equal? key (quote wrong-type-arg)))) (unless result (format-log/scm
> (quote nolog) "userauth-get-list, non-connected" (string-append "Errors do
> not match: " "expected ~a, got ~a (args: ~a)") (quote wrong-type-arg) key
> args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "userauth-get-list"
> source-file: "tests/client-server.scm"
> source-line: 459
> source-form: (test-assert "userauth-get-list" (begin (set-log-userdata!
> "userauth-get-list") (equal? (run-client-test (lambda (server) (let ((session
> (server-accept server))) (server-handle-key-exchange session)
> (start-session-loop session (lambda (msg) (message-auth-set-methods! msg
> (quote (password public-key))) (message-reply-default msg))))) (lambda ()
> (call-with-connected-session (lambda (session) (authenticate-server session)
> (userauth-none! session) (userauth-get-list session))))) (quote (password
> public-key)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "make-channel"
> source-file: "tests/client-server.scm"
> source-line: 524
> source-form: (test-assert "make-channel" (begin (set-log-userdata!
> "make-channel") (run-client-test (lambda (server) (start-server/exec server
> (const #t))) (lambda () (call-with-connected-session/channel-test
> make-channel)))))
> Test end:
> result-kind: pass
> actual-value: #<unknown channel (freed) 7f6de7898ee0>
> Test begin:
> test-name: "channel-get-session"
> source-file: "tests/client-server.scm"
> source-line: 536
> source-form: (test-assert "channel-get-session" (begin (set-log-userdata!
> "channel-get-session") (run-client-test (lambda (server) (start-server/exec
> server (const #t))) (lambda () (call-with-connected-session/channel-test
> (lambda (session) (let ((channel (make-channel session))) (eq? session
> (channel-get-session channel)))))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "channel-open-session"
> source-file: "tests/client-server.scm"
> source-line: 550
> source-form: (test-assert "channel-open-session" (begin (set-log-userdata!
> "channel-open-session") (run-client-test (lambda (server) (start-server/exec
> server (const #t))) (lambda () (call-with-connected-session/channel-test
> (lambda (session) (format-log/scm (quote nolog) "channel-open-session
> [client]" "session: ~a" session) (let ((channel (make-channel session)))
> (format-log/scm (quote nolog) "channel-open-session [client]" "channel: ~a"
> channel) (channel-open-session channel) (format-log/scm (quote nolog)
> "channel-open-session [client]" "channel 2: ~a" channel) (not (port-closed?
> channel)))))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "channel-request-exec"
> source-file: "tests/client-server.scm"
> source-line: 572
> source-form: (test-assert "channel-request-exec" (begin (set-log-userdata!
> "channel-request-exec") (run-client-test (lambda (server) (start-server/exec
> server (const #t))) (lambda () (call-with-connected-session/channel-test
> (lambda (session) (let ((channel (make-channel session)))
> (channel-open-session channel) (channel-request-exec channel "ping") (let
> ((res (read-line channel))) (and res (string=? "pong" res))))))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "channel-request-exec, exit status"
> source-file: "tests/client-server.scm"
> source-line: 591
> source-form: (test-assert "channel-request-exec, exit status" (begin
> (set-log-userdata! "channel-request-exec, exit status") 0 (run-client-test
> (lambda (server) (start-server/exec server (const #t))) (lambda ()
> (call-with-connected-session/channel-test (lambda (session) (let ((channel
> (make-channel session))) (channel-open-session channel) (channel-request-exec
> channel "exit status") (channel-get-exit-status channel))))))))
> Test end:
> result-kind: pass
> actual-value: 0
> Test begin:
> test-name: "channel-request-exec, printing a freed channel"
> source-file: "tests/client-server.scm"
> source-line: 608
> source-form: (test-assert "channel-request-exec, printing a freed channel"
> (begin (set-log-userdata! "channel-request-exec, printing a freed channel")
> (run-client-test (lambda (server) (start-server/exec server (const #t)))
> (lambda () (call-with-connected-session/channel-test (lambda (session) (let
> ((channel (make-channel session))) (format-log/scm (quote nolog)
> "channel-request-exec, printing a freed channel" "channel 0: ~a" channel)
> (channel-open-session channel) (format-log/scm (quote nolog)
> "channel-request-exec, printing a freed channel" "channel 1: ~a" channel)
> (channel-request-exec channel "exit status") (format-log/scm (quote nolog)
> "channel-request-exec, printing a freed channel" "channel 2: ~a" channel)
> (close channel) (format-log/scm (quote nolog) "channel-request-exec, printing
> a freed channel" "channel: ~a" channel) (string-match "#<unknown channel
> \\(freed\\) [0-9a-f]+>" (object->string channel)))))))))
> Test end:
> result-kind: pass
> actual-value: #("#<unknown channel (freed) 7f6dec0e49a0>" (0 . 39))
> Test begin:
> test-name: "channel-get-exit-status, freed channel"
> source-file: "tests/client-server.scm"
> source-line: 634
> source-form: (test-assert "channel-get-exit-status, freed channel" (begin
> (set-log-userdata! "channel-get-exit-status, freed channel") (catch #t
> (lambda () (run-client-test (lambda (server) (start-server/exec server (const
> #t))) (lambda () (call-with-connected-session (lambda (session)
> (authenticate-server session) (userauth-none! session) (let ((channel
> (make-channel session))) (channel-open-session channel) (channel-request-exec
> channel "exit status") (close channel) (channel-get-exit-status channel))))))
> #f) (lambda (key . args) (let ((result (equal? key (quote wrong-type-arg))))
> (unless result (format-log/scm (quote nolog) "channel-get-exit-status, freed
> channel" (string-append "Errors do not match: " "expected ~a, got ~a (args:
> ~a)") (quote wrong-type-arg) key args)) result)))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "data transferring, string"
> source-file: "tests/client-server.scm"
> source-line: 662
> source-form: (test-assert "data transferring, string" (begin
> (set-log-userdata! "data transferring, string") (run-client-test (lambda
> (server) (start-server/dt-test server (lambda (channel) (let ((str (read-line
> channel))) (write-line str channel))))) (lambda ()
> (call-with-connected-session/channel-test (lambda (session) (let ((channel
> (make-channel/dt-test session)) (str "Hello Scheme World!")) (write-line str
> channel) (poll channel (lambda args (let ((res (read-line channel)))
> (disconnect! session) (equal? res str)))))))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "data transferring, bytevector"
> source-file: "tests/client-server.scm"
> source-line: 686
> source-form: (test-assert "data transferring, bytevector" (begin
> (set-log-userdata! "data transferring, bytevector") (run-client-test (lambda
> (server) (use-modules (rnrs bytevectors) (rnrs io ports))
> (start-server/dt-test server (lambda (channel) (let ((v (get-bytevector-n
> channel 10))) (put-bytevector channel v))))) (lambda ()
> (call-with-connected-session/channel-test (lambda (session) (let* ((vect-size
> 10) (channel (make-channel/dt-test session)) (vect (make-bytevector vect-size
> 42))) (format-log/scm (quote nolog) "data transferring, bytevector" "vect:
> ~a" vect) (put-bytevector channel vect) (poll channel (lambda args (let ((res
> (get-bytevector-n channel vect-size))) (format-log/scm (quote nolog) "data
> transferring, bytevector" "res: ~a" res) (equal? res vect)))))))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "channel-send-eof"
> source-file: "tests/client-server.scm"
> source-line: 725
> source-form: (test-assert "channel-send-eof" (begin (set-log-userdata!
> "channel-send-eof") (run-client-test (lambda (server) (start-server/dt-test
> server (lambda (channel) (let ((str (read-line channel))) (write-line str
> channel))))) (lambda () (call-with-connected-session/channel-test (lambda
> (session) (let ((channel (make-channel/dt-test session)) (str "Hello Scheme
> World!")) (write-line str channel) (channel-send-eof channel) (and
> (input-port? channel) (not (output-port? channel)) (string=? (read-line
> channel) str)))))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Group end: client-server
> # of expected passes 37
> # of unexpected failures 1
> %%%% Starting test client-server (Writing full log to "client-server.log")
> tests/client-server.scm:395: FAIL userauth-public-key!, success
> # of expected passes 37
> # of unexpected failures 1
> FAIL client-server.scm (exit status: 1)
>
> FAIL: key
> =========
>
> %%%% Starting test key
> Group begin: key
> Test begin:
> test-name: "private-key-from-file"
> source-file: "tests/key.scm"
> source-line: 38
> source-form: (test-assert "private-key-from-file" (begin (set-log-userdata!
> "private-key-from-file") (and (private-key-from-file %rsakey)
> (private-key-from-file %dsakey) (when-openssl (private-key-from-file
> %ecdsakey)))))
> Test end:
> result-kind: pass
> actual-value: #<key ecdsa-p256 (private) 7fc8bbeb3fa0>
> Test begin:
> test-name: "public-key-from-file"
> source-file: "tests/key.scm"
> source-line: 44
> source-form: (test-assert "public-key-from-file" (begin (set-log-userdata!
> "public-key-from-file") (and (public-key-from-file %rsakey-pub)
> (public-key-from-file %dsakey-pub) (when-openssl (public-key-from-file
> %ecdsakey-pub)))))
> Test end:
> result-kind: pass
> actual-value: #<key ecdsa-p256 (public) 7fc8bbeb3f40>
> Test begin:
> test-name: "key?"
> source-file: "tests/key.scm"
> source-line: 59
> source-form: (test-assert "key?" (and (not (key? "not a key")) (key?
> *rsa-key*) (key? *dsa-key*) (when-openssl (key? *ecdsa-key*)) (key?
> *rsa-pub-key*) (key? *dsa-pub-key*) (when-openssl (key? *ecdsa-pub-key*))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "private-key?"
> source-file: "tests/key.scm"
> source-line: 70
> source-form: (test-assert "private-key?" (and (private-key? *rsa-key*) (not
> (private-key? *rsa-pub-key*)) (not (private-key? "not a key"))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "public-key?"
> source-file: "tests/key.scm"
> source-line: 75
> source-form: (test-assert "public-key?" (begin (set-log-userdata!
> "public-key?") (and (public-key? *rsa-pub-key*) (public-key? *rsa-key*) (not
> (public-key? "not a key")))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "private-key->public-key"
> source-file: "tests/key.scm"
> source-line: 84
> source-form: (test-assert "private-key->public-key" (begin
> (set-log-userdata! "private-key->public-key") (and (private-key->public-key
> *rsa-key*) (private-key->public-key *dsa-key*) (when-openssl
> (private-key->public-key *ecdsa-key*)))))
> Test end:
> result-kind: pass
> actual-value: #<key ecdsa-p256 (public) 7fc8bbeb3e20>
> Test begin:
> test-name: "get-key-type"
> source-file: "tests/key.scm"
> source-line: 90
> source-form: (test-assert "get-key-type" (begin (set-log-userdata!
> "get-key-type") (and (eq? (quote rsa) (get-key-type *rsa-key*)) (eq? (quote
> dss) (get-key-type *dsa-key*)) (when-openssl (or (eq? (quote ecdsa-p256)
> (get-key-type *ecdsa-key*)) (eq? (quote ecdsa) (get-key-type
> *ecdsa-key*)))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "private-key-to-file"
> source-file: "tests/key.scm"
> source-line: 99
> source-form: (test-assert "private-key-to-file" (begin (set-log-userdata!
> "private-key-to-file") (when-openssl (let ((file-name "./tmp-rsa-key"))
> (private-key-to-file *rsa-key* file-name) (let ((key (private-key-from-file
> file-name))) (delete-file file-name) (and (key? key) (private-key? key)))))))
> Test end:
> result-kind: pass
> actual-value: #t
> Test begin:
> test-name: "public-key->string, RSA"
> source-file: "tests/key.scm"
> source-line: 119
> source-form: (test-equal "public-key->string, RSA" (public-key->string
> *rsa-pub-key*) %rsakey-pub-string)
> Test end:
> result-kind: pass
> actual-value:
> "AAAAB3NzaC1yc2EAAAADAQABAAABAQC+8H9j5Yt3xeqaAxXAtSbBsW0JsJegngwfLveHA0ev3ndEKruylR6CZgf6OxshTwUeBaqn7jJMf+6RRQPTcxihgtZAfdyKdPGWDtmePBnG64+uGEaP8N3KvCzlANKf5tmxS8brJlQhxKL8t+3IE8w3QmCMnCGKWprsL/ygPA9koWauUqqKvOQbZXdUEfLvZfnsE1laRyK4dwLiiM2vyGZM/2yePLP4xYu/uYdPFaukxt3DMcgrEy9zuVcU8wbkJMKM57sambvituzMVVqRdeMX9exZv32qcXlpChl4XjFClQ0lqOb8S8CNTPXm3zQ2ZJrQtUHiD54RYhlXD7X0TO6v"
> expected-value:
> "AAAAB3NzaC1yc2EAAAADAQABAAABAQC+8H9j5Yt3xeqaAxXAtSbBsW0JsJegngwfLveHA0ev3ndEKruylR6CZgf6OxshTwUeBaqn7jJMf+6RRQPTcxihgtZAfdyKdPGWDtmePBnG64+uGEaP8N3KvCzlANKf5tmxS8brJlQhxKL8t+3IE8w3QmCMnCGKWprsL/ygPA9koWauUqqKvOQbZXdUEfLvZfnsE1laRyK4dwLiiM2vyGZM/2yePLP4xYu/uYdPFaukxt3DMcgrEy9zuVcU8wbkJMKM57sambvituzMVVqRdeMX9exZv32qcXlpChl4XjFClQ0lqOb8S8CNTPXm3zQ2ZJrQtUHiD54RYhlXD7X0TO6v"
> Test begin:
> test-name: "public-key->string, DSA"
> source-file: "tests/key.scm"
> source-line: 123
> source-form: (test-equal "public-key->string, DSA" (public-key->string
> *dsa-pub-key*) %dsakey-pub-string)
> Test end:
> result-kind: pass
> actual-value:
> "AAAAB3NzaC1kc3MAAACBAOpnJ64w3Qo3HkCCODTPpLqPUrDLg0bxWdoae2tsXFwhBthIlCV8N0hTzOj1Qrgnx/WiuDk5qXSKOHisyqVBv8sGLOUTBy0Fdz1SobZ9+WGu5+5EiJm78MZcgtHXHu1GPuImANifbSaDJpIGKItq0V5WhpLXyQC7o0Vt70sGQboVAAAAFQDeu+6APBWXtqq2Ch+nODn7VDSIhQAAAIA5iGHYbztSq8KnWj1J/6GTvsPp1JFqZ3hFX5wlGIV4XxBdeEZnCPrhYJumM7SRjYjWMpW5eqFNs5o3d+rJPFFwDo7yW10WC3Bfpo5xRxU35xf/aFAVbm3vi/HRQvv4cFrwTLvPHgNYGYdZiHXCXPoYIh+WoKT9n3MfrBXB4hpAmwAAAIEArkWuRnbjfPVFpXrWGw6kMPVdhOZr1ghdlG5bY31y4UKUlmHvXx5YZ776dSRSMJY2u4lS73+SFgwPdkmpgGma/rZdd9gly9T7SiSr/4qXJyS8Muh203xsAU3ukRocY8lsvllKEGiCJmrUTJWmj0UYEDsbqy2k/1Yz2Q/awygyk9c="
> expected-value:
> "AAAAB3NzaC1kc3MAAACBAOpnJ64w3Qo3HkCCODTPpLqPUrDLg0bxWdoae2tsXFwhBthIlCV8N0hTzOj1Qrgnx/WiuDk5qXSKOHisyqVBv8sGLOUTBy0Fdz1SobZ9+WGu5+5EiJm78MZcgtHXHu1GPuImANifbSaDJpIGKItq0V5WhpLXyQC7o0Vt70sGQboVAAAAFQDeu+6APBWXtqq2Ch+nODn7VDSIhQAAAIA5iGHYbztSq8KnWj1J/6GTvsPp1JFqZ3hFX5wlGIV4XxBdeEZnCPrhYJumM7SRjYjWMpW5eqFNs5o3d+rJPFFwDo7yW10WC3Bfpo5xRxU35xf/aFAVbm3vi/HRQvv4cFrwTLvPHgNYGYdZiHXCXPoYIh+WoKT9n3MfrBXB4hpAmwAAAIEArkWuRnbjfPVFpXrWGw6kMPVdhOZr1ghdlG5bY31y4UKUlmHvXx5YZ776dSRSMJY2u4lS73+SFgwPdkmpgGma/rZdd9gly9T7SiSr/4qXJyS8Muh203xsAU3ukRocY8lsvllKEGiCJmrUTJWmj0UYEDsbqy2k/1Yz2Q/awygyk9c="
> Test begin:
> test-name: "public-key->string, ECDSA"
> source-file: "tests/key.scm"
> source-line: 128
> source-form: (test-equal "public-key->string, ECDSA" (public-key->string
> *ecdsa-pub-key*) %ecdsakey-pub-string)
> Test end:
> result-kind: pass
> actual-value:
> "AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBHcpje/fp21KjuZFKgmKAAwHeYJ6e3ny4LwEVjZr8hOCVlBvqj7/krVqxbwZI7EcowbpYI1F8ZszS7zfUhKT3U4="
> expected-value:
> "AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBHcpje/fp21KjuZFKgmKAAwHeYJ6e3ny4LwEVjZr8hOCVlBvqj7/krVqxbwZI7EcowbpYI1F8ZszS7zfUhKT3U4="
> Test begin:
> test-name: "string->public-key, RSA"
> source-file: "tests/key.scm"
> source-line: 133
> source-form: (test-equal "string->public-key, RSA" (public-key->string
> (string->public-key %rsakey-pub-string (quote rsa))) %rsakey-pub-string)
> Test end:
> result-kind: pass
> actual-value:
> "AAAAB3NzaC1yc2EAAAADAQABAAABAQC+8H9j5Yt3xeqaAxXAtSbBsW0JsJegngwfLveHA0ev3ndEKruylR6CZgf6OxshTwUeBaqn7jJMf+6RRQPTcxihgtZAfdyKdPGWDtmePBnG64+uGEaP8N3KvCzlANKf5tmxS8brJlQhxKL8t+3IE8w3QmCMnCGKWprsL/ygPA9koWauUqqKvOQbZXdUEfLvZfnsE1laRyK4dwLiiM2vyGZM/2yePLP4xYu/uYdPFaukxt3DMcgrEy9zuVcU8wbkJMKM57sambvituzMVVqRdeMX9exZv32qcXlpChl4XjFClQ0lqOb8S8CNTPXm3zQ2ZJrQtUHiD54RYhlXD7X0TO6v"
> expected-value:
> "AAAAB3NzaC1yc2EAAAADAQABAAABAQC+8H9j5Yt3xeqaAxXAtSbBsW0JsJegngwfLveHA0ev3ndEKruylR6CZgf6OxshTwUeBaqn7jJMf+6RRQPTcxihgtZAfdyKdPGWDtmePBnG64+uGEaP8N3KvCzlANKf5tmxS8brJlQhxKL8t+3IE8w3QmCMnCGKWprsL/ygPA9koWauUqqKvOQbZXdUEfLvZfnsE1laRyK4dwLiiM2vyGZM/2yePLP4xYu/uYdPFaukxt3DMcgrEy9zuVcU8wbkJMKM57sambvituzMVVqRdeMX9exZv32qcXlpChl4XjFClQ0lqOb8S8CNTPXm3zQ2ZJrQtUHiD54RYhlXD7X0TO6v"
> Test begin:
> test-name: "string->public-key, DSA"
> source-file: "tests/key.scm"
> source-line: 137
> source-form: (test-equal "string->public-key, DSA" (public-key->string
> (string->public-key %dsakey-pub-string (quote dss))) %dsakey-pub-string)
> Test end:
> result-kind: pass
> actual-value:
> "AAAAB3NzaC1kc3MAAACBAOpnJ64w3Qo3HkCCODTPpLqPUrDLg0bxWdoae2tsXFwhBthIlCV8N0hTzOj1Qrgnx/WiuDk5qXSKOHisyqVBv8sGLOUTBy0Fdz1SobZ9+WGu5+5EiJm78MZcgtHXHu1GPuImANifbSaDJpIGKItq0V5WhpLXyQC7o0Vt70sGQboVAAAAFQDeu+6APBWXtqq2Ch+nODn7VDSIhQAAAIA5iGHYbztSq8KnWj1J/6GTvsPp1JFqZ3hFX5wlGIV4XxBdeEZnCPrhYJumM7SRjYjWMpW5eqFNs5o3d+rJPFFwDo7yW10WC3Bfpo5xRxU35xf/aFAVbm3vi/HRQvv4cFrwTLvPHgNYGYdZiHXCXPoYIh+WoKT9n3MfrBXB4hpAmwAAAIEArkWuRnbjfPVFpXrWGw6kMPVdhOZr1ghdlG5bY31y4UKUlmHvXx5YZ776dSRSMJY2u4lS73+SFgwPdkmpgGma/rZdd9gly9T7SiSr/4qXJyS8Muh203xsAU3ukRocY8lsvllKEGiCJmrUTJWmj0UYEDsbqy2k/1Yz2Q/awygyk9c="
> expected-value:
> "AAAAB3NzaC1kc3MAAACBAOpnJ64w3Qo3HkCCODTPpLqPUrDLg0bxWdoae2tsXFwhBthIlCV8N0hTzOj1Qrgnx/WiuDk5qXSKOHisyqVBv8sGLOUTBy0Fdz1SobZ9+WGu5+5EiJm78MZcgtHXHu1GPuImANifbSaDJpIGKItq0V5WhpLXyQC7o0Vt70sGQboVAAAAFQDeu+6APBWXtqq2Ch+nODn7VDSIhQAAAIA5iGHYbztSq8KnWj1J/6GTvsPp1JFqZ3hFX5wlGIV4XxBdeEZnCPrhYJumM7SRjYjWMpW5eqFNs5o3d+rJPFFwDo7yW10WC3Bfpo5xRxU35xf/aFAVbm3vi/HRQvv4cFrwTLvPHgNYGYdZiHXCXPoYIh+WoKT9n3MfrBXB4hpAmwAAAIEArkWuRnbjfPVFpXrWGw6kMPVdhOZr1ghdlG5bY31y4UKUlmHvXx5YZ776dSRSMJY2u4lS73+SFgwPdkmpgGma/rZdd9gly9T7SiSr/4qXJyS8Muh203xsAU3ukRocY8lsvllKEGiCJmrUTJWmj0UYEDsbqy2k/1Yz2Q/awygyk9c="
> Test begin:
> test-name: "string->public-key, ECDSA"
> source-file: "tests/key.scm"
> source-line: 142
> source-form: (test-equal "string->public-key, ECDSA" (if (string=? (cadr
> (string-split (get-libssh-version) #\.)) "9") (public-key->string
> (string->public-key %ecdsakey-pub-string (quote ecdsa-p256)))
> (public-key->string (string->public-key %ecdsakey-pub-string (quote ecdsa))))
> %ecdsakey-pub-string)
> %%%% Starting test key (Writing full log to "key.log")
> FAIL key.scm (exit status: 1)
>
> ============================================================================
> Testsuite summary for Guile-SSH 0.13.1
> ============================================================================
> # TOTAL: 11
> # PASS: 8
> # SKIP: 0
> # XFAIL: 0
> # FAIL: 3
> # XPASS: 0
> # ERROR: 0
> ============================================================================
> See tests/test-suite.log
> Please report to poptsov.art...@gmail.com
> ============================================================================
> make[5]: *** [Makefile:682: test-suite.log] Error 1
> make[5]: Leaving directory '/<<PKGBUILDDIR>>/debian/build/guile-3.0/tests'
> make[4]: *** [Makefile:790: check-TESTS] Error 2
> make[4]: Leaving directory '/<<PKGBUILDDIR>>/debian/build/guile-3.0/tests'
> make[3]: *** [Makefile:855: check-am] Error 2
> make[3]: Leaving directory '/<<PKGBUILDDIR>>/debian/build/guile-3.0/tests'
> make[2]: *** [Makefile:423: check-recursive] Error 1
> make[2]: Leaving directory '/<<PKGBUILDDIR>>/debian/build/guile-3.0'
> dh_auto_test: error: cd debian/build/guile-3.0 && make -j1 check
> "TESTSUITEFLAGS=-j1 --verbose" VERBOSE=1 returned exit code 2
The full build log is available from:
http://qa-logs.debian.net/2022/09/17/guile-ssh_0.13.1-6_unstable.log
All bugs filed during this archive rebuild are listed at:
https://bugs.debian.org/cgi-bin/pkgreport.cgi?tag=ftbfs-20220917;users=lu...@debian.org
or:
https://udd.debian.org/bugs/?release=na&merged=ign&fnewerval=7&flastmodval=7&fusertag=only&fusertagtag=ftbfs-20220917&fusertaguser=lu...@debian.org&allbugs=1&cseverity=1&ctags=1&caffected=1#results
A list of current common problems and possible solutions is available at
http://wiki.debian.org/qa.debian.org/FTBFS . You're welcome to contribute!
If you reassign this bug to another package, please marking it as 'affects'-ing
this package. See https://www.debian.org/Bugs/server-control#affects
If you fail to reproduce this, please provide a build log and diff it with mine
so that we can identify if something relevant changed in the meantime.
