| # -- headers.test |
| # |
| # testing ::rivet::load_headers command |
| # |
| |
| 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 |