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}
|
