File: upload.test

package info (click to toggle)
libapache2-mod-rivet 3.2.2-1
  • links: PTS
  • area: main
  • in suites: bookworm
  • size: 6,296 kB
  • sloc: xml: 8,554; tcl: 7,568; ansic: 7,094; sh: 5,017; makefile: 195; sql: 91; lisp: 78
file content (38 lines) | stat: -rw-r--r-- 1,297 bytes parent folder | download | duplicates (3)
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}