# $Id$ | |
set testfilename1 headers.rvt | |
# We do this in order to always match the version present. | |
set httpversion [package require http] | |
set result "hdrs(Accept) = */* | |
hdrs(Host) = localhost:8081 | |
hdrs(User-Agent) = Tcl http client package $httpversion" | |
::tcltest::test headers-1.1 {load_headers test} { | |
set page [::http::geturl "${urlbase}$testfilename1"] | |
regexp -all -lineanchor "(^hdrs.*?$\n){3}" [::http::data $page] match | |
set match [string trim $match] | |
::http::cleanup $page | |
set match | |
} $result |