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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
--- a/modules/devtools/testutilities.tcl 2020-04-16 21:57:11.915653960 +0200
+++ b/modules/devtools/testutilities.tcl 2020-04-16 22:11:05.621829465 +0200
@@ -229,6 +229,10 @@
::tcltest::testConstraint tcl8.6plus \
[expr {[package vsatisfies [package provide Tcl] 8.6]}]
+ ::tcltest::testConstraint tcl8.6.8 \
+ [expr { [package vsatisfies [package provide Tcl] 8.6.8] &&
+ ![package vsatisfies [package provide Tcl] 8.6.9]}]
+
::tcltest::testConstraint tcl8.6not10 \
[expr { [package vsatisfies [package provide Tcl] 8.6] &&
![package vsatisfies [package provide Tcl] 8.6.10]}]
--- a/modules/hook/hook.test 2020-04-16 21:59:22.708326030 +0200
+++ b/modules/hook/hook.test 2020-04-16 22:09:18.055740312 +0200
@@ -436,6 +436,7 @@
} -cleanup {
cleanup
} -result [tcltest::byConstraint {
+ tcl8.6.8 {{{S1 <H1> {} O1} {simulated error} {-code 1 -level 0 -errorstack {INNER {error {simulated error}} UP 1 CALL {::hook::call S1 <H1>}} -errorcode NONE}}}
tcl8.6.10plus {{{S1 <H1> {} O1} {simulated error} {-code 1 -level 0 -errorstack {INNER {error {simulated error}} UP 1 CALL {::hook::call S1 <H1>}} -errorcode NONE}}}
tcl8.6not10 {{{S1 <H1> {} O1} {simulated error} {-code 1 -level 0 -errorstack {INNER {error {simulated error}} UP 1 CALL {call S1 <H1>}} -errorcode NONE}}}
tcl8.5minus {{{S1 <H1> {} O1} {simulated error} {-code 1 -level 0 -errorcode NONE}}}
@@ -452,6 +453,7 @@
} -cleanup {
cleanup
} -result [tcltest::byConstraint {
+ tcl8.6.8 {{{S1 <H1> O1 {}} {S1 <H1> O3 {}}} {{{S1 <H1> {} O2} {simulated error} {-code 1 -level 0 -errorstack {INNER {error {simulated error}} UP 1 CALL {::hook::call S1 <H1>}} -errorcode NONE}}}}
tcl8.6.10plus {{{S1 <H1> O1 {}} {S1 <H1> O3 {}}} {{{S1 <H1> {} O2} {simulated error} {-code 1 -level 0 -errorstack {INNER {error {simulated error}} UP 1 CALL {::hook::call S1 <H1>}} -errorcode NONE}}}}
tcl8.6not10 {{{S1 <H1> O1 {}} {S1 <H1> O3 {}}} {{{S1 <H1> {} O2} {simulated error} {-code 1 -level 0 -errorstack {INNER {error {simulated error}} UP 1 CALL {call S1 <H1>}} -errorcode NONE}}}}
tcl8.5minus {{{S1 <H1> O1 {}} {S1 <H1> O3 {}}} {{{S1 <H1> {} O2} {simulated error} {-code 1 -level 0 -errorcode NONE}}}}
--- a/modules/http/autoproxy.test 2020-04-16 22:48:04.645153193 +0200
+++ b/modules/http/autoproxy.test 2020-04-16 22:48:30.710701582 +0200
@@ -179,20 +179,6 @@
autoproxy::configure -tls_package dummy
} -result "Invalid TLS package option 'dummy'. Must be 'tls' or 'twapi'" -returnCodes error
-test autoproxy-2.0.0 "autoproxy::tls_socket (tls) with proxy" -constraints {
- have_tls
-} -setup {
- packageReset
- package require http
- autoproxy::configure -proxy_host $proxy_host -proxy_port $proxy_port
-} -body {
- http::register https 443 autoproxy::tls_socket
- set tok [http::geturl https://www.example.com]
- http::status $tok
-} -cleanup {
- http::cleanup $tok
-} -result ok
-
test autoproxy-2.0.1 "autoproxy::tls_socket (twapi) with proxy" -constraints {
have_twapi
} -setup {
@@ -202,20 +188,6 @@
} -body {
http::register https 443 autoproxy::tls_socket
set tok [http::geturl https://www.example.com]
- http::status $tok
-} -cleanup {
- http::cleanup $tok
-} -result ok
-
-test autoproxy-2.1.0 "autoproxy::tls_socket (tls) without proxy" -constraints {
- have_tls
-} -setup {
- packageReset
- package require http
- autoproxy::configure -proxy_host "" -proxy_port $proxy_port
-} -body {
- http::register https 443 autoproxy::tls_socket
- set tok [http::geturl https://www.example.com]
http::status $tok
} -cleanup {
http::cleanup $tok
--- a/modules/string/token_shell.test 2020-04-17 08:40:44.813030086 +0200
+++ b/modules/string/token_shell.test 2020-04-17 08:44:03.066752545 +0200
@@ -26,6 +26,7 @@
test string-token-shell-1.0 "string token shell, wrong#args, not enough" -body {
string token shell
} -returnCodes error -result [tcltest::byConstraint {
+ tcl8.6.8 {wrong # args: should be "::string::token::shell ?-indices? ?-partial? ?--? text"}
tcl8.6.10plus {wrong # args: should be "::string::token::shell ?-indices? ?-partial? ?--? text"}
tcl8.6not10 {wrong # args: should be "shell ?-indices? ?-partial? ?--? text"}
tcl8.5minus {wrong # args: should be "::string::token::shell ?-indices? ?-partial? ?--? text"}
@@ -34,6 +35,7 @@
test string-token-shell-1.1 "string token shell, wrong#args, too many" -body {
string token shell T X
} -returnCodes error -result [tcltest::byConstraint {
+ tcl8.6.8 {wrong # args: should be "::string::token::shell ?-indices? ?-partial? ?--? text"}
tcl8.6.10plus {wrong # args: should be "::string::token::shell ?-indices? ?-partial? ?--? text"}
tcl8.6not10 {wrong # args: should be "shell ?-indices? ?-partial? ?--? text"}
tcl8.5minus {wrong # args: should be "::string::token::shell ?-indices? ?-partial? ?--? text"}
@@ -46,6 +48,7 @@
test string-token-shell-1.3 "string token shell, wrong#args, too many" -body {
string token shell -- T X
} -returnCodes error -result [tcltest::byConstraint {
+ tcl8.6.8 {wrong # args: should be "::string::token::shell ?-indices? ?-partial? ?--? text"}
tcl8.6.10plus {wrong # args: should be "::string::token::shell ?-indices? ?-partial? ?--? text"}
tcl8.6not10 {wrong # args: should be "shell ?-indices? ?-partial? ?--? text"}
tcl8.5minus {wrong # args: should be "::string::token::shell ?-indices? ?-partial? ?--? text"}
|
