tests: guile: don't use VERS-TLS-ALL

That is, avoid enabling experimental protocols.

Signed-off-by: Nikos Mavrogiannopoulos <nmav@redhat.com>

diff --git a/guile/tests/anonymous-auth.scm b/guile/tests/anonymous-auth.scm
index a12eeb5b1d29916b3abaf468b94d0e2ab989141b..e9010bc5547e6b5650c0b8577c7381fa41c5bf62 100644 (file)
--- 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 a96cffda9cbf3655877172647216bb09be38a882..6e837294de7ace8fa6b04295c713b32be4cc9742 100644 (file)
--- 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 8764d436553bdf0e6473906780bcad1d12d49957..0b8ca9d47a4bc49d0b4cdb02c7d262408656d10b 100644 (file)
--- 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)))