make distcheck failure in gnutls-guile 'ERROR: no code for module (gnutls)'

[Simon Josefsson]

ludo at gnu.org (Ludovic Courtès) writes:

> Hi Simon,
>
> Simon Josefsson <simon at josefsson.org> skribis:
>
>> Thanks, I've installed the patch.  However it still doesn't work, now
>> one of the tests fails (see make check output below).  The test looks
>> quite simple to me, but I can't seem to get a backtrace?
>>
>> jas at latte:~/src/gnutls/guile master$ ./pre-inst-guile 
>> guile> (use-modules (gnutls)
>>              (gnutls build tests))
>> guile> (run-test
>>     (lambda ()
>>       (let ((s (make-session connection-end/server)))
>>         (catch 'gnutls-error
>>           (lambda ()
>>             (handshake s))
>>           (lambda (key err function . currently-unused)
>>             (and (eq? key 'gnutls-error)
>>                  err
>>                  (string? (error->string err))
>>                  (eq? function 'handshake)))))))
>
> Can you try just the ‘let’ expression?  (‘run-test’ swallows any
> exceptions and calls (exit 1).)

It just fails:

jas at latte:~/src/gnutls/guile master$ ./pre-inst-guile 
guile> (use-modules (gnutls) (gnutls build tests))
guile> (let ((s (make-session connection-end/server)))
        (catch 'gnutls-error
          (lambda ()
            (handshake s))
          (lambda (key err function . currently-unused)
            (and (eq? key 'gnutls-error)
                 err
                 (string? (error->string err))
                 (eq? function 'handshake)))))
#f
guile> 

Evaluation handshake gives some more information, but I'm not sure what
to do about it:

guile> (let ((s (make-session connection-end/server)))
(handshake s))

Backtrace:
In standard input:
  11: 0* (let* ((s (make-session connection-end/server))) (handshake s))
  12: 1  [handshake #<session 7f74e209aaa0>]

standard input:12:1: In procedure handshake in expression (handshake s):
standard input:12:1: unhandled-exception: gnutls-error #f handshake
ABORT: (misc-error)
guile> 

/Simon