summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-11-20 19:29:53 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-11-20 19:29:53 (GMT)
commitb71ebc2746c2c92514bfd0dd8b9ad48019ac2e16 (patch)
treeaf28ede48ae803516202b5feda048eb36d33f583
parentf39cef259006c1854cde8abe13f15f702bc574b8 (diff)
downloadtcl-b71ebc2746c2c92514bfd0dd8b9ad48019ac2e16.zip
tcl-b71ebc2746c2c92514bfd0dd8b9ad48019ac2e16.tar.gz
tcl-b71ebc2746c2c92514bfd0dd8b9ad48019ac2e16.tar.bz2
Constraints http2.9.x make no sense, when testing http2.10
-rw-r--r--tests/http.test22
1 files changed, 10 insertions, 12 deletions
diff --git a/tests/http.test b/tests/http.test
index 46242bd..08195a6 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -15,11 +15,9 @@ if {"::tcltest" ni [namespace children]} {
package require tcltest 2.5
namespace import -force ::tcltest::*
}
-source [file join [file dirname [info script]] tcltests.tcl]
+package require tcltests
package require http 2.10
-testConstraint http2.9.7 [package vsatisfies [package provide http] 2.9.7]
-testConstraint http2.9.8 [package vsatisfies [package provide http] 2.9.8]
proc bgerror {args} {
global errorInfo
@@ -128,25 +126,25 @@ test http-1.6.$ThreadLevel {http::config} -setup {
test http-2.1.$ThreadLevel {http::reset} {
catch {http::reset http#1}
} 0
-test http-2.2.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
+test http-2.2.$ThreadLevel {http::CharsetToEncoding} {
http::CharsetToEncoding iso-8859-11
} iso8859-11
-test http-2.3.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
+test http-2.3.$ThreadLevel {http::CharsetToEncoding} {
http::CharsetToEncoding iso-2022-kr
} iso2022-kr
-test http-2.4.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
+test http-2.4.$ThreadLevel {http::CharsetToEncoding} {
http::CharsetToEncoding shift-jis
} shiftjis
-test http-2.5.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
+test http-2.5.$ThreadLevel {http::CharsetToEncoding} {
http::CharsetToEncoding windows-437
} cp437
-test http-2.6.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
+test http-2.6.$ThreadLevel {http::CharsetToEncoding} {
http::CharsetToEncoding latin5
} iso8859-9
-test http-2.7.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
+test http-2.7.$ThreadLevel {http::CharsetToEncoding} {
http::CharsetToEncoding latin1
} iso8859-1
-test http-2.8.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
+test http-2.8.$ThreadLevel {http::CharsetToEncoding} {
http::CharsetToEncoding latin4
} binary
@@ -483,10 +481,10 @@ test http-3.33.$ThreadLevel {http::geturl application/xml is text} -body {
} -result {test 4660 /test}
test http-3.34.$ThreadLevel {http::geturl -headers not a list} -returnCodes error -body {
http::geturl http://test/t -headers \"
-} -constraints http2.9.8 -result {Bad value for -headers ("), must be list}
+} -result {Bad value for -headers ("), must be list}
test http-3.35.$ThreadLevel {http::geturl -headers not even number of elements} -returnCodes error -body {
http::geturl http://test/t -headers {List Length 3}
-} -constraints http2.9.8 -result {Bad value for -headers (List Length 3), number of list elements must be even}
+} -result {Bad value for -headers (List Length 3), number of list elements must be even}
test http-4.1.$ThreadLevel {http::Event} -body {
set token [http::geturl $url -keepalive 0]