ports/devel/tcltls/files/patch-tests
2023-11-19 22:40:58 -05:00

38 lines
1.2 KiB
Text

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]