close fork

1 files changed, 11 insertions, 9 deletions

diff --git a/tests/http.test b/tests/http.test
index 587e6e4..46242bd 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -18,6 +18,8 @@ if {"::tcltest" ni [namespace children]} {
 source [file join [file dirname [info script]] tcltests.tcl]
 
 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
@@ -126,25 +128,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} {
+test http-2.2.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
     http::CharsetToEncoding iso-8859-11
 } iso8859-11
-test http-2.3.$ThreadLevel {http::CharsetToEncoding} {
+test http-2.3.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
     http::CharsetToEncoding iso-2022-kr
 } iso2022-kr
-test http-2.4.$ThreadLevel {http::CharsetToEncoding} {
+test http-2.4.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
     http::CharsetToEncoding shift-jis
 } shiftjis
-test http-2.5.$ThreadLevel {http::CharsetToEncoding} {
+test http-2.5.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
     http::CharsetToEncoding windows-437
 } cp437
-test http-2.6.$ThreadLevel {http::CharsetToEncoding} {
+test http-2.6.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
     http::CharsetToEncoding latin5
 } iso8859-9
-test http-2.7.$ThreadLevel {http::CharsetToEncoding} {
+test http-2.7.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
     http::CharsetToEncoding latin1
 } iso8859-1
-test http-2.8.$ThreadLevel {http::CharsetToEncoding} {
+test http-2.8.$ThreadLevel {http::CharsetToEncoding} http2.9.7 {
     http::CharsetToEncoding latin4
 } binary
 
@@ -481,10 +483,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 \"
-} -result {Bad value for -headers ("), must be list}
+} -constraints http2.9.8 -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}
-} -result {Bad value for -headers (List Length 3), number of list elements must be even}
+} -constraints http2.9.8 -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]