# $Id$

# test interp pools

set testfilename1 "headers.ws3"

::tcltest::test header-1.1 {websh header test} {
    ### fixme: this can't work, because state doesn't handle
    ### multiple headers correctly anyway ...
    #set page [ ::http::geturl "${urlbase}$testfilename1" ]

    # other approach (connect directly)
    set s [socket $host $port]
    puts $s "GET /$testfilename1 HTTP/1.0"
    puts $s ""
    flush $s
    set page ""
    set count 0
    while {![eof $s]} {
	set line [gets $s]
	if {![regexp "^(Server|Generator|Date|Content-Length): .*" $line]} {
	    append page $line\n
	}
    }
    close $s
    set page
} {HTTP/1.1 200 OK
Foo: bar
Foo: bla
Foo: que
Header1: bar
Header2: Foo
Header2: Bar
Connection: close
Content-Type: text/html

hi world
}

::tcltest::test header-1.1 {websh Basic auth header test (pass through Authorization)} {
    set auth [list Authorization {Basic d2Vic2g6cGFzcw==}]
    set page [::http::geturl "${urlbase}$testfilename1?cmd=auth" -headers $auth]
    set match [::http::data $page]
    set auth [list Authorization {Basic d2Vic2g6cGFzczp3b3Jk}]
    set page [::http::geturl "${urlbase}$testfilename1?cmd=auth" -headers $auth]
    append match ! [::http::data $page]
} {websh*pass!websh*pass:word}