aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorEli Zaretskii2017-07-14 22:00:55 +0300
committerEli Zaretskii2017-07-14 22:00:55 +0300
commit389fb2aebf01fb786e5b18ab87953c90c15279ff (patch)
tree174b3b1878e0ad4f04188dd92d1cd73eae5c3a4f /test
parent548941bbd8a0a02fe58ba34875468e208c08c891 (diff)
downloademacs-389fb2aebf01fb786e5b18ab87953c90c15279ff.tar.gz
emacs-389fb2aebf01fb786e5b18ab87953c90c15279ff.zip
Fix the MS-Windows build due to added GnuTLS functions
* src/gnutls.c [WINDOWSNT]: Add DEF_DLL_FN for new functions. (init_gnutls_functions) [WINDOWSNT]: Add LOAD_DLL_FN for new functions. Add #define redirections for new functions. (gnutls_symmetric_aead): Fix format specs to be more portable when printing ptrdiff_t arguments. * src/fns.c (gnutls_rnd) [WINDOWSNT]: Redirect to w32_gnutls_rnd wrapper. * src/gnutls.h [WINDOWSNT]: Add prototype for w32_gnutls_rnd. * test/lisp/net/gnutls-tests.el (gnutls-tests-tested-macs) (gnutls-tests-tested-digests, gnutls-tests-tested-ciphers): Call gnutls-available-p, otherwise GnuTLS functions might not be loaded from the DLL on MS-Windows.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/net/gnutls-tests.el23
1 files changed, 13 insertions, 10 deletions
diff --git a/test/lisp/net/gnutls-tests.el b/test/lisp/net/gnutls-tests.el
index 6f1ca744e54..9dbb6c05b9e 100644
--- a/test/lisp/net/gnutls-tests.el
+++ b/test/lisp/net/gnutls-tests.el
@@ -45,20 +45,23 @@
45 (secure-hash-algorithms))) 45 (secure-hash-algorithms)))
46 46
47(defvar gnutls-tests-tested-macs 47(defvar gnutls-tests-tested-macs
48 (remove-duplicates 48 (when (gnutls-available-p)
49 (append (mapcar 'cdr gnutls-tests-internal-macs-upcased) 49 (remove-duplicates
50 (mapcar 'car (gnutls-macs))))) 50 (append (mapcar 'cdr gnutls-tests-internal-macs-upcased)
51 (mapcar 'car (gnutls-macs))))))
51 52
52(defvar gnutls-tests-tested-digests 53(defvar gnutls-tests-tested-digests
53 (remove-duplicates 54 (when (gnutls-available-p)
54 (append (mapcar 'cdr gnutls-tests-internal-macs-upcased) 55 (remove-duplicates
55 (mapcar 'car (gnutls-digests))))) 56 (append (mapcar 'cdr gnutls-tests-internal-macs-upcased)
57 (mapcar 'car (gnutls-digests))))))
56 58
57(defvar gnutls-tests-tested-ciphers 59(defvar gnutls-tests-tested-ciphers
58 (remove-duplicates 60 (when (gnutls-available-p)
59 ; these cause FPEs or SEGVs 61 (remove-duplicates
60 (remove-if (lambda (e) (memq e '(ARCFOUR-128))) 62 ; these cause FPEs or SEGVs
61 (mapcar 'car (gnutls-ciphers))))) 63 (remove-if (lambda (e) (memq e '(ARCFOUR-128)))
64 (mapcar 'car (gnutls-ciphers))))))
62 65
63(defvar gnutls-tests-mondo-strings 66(defvar gnutls-tests-mondo-strings
64 (list 67 (list