diff options
| author | Ludovic Courtes <ludo@chbouib.org> | 2007-06-11 22:34:43 +0200 |
|---|---|---|
| committer | Simon Josefsson <simon@josefsson.org> | 2007-06-12 15:49:18 +0200 |
| commit | 11034f227a26df6f4e398930103a583a8582a229 (patch) | |
| tree | dcd248cacc36afa52010e0969fa11e8728fb57fa /guile | |
| parent | a9f78151dc4bb6f0db64fa15151ff524d90473f4 (diff) | |
| download | gnutls-11034f227a26df6f4e398930103a583a8582a229.tar.gz | |
Small cleanups in `guile/tests'.
Signed-off-by: Simon Josefsson <simon@josefsson.org>
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/tests/openpgp-auth.scm | 3 | ||||
| -rw-r--r-- | guile/tests/openpgp-keyring.scm | 2 | ||||
| -rw-r--r-- | 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 bdc1d97d43..3e58c248f1 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 6a25f866da..2fbe839eaa 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 8f506e7f7c..0000000000 --- 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 |