Re: [gnutls-dev] Guile problems in 1.7.12

[Ludovic Courtès]

BTW, attached is a tiny patch that cleans up a few little things in
`guile/tests'.

I guess `git-applypatch' and `git-mailinfo' are the way to go...  :-)

Ludo'.

>From c683230d4cb9be8e0e1c3052e73d9b170e41d37f Mon Sep 17 00:00:00 2001
From: Ludovic Courtes <address@hidden>
Date: Mon, 11 Jun 2007 22:34:43 +0200
Subject: [PATCH] Small cleanups in `guile/tests'.

---
 guile/tests/openpgp-auth.scm    |    3 ---
 guile/tests/openpgp-keyring.scm |    2 --
 guile/tests/raw-to-c.scm        |   16 ----------------
 3 files changed, 0 insertions(+), 21 deletions(-)

diff --git a/guile/tests/openpgp-auth.scm b/guile/tests/openpgp-auth.scm
index bdc1d97..3e58c24 100644
--- a/guile/tests/openpgp-auth.scm
+++ b/guile/tests/openpgp-auth.scm
@@ -22,9 +22,6 @@
 ;;;
 ;;; Test session establishment using OpenPGP certificate authentication.
 ;;;
-;;; XXX: `set-certificate-credentials-openpgp-keys!' is broken (i.e.,
-;;; segfaults) in GnuTLS 1.7.2 and earlier.
-;;;
 
 (use-modules (gnutls)
              (gnutls extra)
diff --git a/guile/tests/openpgp-keyring.scm b/guile/tests/openpgp-keyring.scm
index 6a25f86..2fbe839 100644
--- a/guile/tests/openpgp-keyring.scm
+++ b/guile/tests/openpgp-keyring.scm
@@ -22,8 +22,6 @@
 ;;;
 ;;; Exercise the OpenPGP keyring API part of GnuTLS-extra.
 ;;;
-;;; XXX: Keyring import is broken in GnuTLS versions up to and including 1.7.8.
-;;;
 
 (use-modules (gnutls extra) (gnutls)
              (srfi srfi-1)
diff --git a/guile/tests/raw-to-c.scm b/guile/tests/raw-to-c.scm
deleted file mode 100644
index 8f506e7..0000000
--- a/guile/tests/raw-to-c.scm
+++ /dev/null
@@ -1,16 +0,0 @@
-(use-modules (r6rs i/o ports)
-             (ice-9 format))
-
-(define line-len 12)
-
-(let ((input (open-input-file "openpgp-keyring.gpg")))
-  (let loop ((byte (get-u8 input))
-             (total 0))
-    (if (eof-object? byte)
-        #t
-        (begin
-          (format #t "0x~:@(~2,'0x, " byte)
-          (if (>= (+ 1 total) line-len) (newline))
-          (loop (get-u8 input)
-                (modulo (+ total 1) line-len))))))
-(newline)
\ No newline at end of file
-- 
1.4.4.4