tests/env.test

# $Id$

set testfilename1 env.rvt

::tcltest::test env-1.1 {Environment variable} {
    set page [ ::http::geturl "${urlbase}$testfilename1" ]
    regexp -line "^env\\(DOCUMENT_NAME\\) = $testfilename1\$" [ ::http::data $page ] match
    set match
} "env(DOCUMENT_NAME) = $testfilename1"