guile: removed openpgp related tests
authorNikos Mavrogiannopoulos <nmav@redhat.com>
Fri, 16 Jun 2017 07:55:44 +0000 (09:55 +0200)
committerNikos Mavrogiannopoulos <nmav@redhat.com>
Fri, 16 Jun 2017 13:31:51 +0000 (15:31 +0200)
Signed-off-by: Nikos Mavrogiannopoulos <nmav@redhat.com>
guile/Makefile.am
guile/tests/openpgp-auth.scm [deleted file]
guile/tests/openpgp-elg-pub.asc [deleted file]
guile/tests/openpgp-elg-sec.asc [deleted file]
guile/tests/openpgp-keyring.asc [deleted file]
guile/tests/openpgp-keyring.gpg [deleted file]
guile/tests/openpgp-keyring.scm [deleted file]
guile/tests/openpgp-keys.scm [deleted file]
guile/tests/openpgp-pub.asc [deleted file]
guile/tests/openpgp-sec.asc [deleted file]

index acbb594e2cf8d22e4e7f2a9d5d29dd5fe45bb99c..95fa96c66b2f7a4c51b7f65c03b56ea440672ff2 100644 (file)
@@ -104,13 +104,6 @@ TESTS =                                            \
   tests/x509-auth.scm                          \
   tests/priorities.scm
 
-if ENABLE_OPENPGP
-TESTS +=                                       \
-  tests/openpgp-keys.scm                       \
-  tests/openpgp-keyring.scm                    \
-  tests/openpgp-auth.scm
-endif
-
 if ENABLE_SRP
 TESTS +=                                       \
   tests/srp-base64.scm
@@ -125,12 +118,6 @@ LOG_COMPILER = $(top_builddir)/guile/pre-inst-guile -L $(srcdir)/tests
 
 EXTRA_DIST +=                                  \
   $(TESTS)                                     \
-  tests/openpgp-pub.asc                                \
-  tests/openpgp-sec.asc                                \
-  tests/openpgp-elg-pub.asc                    \
-  tests/openpgp-elg-sec.asc                    \
-  tests/openpgp-keyring.gpg                    \
-  tests/openpgp-keyring.asc                    \
   tests/rsa-parameters.pem                     \
   tests/dh-parameters.pem                      \
   tests/x509-certificate.pem                   \
