/
patch-tests
38 lines (34 loc) · 1.19 KB
/
patch-tests
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
See bug-reports:
https://core.tcl-lang.org/tcltls/tktview/bb7085cfdc
https://core.tcl-lang.org/tcltls/tktview/c6b35cf0e3
https://core.tcl-lang.org/tcltls/tktview/64cdb76212
--- tests/tlsIO.test 2020-10-12 16:39:22.000000000 -0400
+++ tests/tlsIO.test 2023-11-19 21:03:22.658062000 -0500
@@ -1106,4 +1106,5 @@
# need update to complete TLS handshake in-process
update
+ fconfigure $s1 -blocking 1
set z [gets $s1]
close $s
@@ -2027,5 +2028,5 @@
} {{} 0 {} 0 {}}
-test tls-bug58-1.0 {test protocol negotiation failure} {socket} {
+test tls-bug58-1.0 {test protocol negotiation failure} -constraints {socket} -body {
# Following code is based on what was reported in bug #58. Prior
# to fix the program would crash with a segfault.
@@ -2062,5 +2063,5 @@
}
set ::done
-} {handshake failed: wrong version number}
+} -result {handshake failed: *} -match glob
# cleanup
--- tests/all.tcl 2020-10-12 16:39:22.000000000 -0400
+++ tests/all.tcl 2023-11-19 21:19:34.128221000 -0500
@@ -55,5 +55,5 @@
# cleanup
puts stdout "\nTests ended at [eval $timeCmd]"
+set failCount [llength $::tcltest::failFiles]
::tcltest::cleanupTests 1
-return
-
+exit [expr $failCount > 0]