diff options
| author | Nikos Mavrogiannopoulos <nmav@redhat.com> | 2017-09-12 08:03:59 +0200 |
|---|---|---|
| committer | Nikos Mavrogiannopoulos <nmav@redhat.com> | 2017-09-12 09:18:54 +0200 |
| commit | 6dae519533100a25fde22f5d67ac080e1ed179c9 (patch) | |
| tree | aafe4ecb0bb333ce07d50afc5c033ab5c9275010 | |
| parent | e391d2ea907fcd273e122c8a2116a394f6e6cae1 (diff) | |
| download | gnutls-6dae519533100a25fde22f5d67ac080e1ed179c9.tar.gz | |
tests: guile: don't use VERS-TLS-ALL
That is, avoid enabling experimental protocols.
Signed-off-by: Nikos Mavrogiannopoulos <nmav@redhat.com>
| -rw-r--r-- | guile/tests/anonymous-auth.scm | 2 | ||||
| -rw-r--r-- | guile/tests/priorities.scm | 6 | ||||
| -rw-r--r-- | guile/tests/session-record-port.scm | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/guile/tests/anonymous-auth.scm b/guile/tests/anonymous-auth.scm index a12eeb5b1d..e9010bc554 100644 --- a/guile/tests/anonymous-auth.scm +++ b/guile/tests/anonymous-auth.scm @@ -30,7 +30,7 @@ ;; TLS session settings. (define priorities - "NONE:+VERS-TLS-ALL:+CIPHER-ALL:+MAC-ALL:+SIGN-ALL:+COMP-ALL:+ANON-DH") + "NONE:+VERS-TLS1.2:+CIPHER-ALL:+MAC-ALL:+SIGN-ALL:+COMP-ALL:+ANON-DH") ;; Message sent by the client. (define %message (apply u8vector (iota 256))) diff --git a/guile/tests/priorities.scm b/guile/tests/priorities.scm index a96cffda9c..6e837294de 100644 --- a/guile/tests/priorities.scm +++ b/guile/tests/priorities.scm @@ -30,17 +30,17 @@ (define %valid-priority-strings ;; Valid priority strings (from the manual). - '("NONE:+VERS-TLS-ALL:+MAC-ALL:+RSA:+AES-128-CBC:+SIGN-ALL:+COMP-NULL" + '("NONE:+VERS-TLS1.2:+MAC-ALL:+RSA:+AES-128-CBC:+SIGN-ALL:+COMP-NULL" "NORMAL:-ARCFOUR-128" "SECURE128:-VERS-SSL3.0:+COMP-NULL" - "NONE:+VERS-TLS-ALL:+AES-128-CBC:+RSA:+SHA1:+COMP-NULL:+SIGN-RSA-SHA1")) + "NONE:+VERS-TLS1.2:+AES-128-CBC:+RSA:+SHA1:+COMP-NULL:+SIGN-RSA-SHA1")) (define %invalid-priority-strings ;; Invalid strings: the prefix and the suffix that leads to a parse error. '(("" . "THIS-DOES-NOT-WORK") ("NORMAL:" . "FAIL-HERE") ("SECURE128:-VERS-SSL3.0:" . "+FAIL-HERE") - ("NONE:+VERS-TLS-ALL:+AES-128-CBC:" + ("NONE:+VERS-TLS1.2:+AES-128-CBC:" . "+FAIL-HERE:+SHA1:+COMP-NULL:+SIGN-RSA-SHA1"))) (run-test diff --git a/guile/tests/session-record-port.scm b/guile/tests/session-record-port.scm index 8764d43655..0b8ca9d47a 100644 --- a/guile/tests/session-record-port.scm +++ b/guile/tests/session-record-port.scm @@ -29,7 +29,7 @@ ;; TLS session settings. (define priorities - "NONE:+VERS-TLS-ALL:+CIPHER-ALL:+MAC-ALL:+SIGN-ALL:+COMP-ALL:+ANON-DH") + "NONE:+VERS-TLS1.2:+CIPHER-ALL:+MAC-ALL:+SIGN-ALL:+COMP-ALL:+ANON-DH") ;; Message sent by the client. (define %message (apply u8vector (iota 256))) |