diff options
Diffstat (limited to 'guile')
-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))) |