blob: 581470dfc6ab720c6678798f73df60194d010ac8 (
plain)
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
<testcase>
<info>
<keywords>
HTTP
HTTP GET
--no-clobber
</keywords>
</info>
#
# Server-side
<reply>
<data nocheck="yes">
HTTP/1.0 200 OK
Connection: close
Content-Type: text/plain
Content-Length: 4
foo
</data>
</reply>
#
# Client-side
<client>
<name>
HTTP GET without clobber when 100 files already exist
</name>
<server>
http
</server>
<features>
http
</features>
<command option="no-output">
http://%HOSTIP:%HTTPPORT/%TESTNUMBER -o %LOGDIR/exist%TESTNUMBER --no-clobber
</command>
<file name="%LOGDIR/exist%TESTNUMBER">
to stay the same
</file>
<precheck>
perl -e 'for my $i ((1..100)) { my $filename = "%LOGDIR/exist%TESTNUMBER.$i"; open(FH, ">", $filename) or die $!; print FH "to stay the same" ; close(FH) }'
</precheck>
<postcheck>
perl -e 'for my $i ((1..100)) { my $filename = "%LOGDIR/exist%TESTNUMBER.$i"; open(FH, "<", $filename) or die $!; (<FH> eq "to stay the same" and <FH> eq "") or die "incorrect $filename" ; close(FH) }'
</postcheck>
</client>
#
# Verify data after the test has been "shot"
<verify>
<errorcode>
23
</errorcode>
<file name="%LOGDIR/exist%TESTNUMBER">
to stay the same
</file>
</verify>
</testcase>
|