diff --git a/guile/tests/openpgp-auth.scm b/guile/tests/openpgp-auth.scm
deleted file mode 100644 (file)
index 8c732ce..0000000
+++ /dev/null
@@ -1,105 +0,0 @@
-;;; GnuTLS-extra --- Guile bindings for GnuTLS-EXTRA.
-;;; Copyright (C) 2007-2014, 2016 Free Software Foundation, Inc.
-;;;
-;;; GnuTLS-extra is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 3 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; GnuTLS-extra is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with GnuTLS-EXTRA; if not, write to the Free Software
-;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
-;;; USA.
-
-;;; Written by Ludovic Courtès <ludo@chbouib.org>.
-
-
-;;;
-;;; Test session establishment using OpenPGP certificate authentication.
-;;;
-
-(use-modules (gnutls)
-             (gnutls build tests)
-             (srfi srfi-4))
-
-
-;; TLS session settings.
-(define priorities
-  "NONE:+VERS-TLS-ALL:+CTYPE-OPENPGP:+CIPHER-ALL:+MAC-ALL:+SIGN-ALL:+DHE-RSA:+DHE-DSS:+COMP-ALL")
-
-;; Message sent by the client.
-(define %message
-  (cons "hello, world!" (iota 4444)))
-
-(define (import-something import-proc file fmt)
-  (let* ((path (search-path %load-path file))
-         (size (stat:size (stat path)))
-         (raw  (make-u8vector size)))
-    (uniform-vector-read! raw (open-input-file path))
-    (import-proc raw fmt)))
-
-(define (import-key import-proc file)
-  (import-something import-proc file openpgp-certificate-format/base64))
-
-(define (import-dh-params file)
-  (import-something pkcs3-import-dh-parameters file
-                    x509-certificate-format/pem))
-
-;; Debugging.
-;; (set-log-level! 3)
-;; (set-log-procedure! (lambda (level str)
-;;                       (format #t "[~a|~a] ~a" (getpid) level str)))
-
-(run-test
- (lambda ()
-   (let ((socket-pair (socketpair PF_UNIX SOCK_STREAM 0))
-         (pub         (import-key import-openpgp-certificate
-                                  "openpgp-pub.asc"))
-         (sec         (import-key import-openpgp-private-key
-                                  "openpgp-sec.asc")))
-     (with-child-process pid
-       ;; server-side
-       (let ((server (make-session connection-end/server))
-             (dh     (import-dh-params "dh-parameters.pem")))
-         (set-session-priorities! server priorities)
-         (set-server-session-certificate-request! server
-                                                  certificate-request/require)
-
-         (set-session-transport-fd! server (port->fdes (cdr socket-pair)))
-         (let ((cred (make-certificate-credentials)))
-           (set-certificate-credentials-dh-parameters! cred dh)
-           (set-certificate-credentials-openpgp-keys! cred pub sec)
-           (set-session-credentials! server cred))
-         (set-session-dh-prime-bits! server 1024)
-
-         (handshake server)
-         (let ((msg (read (session-record-port server)))
-               (auth-type (session-authentication-type server)))
-           (bye server close-request/rdwr)
-           (and (zero? (cdr (waitpid pid)))
-                (eq? auth-type credentials/certificate)
-                (equal? msg %message))))
-
-       ;; client-side (child process)
-       (let ((client (make-session connection-end/client))
-             (cred   (make-certificate-credentials)))
-         (set-session-priorities! client priorities)
-
-         (set-certificate-credentials-openpgp-keys! cred pub sec)
-         (set-session-credentials! client cred)
-         (set-session-dh-prime-bits! client 1024)
-
-         (set-session-transport-fd! client (port->fdes (car socket-pair)))
-
-         (handshake client)
-         (write %message (session-record-port client))
-         (bye client close-request/rdwr)
-
-         (primitive-exit))))))
-
-;;; arch-tag: 1a973ed5-f45d-45a4-8160-900b6a8c27ff
diff --git a/guile/tests/openpgp-elg-pub.asc b/guile/tests/openpgp-elg-pub.asc
deleted file mode 100644 (file)
index 6bdfabf..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
------BEGIN PGP PUBLIC KEY BLOCK-----
-
-mQGiBDxKxWwRBADnLna2Lu+po71ZQJMpJBgFDALXAp1sogZu/DTIYDhifGQ+saZS
-p68dN89G/FBaweDGmbN4lbS8s+U1Qf/aR2bWFowriq/WqyJGbQbRgDTV2saY5pk7
-pbNQ/4IuHNhwKnURTotzprCcs7k85E27UWybtflbtmYYhgKgoURyNsBljwCgj1te
-eNhfeSzCBy+UdGRXJvtNk3MD/jV41onWYG6RGOn5pwQrljzyPz2PE3eic8Dwl02/
-RLPKvL4U3WRBJVWGPjmpxidmLXesNmYq5El5LDJi0/EumDKnVlMJ1nugrk3yX17a
-CTcFatW+ifQGnr1+x2zkMkQd9dUv/9BtOeX2HjaUe2mKd8tiq4HkpBIr+QUGcdmU
-bIZeBADQYUN6lk3eMYgYwrJN4AjmAJa2DbimhLhag40Rn8kwMRiJrVejuSf0SPhO
-slPGI+2nO0L/eLzmOmpTHXWmTOhUBROAjp9bEM4HXTQXuAEWSRixMdNUTIdlqOy5
-lx9hoJ/HPVCYBhBrWXfSEcsOHQTQ7Za86Juuj3PYALBSE5y/jbRJT3BlbkNESyB0
-ZXN0IGtleSAoT25seSBpbnRlbmRlZCBmb3IgdGVzdCBwdXJwb3NlcyEpIDxvcGVu
-Y2RrQGZvby1iYXIub3JnPohaBBMRAgAaBQI8SsVsBQsHCgMEAxUDAgMWAgECHgEC
-F4AACgkQvVcs3MzAfDWBwQCcDhKNjtREfG3LzmFQ2c2G4g2EWaUAn2aBZiyAxqrP
-HS0rwgTwgv6A09ukuQENBDxKxW8QBADiAVZSYGnQZ9JPTXHm04ZY4IvjvyRsGtzg
-jbac2NRZwe0zVzhBB5h1Wv23nxeXzwIucMeWDxLKaJbSfP0koRzTFt3h+8wephXF
-wx/sZW5GcHjIdfxQmx7Lmci1bC2HXFDiAYtbD6N4YG62QlolM4MPVf0h1kkBVhXU
-mh0J6VEPXwADBQQA0L2t5AQydYZ1yH0HMMNgmBRnuuG+tswQWjwfNmv9vqEuN4RW
-UTI4uK1BTlKiqWYdHfHba7XzP2kGFmEHVWyBMiQzCzCTLbfIzIIlZy164kryRpdQ
-5Tm2YepkddLgPNjTg43EqKxK/SE1Nv4+luydCuplFktXbgGzeo3KifKyV9CIRgQY
-EQIABgUCPErFbwAKCRC9VyzczMB8NXVmAJ9gHh+Z4LB8d+Z/Puyh4Z+UY9NzZwCf
-asaetBGab/v0SefRVNguBdQIYds=
-=GwWK
------END PGP PUBLIC KEY BLOCK-----
diff --git a/guile/tests/openpgp-elg-sec.asc b/guile/tests/openpgp-elg-sec.asc
deleted file mode 100644 (file)
index 58bafee..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
------BEGIN PGP PRIVATE KEY BLOCK-----
-
-lQG7BDxKxWwRBADnLna2Lu+po71ZQJMpJBgFDALXAp1sogZu/DTIYDhifGQ+saZS
-p68dN89G/FBaweDGmbN4lbS8s+U1Qf/aR2bWFowriq/WqyJGbQbRgDTV2saY5pk7
-pbNQ/4IuHNhwKnURTotzprCcs7k85E27UWybtflbtmYYhgKgoURyNsBljwCgj1te
-eNhfeSzCBy+UdGRXJvtNk3MD/jV41onWYG6RGOn5pwQrljzyPz2PE3eic8Dwl02/
-RLPKvL4U3WRBJVWGPjmpxidmLXesNmYq5El5LDJi0/EumDKnVlMJ1nugrk3yX17a
-CTcFatW+ifQGnr1+x2zkMkQd9dUv/9BtOeX2HjaUe2mKd8tiq4HkpBIr+QUGcdmU
-bIZeBADQYUN6lk3eMYgYwrJN4AjmAJa2DbimhLhag40Rn8kwMRiJrVejuSf0SPhO
-slPGI+2nO0L/eLzmOmpTHXWmTOhUBROAjp9bEM4HXTQXuAEWSRixMdNUTIdlqOy5
-lx9hoJ/HPVCYBhBrWXfSEcsOHQTQ7Za86Juuj3PYALBSE5y/jQAAn2P+O9oRyd/b
-1jXd4F2H8SSzMMu3DM/9JiM6RFNBX2ZhY3RvcjoAAK9+8VCrUSp2tkcQT5PxLJzr
-ENoOP4NB/SYjOkRTQV9mYWN0b3I6AACvTy8J9Y0wrRLLV4I96AjHaNfLwQp9E/0m
-IzpEU0FfZmFjdG9yOgAAr2T4CrVVKLaOwyIga909v8jvsToXmxu0SU9wZW5DREsg
-dGVzdCBrZXkgKE9ubHkgaW50ZW5kZWQgZm9yIHRlc3QgcHVycG9zZXMhKSA8b3Bl
-bmNka0Bmb28tYmFyLm9yZz6IWgQTEQIAGgUCPErFbAULBwoDBAMVAwIDFgIBAh4B
-AheAAAoJEL1XLNzMwHw1gcEAmQGbWA2HMKJfa1qvFUwrpVK9zdHtAJ9HHAujC4X+
-0AnRZNUKFdC94Ct+r50BMgQ8SsVvEAQA4gFWUmBp0GfST01x5tOGWOCL478kbBrc
-4I22nNjUWcHtM1c4QQeYdVr9t58Xl88CLnDHlg8SymiW0nz9JKEc0xbd4fvMHqYV
-xcMf7GVuRnB4yHX8UJsey5nItWwth1xQ4gGLWw+jeGButkJaJTODD1X9IdZJAVYV
-1JodCelRD18AAwUEANC9reQEMnWGdch9BzDDYJgUZ7rhvrbMEFo8HzZr/b6hLjeE
-VlEyOLitQU5SoqlmHR3x22u18z9pBhZhB1VsgTIkMwswky23yMyCJWcteuJK8kaX
-UOU5tmHqZHXS4DzY04ONxKisSv0hNTb+PpbsnQrqZRZLV24Bs3qNyonyslfQAAD6
-AqTLHwdVk3VLPMjSKNONdwwYPDTowJ5cHw5Uc2vRRG0OJf0mIzpFTEdfZmFjdG9y
-OgAAqwRFtBcGdsy2AtBSxX4HPMvtBiODIhf9JiM6RUxHX2ZhY3RvcjoAAKsFn0GK
-Y7/TzpNP3IdTXmkQfUXC+YpP/SYjOkVMR19mYWN0b3I6AACrBV0wh13upAu9+4N1
-rXOuK6EkJ4T1//0mIzpFTEdfZmFjdG9yOgAAqwbJVCRiM/nb341fujR8AELlrBOb
-Lqv9JiM6RUxHX2ZhY3RvcjoAAKsGhKSsyEs0Yrs4YvI0CBiIZn1b2G9LiEYEGBEC
-AAYFAjxKxW8ACgkQvVcs3MzAfDV1ZgCeLovqxqOYaIfjREbT8e9+2jy1D20An268
-JJzFTBkCFFN0YlBK57y6qjf0
-=0tJj
------END PGP PRIVATE KEY BLOCK-----
diff --git a/guile/tests/openpgp-keyring.asc b/guile/tests/openpgp-keyring.asc
deleted file mode 100644 (file)
index 4495a5a..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
------BEGIN PGP PUBLIC KEY BLOCK-----
-Version: GnuPG v1.4.6 (GNU/Linux)
-
-mQGiBDxnlY0RBACAsWUhi/goBvpvTBgL8fFPwBAuD04VYFEtC7+4pBp6kFsHjUR7
-TTUkBsOk2PvMHrDdv0+C4x2CH8YGP1e+O0f2yLWk8Uu+kkF12yiqbbvDEiCdeJT6
-c3vIstY8vJ9Jso5g/LB8Xggq88R7jXFS3hH+WC5v/6P6SARfzXl457cVewCgvxSf
-Gsm9mFospJ0B3RGyg5MB0d8D/RQQryJCGdR2nLe4VfctPL2QBD/1XhtubqEbetaV
-PxssqrJdA+eplBRT7UHokSBahM8gmSmNuSrLDujPfEtaMg6YIkB+Kq0VeJLE0cXT
-ZIH29KJlI/qk1xG4K7D6B0cKaHC/L4BIoKcQLJzfTIPw3frS4jVeNaQZNHSVqZ8/
-VmOMA/9rkNtccQ4RVd9WTFoHKvT4vfiISEOIzKGmcBY9Hymq7MCci3mNe4CDImkv
-ZgnjDlJAM91CX1ODthPLBqvyhnMhhxDnaDl4Nh42uPMSr9JEW2IwoIbFne10ihGT
-O4lBS1C28UfSGEMm/8JBMtxAjbYy3BYzUtCMA+bGBG6Voe5i5LQlRHIuIFdobyAo
-Tm8gY29tbWVudHMpIDx3aG9Ad2hvaXMub3JnPohdBBMRAgAdBQI8Z5WNBQkDwmcA
-BQsHCgMEAxUDAgMWAgECF4AACgkQNRRc6qfZPD+WWACfeJnLyfbpTDB7mDh3aATb
-+0PXz28AoKRdApBVM6Bty+vWyXH6HfF6ZTj+mQGiBDxKxWwRBADnLna2Lu+po71Z
-QJMpJBgFDALXAp1sogZu/DTIYDhifGQ+saZSp68dN89G/FBaweDGmbN4lbS8s+U1
-Qf/aR2bWFowriq/WqyJGbQbRgDTV2saY5pk7pbNQ/4IuHNhwKnURTotzprCcs7k8
-5E27UWybtflbtmYYhgKgoURyNsBljwCgj1teeNhfeSzCBy+UdGRXJvtNk3MD/jV4
-1onWYG6RGOn5pwQrljzyPz2PE3eic8Dwl02/RLPKvL4U3WRBJVWGPjmpxidmLXes
-NmYq5El5LDJi0/EumDKnVlMJ1nugrk3yX17aCTcFatW+ifQGnr1+x2zkMkQd9dUv
-/9BtOeX2HjaUe2mKd8tiq4HkpBIr+QUGcdmUbIZeBADQYUN6lk3eMYgYwrJN4Ajm
-AJa2DbimhLhag40Rn8kwMRiJrVejuSf0SPhOslPGI+2nO0L/eLzmOmpTHXWmTOhU
-BROAjp9bEM4HXTQXuAEWSRixMdNUTIdlqOy5lx9hoJ/HPVCYBhBrWXfSEcsOHQTQ
-7Za86Juuj3PYALBSE5y/jbRJT3BlbkNESyB0ZXN0IGtleSAoT25seSBpbnRlbmRl
-ZCBmb3IgdGVzdCBwdXJwb3NlcyEpIDxvcGVuY2RrQGZvby1iYXIub3JnPohiBBMR
-AgAaBQI8SsVsBQsHCgMEAxUDAgMWAgECHgECF4AAEgkQvVcs3MzAfDUHZUdQRwAB
-AYHBAJwOEo2O1ER8bcvOYVDZzYbiDYRZpQCfZoFmLIDGqs8dLSvCBPCC/oDT26S5
-AQ0EPErFbxAEAOIBVlJgadBn0k9NcebThljgi+O/JGwa3OCNtpzY1FnB7TNXOEEH
-mHVa/befF5fPAi5wx5YPEspoltJ8/SShHNMW3eH7zB6mFcXDH+xlbkZweMh1/FCb
-HsuZyLVsLYdcUOIBi1sPo3hgbrZCWiUzgw9V/SHWSQFWFdSaHQnpUQ9fAAMFBADQ
-va3kBDJ1hnXIfQcww2CYFGe64b62zBBaPB82a/2+oS43hFZRMji4rUFOUqKpZh0d
-8dtrtfM/aQYWYQdVbIEyJDMLMJMtt8jMgiVnLXriSvJGl1DlObZh6mR10uA82NOD
-jcSorEr9ITU2/j6W7J0K6mUWS1duAbN6jcqJ8rJX0IhOBBgRAgAGBQI8SsVvABIJ
-EL1XLNzMwHw1B2VHUEcAAQF1ZgCfYB4fmeCwfHfmfz7soeGflGPTc2cAn2rGnrQR
-mm/79Enn0VTYLgXUCGHb
-=7B/E
------END PGP PUBLIC KEY BLOCK-----
diff --git a/guile/tests/openpgp-keyring.gpg b/guile/tests/openpgp-keyring.gpg
deleted file mode 100644 (file)
index f784404..0000000
Binary files a/guile/tests/openpgp-keyring.gpg and /dev/null differ
diff --git a/guile/tests/openpgp-keyring.scm b/guile/tests/openpgp-keyring.scm
deleted file mode 100644 (file)
index 957b952..0000000
+++ /dev/null
@@ -1,71 +0,0 @@
-;;; GnuTLS-extra --- Guile bindings for GnuTLS-EXTRA.
-;;; Copyright (C) 2007-2012, 2014 Free Software Foundation, Inc.
-;;;
-;;; GnuTLS-extra is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 3 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; GnuTLS-extra is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with GnuTLS-EXTRA; if not, write to the Free Software
-;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
-;;; USA.
-
-;;; Written by Ludovic Courtès <ludo@chbouib.org>.
-
-
-;;;
-;;; Exercise the OpenPGP keyring API part of GnuTLS-extra.
-;;;
-
-(use-modules (gnutls)
-             (gnutls build tests)
-             (srfi srfi-1)
-             (srfi srfi-4))
-
-(define %raw-keyring-file
-  (search-path %load-path "openpgp-keyring.gpg"))
-
-(define %ascii-keyring-file
-  (search-path %load-path "openpgp-keyring.asc"))
-
-(define %ids-in-keyring
-  ;; The IDs of keys that are in the keyring.
-  ;; Change me if you change the keyring file.
-  (list '#u8(#x35 #x14 #x5c #xea
-             #xa7 #xd9 #x3c #x3f)
-        '#u8(#xbd #x57 #x2c #xdc
-             #xcc #xc0 #x7c #x35)))
-
-(define (file-size file)
-  (stat:size (stat file)))
-
-(define (valid-keyring? file format)
-  ;; Return true if FILE contains a valid keyring encoded in FORMAT.
-  (let ((raw-keyring (make-u8vector (file-size file))))
-
-    (uniform-vector-read! raw-keyring (open-file file "rb"))
-
-    (let ((keyring (import-openpgp-keyring raw-keyring format))
-          (null-id (make-u8vector 8 0)))
-
-      (and (openpgp-keyring? keyring)
-           (not (openpgp-keyring-contains-key-id? keyring null-id))
-           (every (lambda (id)
-                    (openpgp-keyring-contains-key-id? keyring id))
-                  %ids-in-keyring)))))
-
-(run-test
-    (lambda ()
-      (every valid-keyring?
-             (list %raw-keyring-file
-                   %ascii-keyring-file)
-             (list openpgp-certificate-format/raw
-                   openpgp-certificate-format/base64))))
-
-;;; arch-tag: 516bf608-5c8b-4787-abe9-5f7b6e6d660b
diff --git a/guile/tests/openpgp-keys.scm b/guile/tests/openpgp-keys.scm
deleted file mode 100644 (file)
index a7ca0f1..0000000
+++ /dev/null
@@ -1,71 +0,0 @@
-;;; GnuTLS-extra --- Guile bindings for GnuTLS-EXTRA.
-;;; Copyright (C) 2007-2012 Free Software Foundation, Inc.
-;;;
-;;; GnuTLS-extra is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 3 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; GnuTLS-extra is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with GnuTLS-EXTRA; if not, write to the Free Software
-;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
-;;; USA.
-
-;;; Written by Ludovic Courtès <ludo@chbouib.org>.
-
-
-;;;
-;;; Exercise the OpenPGP key API part of GnuTLS-extra.
-;;;
-
-(use-modules (gnutls)
-             (gnutls build tests)
-             (srfi srfi-1)
-             (srfi srfi-4)
-             (srfi srfi-11))
-
-(define %certificate-file
-  (search-path %load-path "openpgp-elg-pub.asc"))
-
-(define %private-key-file
-  (search-path %load-path "openpgp-elg-sec.asc"))
-
-(define %key-id
-  ;; Change me if you change the key files.
-  '#u8(#xbd #x57 #x2c #xdc #xcc #xc0 #x7c #x35))
-
-(define (file-size file)
-  (stat:size (stat file)))
-
-
-(run-test
-    (lambda ()
-      (let ((raw-pubkey  (make-u8vector (file-size %certificate-file)))
-            (raw-privkey (make-u8vector (file-size %private-key-file))))
-
-        (uniform-vector-read! raw-pubkey (open-input-file %certificate-file))
-        (uniform-vector-read! raw-privkey (open-input-file %private-key-file))
-
-        (let ((pub (import-openpgp-certificate raw-pubkey
-                                           openpgp-certificate-format/base64))
-              (sec (import-openpgp-private-key raw-privkey
-                                           openpgp-certificate-format/base64)))
-
-          (and (openpgp-certificate? pub)
-               (openpgp-private-key? sec)
-               (equal? (openpgp-certificate-id pub) %key-id)
-               (u8vector? (openpgp-certificate-fingerprint pub))
-               (every string? (openpgp-certificate-names pub))
-               (member (openpgp-certificate-version pub) '(3 4))
-               (list? (openpgp-certificate-usage pub))
-               (let-values (((pk bits)
-                             (openpgp-certificate-algorithm pub)))
-                 (and (string? (pk-algorithm->string pk))
-                      (number? bits))))))))
-
-;;; arch-tag: 2ee2a377-7f4d-4031-92a8-275090e4f83d
diff --git a/guile/tests/openpgp-pub.asc b/guile/tests/openpgp-pub.asc
deleted file mode 100644 (file)
index 4aa5cf9..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
------BEGIN PGP PUBLIC KEY BLOCK-----
-Version: GnuPG v1.4.10 (GNU/Linux)
-Comment: Test key for GnuTLS
-
-mI0ETYD2OQEEAMHmDBtJii82NbWuYcvEWCYnwa7GTcz2PYikYCcq/t5nkyb5Bfmx
-mh2hpto7Lr5d1L/shvab1gXCcrWEAREgNNk9LiowtLuTHBdeOFlJ1u1P1rvdFVKq
-2a6ft77Q5VltUDKPgTqz4NWH2KUlLfTvwJDnq2DxYsbwVpBDURuUocXhABEBAAG0
-CVRlc3QgdXNlcoi4BBMBAgAiBQJNgPY5AhsvBgsJCAcDAgYVCAIJCgsEFgIDAQIe
-AQIXgAAKCRAMTrFUBnAKMOVDA/9GEw7AokwJSGvHREriXcvMMKp6c6SYqa0TVsTg
-Gh3ENu/KTfGJIM5p+zR6xy+5u5DfP5qLrRdCnoczncR5w9fn3RsP8ju/Ga5z23Q+
-6XxRKRkXjE/E0ZFulbuaBom/nhrOmmfqKe7Mor9Y4QwzL2wL3sf6jWLglwdFYS/X
-W3wqjLkBogRNgPY5EQQApafdUhCAHj8LLXYCqOXRSPZbKzvB55NwWrdvnod0seUW
-aiTSWBlKnSvIomdcII/E3bjdngK4fTJ+Xr5pEJuzBnW3w787r6jBJSq2Lp0T9SP4
-CBzd0gXcOQkILvX1VzxAsYVULJA0mhAR3IHFcywjX6ENKuvs7ApniBNoXqi6d3cA
-oIAzYKrjyZ+guM4IUlRRrB8abx5vBACJPV+d15GYgzt1d8zLvOl/mzs85Twj2SB1
-ZqzK6H/6QxQkEZpP/UVFpXaUGUly3nGEqg1yw4cgqW4SSxgLFz6B23Si+cTsssE6
-CYziN1UI6NjxkoG/npMm0wRp7Z+KylEolAdbFBAAprORkt58CrGgpYe8O/35+PWc
-J9rjhwxxkQP/VCpbZLugkL4XHWGWFGG35S6k9F3xPPTPoX9Zoud+0bOeoOK5RQHo
-e99sVNN4hxxPTM/rJXfTTZUoB6o84yulTSxb6C9ueHotDV0eB9QX1ov/ltmwy3XS
-fXEyWtI0CDBuZgEww26Up0pzg4XTBYMkmXrxx3J9ihcCIYyAHoE13EWI5wQYAQIA
-CQUCTYD2OQIbIgBSCRAMTrFUBnAKMEcgBBkRAgAGBQJNgPY5AAoJEPMP1CPBQ+e6
-3fQAnR7HWLnQTbxCIhlBTZiuJv2HC6cbAJwJ6VsSU6ADCkMuGT3LLNo+UnckK+4i
-BACcivWsW40ddtEQ0wno1uP65TmKq3aJrdODXTAnqkmNQKL7X7Fz+nmEWiS+LBH8
-lRvAaeRPX2LV+DCJDbAPrYd7LkOHyuM0I+ZApto5cjem/EnO7op2QwkCCa6oUp0l
-YA6i6aGF2KGx7WQwi2URIMPhihpOvAbkjfszYpFL4VP5wQ==
-=ydIq
------END PGP PUBLIC KEY BLOCK-----
diff --git a/guile/tests/openpgp-sec.asc b/guile/tests/openpgp-sec.asc
deleted file mode 100644 (file)
index 886ba34..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
------BEGIN PGP PRIVATE KEY BLOCK-----
-Version: GnuPG v1.4.10 (GNU/Linux)
-Comment: Test key for GnuTLS
-
-lQHYBE2A9jkBBADB5gwbSYovNjW1rmHLxFgmJ8Guxk3M9j2IpGAnKv7eZ5Mm+QX5
-sZodoabaOy6+XdS/7Ib2m9YFwnK1hAERIDTZPS4qMLS7kxwXXjhZSdbtT9a73RVS
-qtmun7e+0OVZbVAyj4E6s+DVh9ilJS3078CQ56tg8WLG8FaQQ1EblKHF4QARAQAB
-AAP9HJePsXZmqg+UW/Ya9bE+TmIObXdQgajN6hhTFXOBocokKNsPxoIp97Sepg+U
-FP5BIQv/2t2f8bl6sMmGXsAhCqVzRxGuA+9USx8OfTHSdgIKT5T2VFSGJaU4df3Q
-rstUY3dcvl6VKpDDZic1T7u2ANzaWM2u+pwooKC4cc/k9AECAMNDvrKF3FC7R9sd
-TagVrrfde0RZuwhbGW9ghslkY893EelXQL/lbBI20crPdrsdDpMe370KO2bQLqwO
-HGAxIYUCAP41iC7KReYvysLZ34tM55ZFE7BPsMcXUeu6hkYOMDZYvE+x4KV6Umo+
-Civd4qD9dESR3WOcI9MwALUdNTxQU60B/21MrWjajY1m1vv7l2slJon5eSrH6BkH
-Aj173uZca8HbgqSF1xOQW8ZGa6KInN3wHe+vPOXAgzlku/4XHgEYVVGeq7QJVGVz
-dCB1c2VyiLgEEwECACIFAk2A9jkCGy8GCwkIBwMCBhUIAgkKCwQWAgMBAh4BAheA
-AAoJEAxOsVQGcAow5UMD/0YTDsCiTAlIa8dESuJdy8wwqnpzpJiprRNWxOAaHcQ2
-78pN8Ykgzmn7NHrHL7m7kN8/moutF0KehzOdxHnD1+fdGw/yO78ZrnPbdD7pfFEp
-GReMT8TRkW6Vu5oGib+eGs6aZ+op7syiv1jhDDMvbAvex/qNYuCXB0VhL9dbfCqM
-nQG7BE2A9jkRBAClp91SEIAePwstdgKo5dFI9lsrO8Hnk3Bat2+eh3Sx5RZqJNJY
-GUqdK8iiZ1wgj8TduN2eArh9Mn5evmkQm7MGdbfDvzuvqMElKrYunRP1I/gIHN3S
-Bdw5CQgu9fVXPECxhVQskDSaEBHcgcVzLCNfoQ0q6+zsCmeIE2heqLp3dwCggDNg
-quPJn6C4zghSVFGsHxpvHm8EAIk9X53XkZiDO3V3zMu86X+bOzzlPCPZIHVmrMro
-f/pDFCQRmk/9RUWldpQZSXLecYSqDXLDhyCpbhJLGAsXPoHbdKL5xOyywToJjOI3
-VQjo2PGSgb+ekybTBGntn4rKUSiUB1sUEACms5GS3nwKsaClh7w7/fn49Zwn2uOH
-DHGRA/9UKltku6CQvhcdYZYUYbflLqT0XfE89M+hf1mi537Rs56g4rlFAeh732xU
-03iHHE9Mz+sld9NNlSgHqjzjK6VNLFvoL254ei0NXR4H1BfWi/+W2bDLddJ9cTJa
-0jQIMG5mATDDbpSnSnODhdMFgySZevHHcn2KFwIhjIAegTXcRQAAn2PK9kOqhjOJ
-KU5iaagnF176FwhdCO2I5wQYAQIACQUCTYD2OQIbIgBSCRAMTrFUBnAKMEcgBBkR
-AgAGBQJNgPY5AAoJEPMP1CPBQ+e63fQAniK5kU+dwIbkD+OHJHkC73V6v4D8AJ0Z
-+GBYj4nhKEX21QXfj55F3Zpg1e4iBACcivWsW40ddtEQ0wno1uP65TmKq3aJrdOD
-XTAnqkmNQKL7X7Fz+nmEWiS+LBH8lRvAaeRPX2LV+DCJDbAPrYd7LkOHyuM0I+ZA
-pto5cjem/EnO7op2QwkCCa6oUp0lYA6i6aGF2KGx7WQwi2URIMPhihpOvAbkjfsz
-YpFL4VP5wQ==
-=zzoN
------END PGP PRIVATE KEY BLOCK-----