1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
set testfilename1 upload.rvt
::tcltest::test upload-1.1 {multipart/form-data} {
set bound "-----NEXT_PART_[clock seconds].[pid]"
set fl [open AngeloFish.jpg r]
fconfigure $fl -translation binary
set data [read $fl]
close $fl
set outputData "--$bound\r\nContent-Disposition: form-data; name=\"uploadtest\"; filename=\"AngeloFish.jpg\"\r\n\r\n$data\n--${bound}--"
set page [::http::geturl "${urlbase}$testfilename1" -type "multipart/form-data; boundary=$bound" -query $outputData]
set ret [string trim [::http::data $page]]
::http::cleanup $page
set ret
} {uploadtest|1|42747||AngeloFish.jpg}
set testfilename1 uploadsave.rvt
::tcltest::test upload-1.2 {upload save} {
file delete uploadedjpeg.jpg
set bound "-----NEXT_PART_[clock seconds].[pid]"
set fl [open AngeloFish.jpg r]
fconfigure $fl -translation binary
set data [read $fl]
close $fl
set outputData "--$bound\r\nContent-Disposition: form-data; name=\"uploadtest\"; filename=\"AngeloFish.jpg\"\r\n\r\n$data\n--${bound}--"
set page [::http::geturl "${urlbase}$testfilename1" \
-type "multipart/form-data; boundary=$bound" -query $outputData]
set ret [string trim [::http::data $page]]
::http::cleanup $page
file size uploadedjpeg.jpg
} {42747}
|